Вернуть данные после запятой

Function GetNumBefoZappp(txt As String) As String
  zpt = InStr(1, txt, ",", vbTextCompare)
  probel = InStr(1, txt, " ", vbTextCompare)
   сводными   If zpt  0 And zpt < probel Then
       world!  GetNumBefoZappp = Left(txt, InStr(1, txt, ",", vbTextCompare) - 1)
   Else: GetNumBefoZappp = ""
   End If
End Function


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

Ваш адрес email не будет опубликован.