每天一个知识点,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
A = False
Cells(i, 5).Cut
Myr = [e65536].End(xlUp).Row + 1
Cells(Myr, 5).Select
Ac
Cells(i, 5).Select
Selec Shift:=xlUp
A = True
End If
Next
End With
End Sub
如果你在工作中还需要设计其他的表格模板,都可以留言,我们会根据大家需求来整理相关的学习资料,目的只有一个,那就是学好Excel,提高工作效率!