时间:2020-08-07 22:58作者:admin来源:未知人气:418我要评论(0)
本文将讲述如何在Excel中从给定单元格中的文本字符串中删除所有非字母数字字符。如何使用Excel 2013/2016中的用户定义函数或VBA宏从字符串中删除非字母数字字符。
假设您有一个包含文本字符串值的范围A1:A3中的数据列表,并且您只想从这些单元格中删除所有非字母数字字符并保留其他字母数字字符。怎么做。您需要记下Excel VBA宏以实现快速删除所有非字母数字字符的结果。只需执行以下步骤:
步骤1:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
步骤2:然后将出现“Visual Basic编辑器”窗口。
步骤3:单击“插入” – >“模块”以创建新模块。
步骤4:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Function RemoveNonAlpha(str As String) As String
Dim ch, bytes() As Byte: bytes = str
For Each ch In bytes
If Chr(ch) Like "[A-Z.a-z 0-9]" Then RemoveNonAlpha = RemoveNonAlpha & Chr(ch)
Next ch
End Function
步骤5:返回当前工作表,然后在空白单元格中键入以下公式,然后按Enter键。并将“自动填充处理”拖动到其他单元格。
= RemoveNonAlpha(A1)
步骤6:让我们看看最后的结果:
您还可以使用另一个VBA宏来实现删除Excel中所有非字母数字字符的相同结果。只需执行以下步骤:
步骤1:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
步骤2:然后将出现“Visual Basic编辑器”窗口。
步骤3:单击“插入” – >“模块”以创建新模块。
步骤4:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Function RemoveNonAlpha(str As String) As String
Dim ch, bytes() As Byte: bytes = str
For Each ch In bytes
If Chr(ch) Like "[A-Z.a-z 0-9]" Then RemoveNonAlpha = RemoveNonAlpha & Chr(ch)
Next ch
End Function
Sub RemoveNonAlphaMacro()
Dim rng As Range
Set MyRange = Application.Selection
Set MyRange = Application.InputBox("Select One Range:", "RemoveNonAlphaMacro", MyRange.Address, Type:=8)
For Each rng In MyRange
rng.Value = RemoveNonAlpha(rng.Value)
Next
End Sub
步骤5:返回当前工作表,然后运行上面的excel宏。点击执行按钮。
步骤6:选择一个包含要删除的非字母数字字符的范围。单击确定按钮。
步骤7:您将看到已从所选单元格区域中删除所有非字母数字字符。
相关阅读 Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法Excel数字乱码怎么办?这样处理1秒解决,完美!Excel办公小技巧,全学会了让你的效率一秒提升!如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法,最后一种效率最高excel如何将阿拉伯数字快速转换为中文大小写格式?excel如何利用公式快速在表格中批量输入五角星的方法如何利用Excel的强大抠图功能,简单2步抠出透明手写艺术签名!分享Excel中的一个神操作,掌握后可快速提高工作效率!
热门文章 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表(Pivot Table)
最新文章
Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法
Excel数字乱码怎么办?这样处理1秒解决,完美!Excel办公小技巧,全学会了让你的效率一秒提升!如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法,最后一种效率最高
人气排行 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表(Pivot Table)Excel中如何插入PDF文件Excel表格在一页A4纸上打印不下去,怎么办?excel保存了却不见了怎么办excel如何将两列数据一一对应
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>