高分求解-去掉空格，还要保证是文本格式解决办法

高分求解--去掉空格，还要保证是文本格式
在A例的文本的数字，想去掉空格还要保留文本，请高手帮帮忙

[解决办法]
b1里头输入

="'" & substitute(a1," ","")

下拉
[解决办法]

VB code

Private Sub CommandButton1_Click()    With Sheets("sheet1")        ar = .[a1].CurrentRegion        For i = 1 To UBound(ar)            ar(i, 1) = Trim(ar(i, 1)) 'A例数据        Next        .[a1].Resize(UBound(ar)) = ar    End WithEnd Sub
[解决办法]
探讨

b1里头输入

="'" & substitute(a1," ","")

下拉