И для трех, и для четырех: =ЛЕВСИМВ(A1)&ПСТР(A1;ПОИСК(" ";A1)+1;1)&ПСТР(A1;ПОИСК(":";ПОДСТАВИТЬ(A1;" ";":";2))+1;1)&ПСТР(A1;ПОИСК(":";ПОДСТАВИТЬ(A1&" ";" ";":";3))+1;1)
Function GetAbbr(Sorce As String) As String
Dim arr
arr = Split(Sorce)
For i = 0 To UBound(arr)
GetAbbr = GetAbbr & Left(arr(i), 1)
Next i
GetAbbr = UCase(GetAbbr)
End Function
написал: Можно вот такой UDF, ей все равно сколько слов
Код
[URL=#]?[/URL] 1 2 3 4 5 6 7 8 Function GetAbbr(Sorce As String ) As String Dim arr arr = Split(Sorce) For i = 0 To UBound(arr) GetAbbr = GetAbbr & Left(arr(i), 1) Next i GetAbbr = UCase(GetAbbr) End Function