Aşağıda, metni belirtilen ayırıcıya göre parçalara ayırmanıza yardımcı olacak bir işlev bulacaksınız.
Makro eklemek için Visual Basic düzenleyicisini açın (Alt+F11), sokmak yeni bir boş yazılım modülü
Function GETSUBSTR(Txt, Delimiter, n) As String
'moonexcel.com.ua
Dim x As Variant
x = Split(Txt, Delimiter)
If n > 0 And n - 1 <= UBound(x) Then
GETSUBSTR = x(n - 1)
Else
GETSUBSTR = ""
End If
End Function
Kaydedin ve Excel'ye dönün. Artık özel işlevlerde GETSUBSTR() işlevimizi bulabilirsiniz.
=GETSUBSTR(metin; sınırlayıcı; parça_sayı_sayısı)
Neresi: