在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
------解决方案--------------------------------------------------------