excel 去除特殊字符,仅保留中英文字符和数字

在 Excel 中,如果你想去除特殊字符,仅保留中英文字符与数字,你可以使用 VBA 来创建一个自定义函数。以下是具体步骤和代码:

一、创建自定义函数

1、打开 VBA 编辑器:

按 Alt + F11 打开 VBA 编辑器。

2、插入新模块:

在 VBA 编辑器中,点击 Insert -> Module,新建一个模块。

3、输入以下 VBA 代码:

bash 复制代码
Function KeepCNEnglishNumbers(inputText As String) As String
    Dim i As Integer
    Dim currentChar As String
    Dim resultText As String
    
    resultText = ""
    
    For i = 1 To Len(inputText)
        currentChar = Mid(inputText, i, 1)
        ' Check if the character is an English letter, digit or Chinese character
        If (currentChar Like "[A-Za-z0-9]" Or _
            (AscW(currentChar) >= 19968 And AscW(currentChar) <= 40869)) Then
            resultText = resultText & currentChar
        End If
    Next i
    
    KeepCNEnglishNumbers = resultText
End Function

二、使用自定义函数

1、返回 Excel 工作表:

关闭 VBA 编辑器回到 Excel。

2、应用这个函数:

例如,在单元格 B1 中使用公式处理 A1 单元格的数据:

excel

=KeepCNEnglishNumbers(A1)

3、填充公式:

如果需要对其他单元格应用这个筛选,可以将公式向下拖拽。

三、代码说明

Mid 函数:从字符串中提取每一个字符。

Like "[A-Za-z0-9]":检查字符是否为英文字母或者数字。

AscW 函数:获取 Unicode 码,确认字符是否在常用的中文字符范围内。

中文字符匹配:

常用汉字的 Unicode 码范围大概是 19968 到 40869。

通过这个方法,你可以有效地去除所有特殊字符,仅保留中英文字符和数字。

相关推荐
LAM LAB3 天前
【VBA】Excel指定单元格范围内字体设置样式,处理导出课表单元格
excel·vba
在这habit之下3 天前
Keepalived学习总结
excel
Youngchatgpt3 天前
如何在 Excel 中使用 ChatGPT:自动化任务和编写公式
人工智能·chatgpt·自动化·excel
开开心心就好3 天前
安卓开源应用,超时提醒紧急人护独居安全
windows·决策树·计算机视觉·pdf·计算机外设·excel·动态规划
D_C_tyu3 天前
Vue3 + Element Plus | el-table 多级表头表格导出 Excel(含合并单元格、单元格居中)第二版
vue.js·elementui·excel
骆驼爱记录3 天前
WPS页码设置:第X页共Y-1页
自动化·word·excel·wps·新人首发
Cxiaomu4 天前
Python 文件解析: Excel / Word / PDF 的解析、处理、预览与下载
python·word·excel
2501_930707784 天前
如何使用C#代码从 PDF 中提取表格并另存为Excel文件
pdf·excel
pacong4 天前
B生所学EXCEL
人工智能·excel