Excel VBA: манипулирование строками

Question

Ниже приведены имя, пробел и последний инициал. Я хотел бы имя и фамилию без пробела между.

Sub FNLI() 

 Dim cell 

 For Each cell In Selection 
 cell.Offset(0, 1) = Mid$(cell.Value2, 1, InStr(cell.Value2, Chr(32)) + 1) 
 Next 

End Sub 

Вот что он сейчас делает -

Data Before:      
Margaret Hicks

After Script:
Margaret H

What I need:
MHicks

Answer 1

Правильный аргумент - «Chr» вместо «Char»

Вот полный скомпилированный и работающий саб:

Sub FNLI()

Тусклая клетка

Для каждой ячейки в ячейке выбора.Смещение (0, 1) = Трим (Левый (ячейка.Value2, 1) и Mid (ячейка.Значение2, InStr (ячейкаЗначение2, Chr (32)) + 1, Len (ячейка.Значение2) - InStr (ячейка.Value2, Chr (32)))) Далее

End Sub

Answer 2

пытаться

For Each cell In Selection 
cell.Offset(0, 1) = trim(left(cell.Value2,1)&Mid(cell.Value2, InStr(cell.Value2, Char(32)) + 1,len(cell.Value2)-InStr(cell.Value2,Char(32)))) 
Next 

попробуй №2

клетка.Смещение (0, 1) = трим (слева (ячейка.Value2,1) & Mid (ячейка.Значение2, поиск (char (32), ячейка.Значение2) + 1, лен (ячейка.Значение2) -search (Символьный (32), клетки.Value2)))