Удалить ненужный символ спереди и сзади слова

Function delcr(r As Range, cr As String)
Dim arr() As String
arr() = Split(r)


For i = 0 To UBound(arr)
  arr(i) = arr(i)

  If Left(arr(i), 1) = ";" Then arr(i) = Right(arr(i), Len(arr(i)) - 1)
  If Right(arr(i), 1) = ";" Then arr(i) = Left(arr(i), Len(arr(i)) - 1)
Next i
delcr = Join(arr(), " ")

End Function


Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *