obsidian/知识参考/电脑软件常用指令/Excel-VBA/VBA删除非打印符.md

Sub ss()
Dim rng As Range

Set rng = Selection

For Each rng In Selection rng.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

Sub TEST1()
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\s*"
For j = 1 To Cells(Rows.Count, 1).End(3).Row
Cells(j, 13) = .Replace(Cells(j, 13), "")
Next j
End With
Application.ScreenUpdating = True
End Sub

Sub TEST2()
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\s*"
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(j, 13) = .Replace(Cells(j, 13), "")
Next j
End With
Application.ScreenUpdating = True
End Sub

Sub TEST3()
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\s*"
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 33
Cells(j, i) = .Replace(Cells(j, i), "")
Next i
Next j
End With
Application.ScreenUpdating = True
End Sub