我来帮你搞定这个导出CSV时出现多余空单元格的问题～ 你的原代码直接复制了整列数据，所以空单元格会被转换成CSV里的空字段（就是那些连续的逗号）。下面给你两种针对性的解决方案，根据你的数据情况选就行：

方案1：移除行内零散的空单元格（推荐） #

如果你的数据是行里有零散空单元格（比如某行里A列有内容，B、C列空，D列有内容），用这个方法可以把每行的非空内容按顺序拼接，导出后不会有多余逗号：

Sub ExportToCSVWithoutBlanks()
    Dim sourceRange As Range
    Dim dataArray As Variant
    Dim nonEmptyData As Variant
    Dim i As Long, j As Long, colCounter As Long
    
    ' 设置要导出的源区域（A:D列）
    Set sourceRange = ThisWorkbook.ActiveSheet.Columns("A:D")
    dataArray = sourceRange.Value
    
    ' 先统计每行非空单元格的数量，确定新数组的最大列数
    Dim maxNonEmptyCols As Long
    maxNonEmptyCols = 0
    For i = LBound(dataArray, 1) To UBound(dataArray, 1)
        colCounter = 0
        For j = LBound(dataArray, 2) To UBound(dataArray, 2)
            If Not IsEmpty(dataArray(i, j)) Then
                colCounter = colCounter + 1
            End If
        Next j
        If colCounter > maxNonEmptyCols Then
            maxNonEmptyCols = colCounter
        End If
    Next i
    
    ' 初始化存储非空数据的数组
    ReDim nonEmptyData(LBound(dataArray, 1) To UBound(dataArray, 1), 1 To maxNonEmptyCols)
    
    ' 把非空数据按顺序填充到新数组
    For i = LBound(dataArray, 1) To UBound(dataArray, 1)
        colCounter = 0
        For j = LBound(dataArray, 2) To UBound(dataArray, 2)
            If Not IsEmpty(dataArray(i, j)) Then
                colCounter = colCounter + 1
                nonEmptyData(i, colCounter) = dataArray(i, j)
            End If
        Next j
    Next i
    
    ' 创建新工作簿并写入处理后的数据
    Dim newWB As Workbook
    Set newWB = Workbooks.Add
    newWB.Sheets(1).Range("A1").Resize(UBound(nonEmptyData, 1), UBound(nonEmptyData, 2)).Value = nonEmptyData
    
    ' 保存为CSV并清理
    Application.DisplayAlerts = False
    newWB.SaveAs Filename:="C:\x_test.csv", FileFormat:=xlCSV, CreateBackup:=False
    newWB.Close
    Application.DisplayAlerts = True
End Sub

代码说明： #

• 先把源数据读入数组，比直接操作单元格快得多，大数据量也不卡
• 遍历每行统计非空单元格数，确保新数组能容纳所有有效内容
• 跳过空单元格，把有效内容按顺序填充到新数组
• 最后写入新工作簿再导出CSV，这样导出的内容就没有多余空字段了

方案2：删除整列空单元格 #

如果你的空单元格是整列都为空（比如B列、C列完全没有内容），可以用这个更简单的方法：

Sub ExportToCSVWithoutEmptyColumns()
    Dim sourceSheet As Worksheet
    Dim tempSheet As Worksheet
    
    Set sourceSheet = ThisWorkbook.ActiveSheet
    ' 创建临时工作表，避免修改原表数据
    Set tempSheet = ThisWorkbook.Sheets.Add
    
    ' 复制A:D列到临时表
    sourceSheet.Columns("A:D").Copy tempSheet.Columns("A")
    
    ' 从后往前删除空列（避免删除后列号错乱）
    Dim col As Long
    For col = tempSheet.UsedRange.Columns.Count To 1 Step -1
        If WorksheetFunction.CountA(tempSheet.Columns(col)) = 0 Then
            tempSheet.Columns(col).Delete
        End If
    Next col
    
    ' 复制处理后的数据到新工作簿
    tempSheet.UsedRange.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues
    
    ' 保存并清理临时表
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\x_test.csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close
    tempSheet.Delete
    Application.DisplayAlerts = True
End Sub

注意事项： #

如果你的数据内容里包含逗号，CSV会自动用引号包裹该内容，这是标准CSV格式的正常表现，不用额外处理哦～

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