Sub SokrNapravlenie()
Dim fulname
Dim FIO
fulname = Cells(3, 21)
FIO = Left(fulname, InStr(1, fulname, Chr(34)))
fulname = Right(fulname, Len(fulname) - Len(FIO))
FIO = FIO & Left(fulname, InStr(1, fulname, Chr(34)))
Cells(3, 22) = FIO
End Sub
Chr(34)
и заменить им " "
Sub test()
Function ShortName(fullName As String) As String
Dim arrNames As Variant
arrNames = Split("A1")
ShortName = arrNames("B1") & " " & Left(arrNames(1), 1) & "." & Left(arrNames(2), 1) & "."
End Function
End Sub
Очень вас прошу помогите пожалуйста
н}", "");
Получаеться такое возможно сделать? Это очень проблемотично? Скажите пожалуйста