EXCEL去不规则空格_VBA

http://club.excelhome.net/thread-803349-1-1.html

1，普通写法

 

Public Sub q()

Dim ar, i%

ar = Range("a1:a294")

For i = 1 To 294

ar(i, 1) = "\'" & ar(i, 1)

Next i

Range("a1:a294") = ar

Range("a1:a294").NumberFormatLocal = "@"

Range("a1:a294").Replace what:=Left([a1], 1), replacement:="", lookat:=xlPart

End Sub

2，专业 

1. Public Sub qq()
2. Dim ar, i%
3. ar = Range([a1], [a65536].End(3))
4. For i = 1 To UBound(ar)
5. ar(i, 1) = "\'" & ar(i, 1)
6. Next i
7. Range([a1], [a65536].End(3)) = ar
8. [a:a].NumberFormatLocal = "@"
9. [a:a].Replace what:=Left([a1], 1), replacement:="", lookat:=xlPart
10. End Sub