Excel的VBA代码清除不可见的字符

发布网友发布时间：2024-09-05 04:32

共1个回答

热心网友时间：2024-09-30 01:12

在处理从系统导出或网络下载的数据时，经常会遇到包含不可见字符的问题，这些字符会导致数据无法正确运算和查找。

要解决这个问题，可以通过VBA代码进行操作。具体步骤如下：首先，点击【开发工具】—【Visual Basic】，在打开的VBA编辑窗口中复制以下代码并粘贴。

代码如下：

最后，在目标工作表中，点击【开发工具】—【宏】，在弹出的宏对话框中，点击【执行】按钮，即可得到所有满足条件的记录。

以下是代码的具体解释：

·Set ws = ThisWorkbook.Sheets("Sheet1")：将"Sheet1"替换为你需要操作的工作表名称。

·Set rng = ws.Range("A1:Z100")：将"A1:Z100"替换为你需要清理的单元格范围。范围可以根据需要进行调整。

·For Each cell In rng 循环遍历指定范围内的每个单元格。

·清除不可见字符：

·cleanedValue = ""：初始化一个空字符串，用于存储清理后的单元格内容。

·For i = 1 To Len(cell.Value)：循环遍历单元格中的每个字符。

·If Asc(Mid(cell.Value, i, 1)) >= 32 And Asc(Mid(cell.Value, i, 1)) <= 126 Then：

使用 Asc() 函数获取字符的 ASCII 值，仅保留可见字符的范围（ASCII 值为 32 到 126）。

Mid(cell.Value, i, 1) 提取单元格中第 i 个字符。

·cell.Value = cleanedValue：将清理后的字符串重新赋值给单元格。