Как сохранить конечные пробелы в строке при ее печати на ячейку?

Когда я пытаюсь распечатать строки с конечным пространством, конечные пробелы автоматически усекаются excel. Я хочу их сохранить.

Образец:

Sub stringspace() stringg = "23 " MsgBox Len(stringg) 'here it is 3 Cells(1, 1) = stringg MsgBox Len(Cells(1, 1)) 'here it is 2 End Sub 

Установите формат текста для предотвращения автоконверсии:

 Sub stringspace() stringg = "23 " MsgBox Len(stringg) 'here it is 3 Cells(1, 1).NumberFormat = "@" Cells(1, 1) = stringg MsgBox Len(Cells(1, 1)) 'here it is 3 End Sub 
 Sub StringSpace_Modified() Cells(2, 1) = "'23 " ' Use a single quote at the beginning Debug.Print Len(Cells(2, 1)) ' Displays 3 in immediate window End Sub 
Давайте будем гением компьютера.