VBA (Exel) и не только

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 Продолжить чтение Вернуть данные после запятой→

Function GetNormalNeme(r Range) As Variant GetNormalNeme = InStr(1, r, «(«, vbTextCompare) GetNormalNeme = Mid(r, GetNormalNeme + 1, Len(r) — InStr(1, r, «(«, vbTextCompare) — 1) End Function