Wie können nachgestellte Leerzeichen in einer Zeichenfolge beibehalten werden, wenn sie in eine Zelle gedruckt werden?

Question

Wenn ich versuche, Zeichenfolgen mit einem nachgestellten Leerzeichen auszugeben, werden die abschließenden Leerzeichen automatisch von Excel abgeschnitten. Ich möchte sie bewahren.

Probe:

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 

Answer 1

das Textformat ein Autoconversion zu verhindern:

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 

Answer 2

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