Excel单元格含空白/换行致显示异常，求批量清除方法

一、批量清理单元格内的空白字符与换行符 #

1. 用Excel内置查找替换快速处理 #

• 清除换行符：按下Ctrl+H打开查找替换对话框，在「查找内容」框中按下Ctrl+J（代表单元格内的换行符），「替换为」框留空，点击「全部替换」即可批量移除所有单元格内的换行。
• 清除多余空格与非打印字符：
  1. 先处理多余空格：查找内容输入两个空格 ，替换为一个空格 ，重复点击「全部替换」直到提示“找不到匹配项”；
  2. 再清除非打印字符：在辅助列（比如B列）的第一个单元格输入公式=TRIM(CLEAN(A1))，下拉填充到所有数据行，公式会自动清除单元格首尾空格、中间多余空格及非打印字符；
  3. 选中辅助列数据，右键「复制」，再选中原数据列右键「粘贴值」，覆盖原内容。

2. VBA脚本批量处理（适合超大数据集） #

如果数据量极大，用VBA效率更高：

Sub CleanCellsAndRemoveBlankRows()
    ' 遍历所有已用单元格，清理空白、换行及非打印字符
    Dim targetCell As Range
    For Each targetCell In ActiveSheet.UsedRange
        targetCell.Value = Trim(Clean(targetCell.Value))
    Next targetCell
    
    ' 从下往上删除完全空白的行（避免删除时行号错乱）
    Dim rowIndex As Long
    For rowIndex = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(Rows(rowIndex)) = 0 Then
            Rows(rowIndex).Delete
        End If
    Next rowIndex
End Sub

使用方法：按下Alt+F11打开VBA编辑器，右键当前工作簿→「插入」→「模块」，粘贴代码后点击运行按钮（绿色三角）。

二、清除多余空白行 #

除了上述VBA脚本，也可以用内置功能快速处理：

• 筛选法：选中数据区域，点击「数据」选项卡→「筛选」，在任意列的筛选下拉菜单中选择「空白」，选中所有筛选出的空白行，右键「删除行」，最后取消筛选。
• 定位空值法：按下F5→「定位条件」→选择「空值」，点击确定后选中所有空白单元格，右键「删除」→选择「整行」即可。

三、转换为CSV格式 #

清理完成后，转换CSV时注意避免乱码：

• 手动转换：点击「文件」→「另存为」，保存类型选择「CSV(逗号分隔)(*.csv)」，点击「工具」→「Web选项」→「编码」，选择「UTF-8」后保存，确保中文等非ASCII字符正常显示。
• VBA批量转换：如果需要自动完成，可在上述VBA脚本末尾添加以下代码（替换为你的目标路径）：

' 保存为UTF-8编码的CSV
ActiveSheet.SaveAs Filename:="D:\Output\Cleaned_Data.csv", FileFormat:=xlCSVUTF8

内容的提问来源于stack exchange，提问作者Nelson Romero