Получить текст между кавычками

Function GetNormalNeme(r As Range) As Variant
s_left = InStr(1, r, Chr(34), vbTextCompare)
s_right = InStr(s_left + 1, r, Chr(34), vbTextCompare)

If s_left = 0 Then
   GetNormalNeme = r
Else
   GetNormalNeme = Mid(r, s_left + 1, s_right - s_left - 1)
End If
End Function

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

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