每天一个知识点，excel vba如何去除任何空白字符，空格，换行符

每天一个知识点，excel vba如何去掉我们去除任何空白字符，包括空格、制表符、换页符等等

举个栗子。假设有我们有一份文件，其中文件中有很多的白字符，包括空格、制表符、换页符等等。对于这些可见，或者不可见的空白符，在我们处理数据或者打印时候就很烦。所以我现在给大家介绍一键去实现这个小小的功能。

可以使用今天下面分享的代码，程序运行，一键去掉我们去除任何空白字符，包括空格、制表符、换页符等等.

代码其实很简单，很通俗易懂，有不懂的或者不明白的小伙伴欢迎在下方留言，我将会一一解答。

希望可以和大家一起共同进步，一起成长在EXCEL世界。

您还不来试试一下，vba代码的神奇之处。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Myr&, i&, s1

If Target.Count > 1 Then Exit Sub

If Target.Column <> 5 Then Exit Sub

Myr = [e65536].End(xlUp).Row

Range("E3:E" & Myr).Sort Range("E3"), 1

With CreateObject("VBSCRIPT.REGEXP")

.Global = True

.Pattern = "\s"

For i = Myr To 3 Step -1

s1 = .Replace(Cells(i, 5), "")

If Cells(i, 5) = "" Or s1 = "" Then

Cells(i, 5).Delete Shift:=xlUp

ElseIf Cells(i, 5) = 0 Then

Application.EnableEvents = False

Cells(i, 5).Cut

Myr = [e65536].End(xlUp).Row + 1

Cells(Myr, 5).Select

ActiveSheet.Paste

Cells(i, 5).Select

Selection.Delete Shift:=xlUp

Application.EnableEvents = True

End If

Next

End With

End Sub

如果你在工作中还需要设计其他的表格模板，都可以留言，我们会根据大家需求来整理相关的学习资料，目的只有一个，那就是学好Excel，提高工作效率！