Hey Chris, 我太懂你这种糟心的感觉了——好不容易把指定列导成CSV，结果用记事本打开一看，满屏多余的逗号，就像有人在文件里乱按逗号键似的！别着急，咱们一步步来解决这个问题。

首先得搞清楚为啥会这样：Excel保存CSV的时候，默认会把工作表的已使用区域全都算进去，哪怕你删除了空列，只要这些列曾经被编辑过（哪怕只是点过一下），Excel还是会认为它们是“已使用”的，导出时就会生成多余的逗号。另外，如果你是直接复制整列到新工作表，哪怕新工作表里只有你要的列，也可能因为源工作表的隐藏列、或者Excel自动扩展的区域导致问题。

下面给你几个实用的解决方法，按新手友好程度排序：

方法1：只复制有数据的单元格（避开整列复制的坑） #

最简单的办法就是不复制整列，只复制实际有数据的区域。这样新工作表里就只有你需要的列和内容，根本不会有空列被导出。

给你写个示例代码，你可以根据自己的需求修改列和工作表名称：

Sub ExportCleanCSV()
    Dim sourceSheet As Worksheet
    Dim tempSheet As Worksheet
    Dim lastDataRow As Long
    Dim saveFilePath As String
    
    ' 替换成你的源工作表名称
    Set sourceSheet = ThisWorkbook.Sheets("填写数据的工作表")
    ' 设置保存路径（和原文件同文件夹）
    saveFilePath = ThisWorkbook.Path & "\拆分后的文件.csv"
    
    ' 创建临时工作表
    Set tempSheet = ThisWorkbook.Sheets.Add
    
    ' 获取源数据的最后一行（以A列为例，你可以改成你数据所在的列）
    lastDataRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 复制需要的列（比如复制A、C、E列到临时表的A、B、C列）
    sourceSheet.Range("A1:A" & lastDataRow).Copy tempSheet.Range("A1")
    sourceSheet.Range("C1:C" & lastDataRow).Copy tempSheet.Range("B1")
    sourceSheet.Range("E1:E" & lastDataRow).Copy tempSheet.Range("C1")
    
    ' 保存为CSV并清理临时表
    Application.DisplayAlerts = False ' 关闭删除工作表的提示
    tempSheet.SaveAs Filename:=saveFilePath, FileFormat:=xlCSVUTF8 ' 用UTF8避免中文乱码
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    MsgBox "导出成功！现在打开CSV应该没有多余逗号啦～"
End Sub

方法2：彻底清理临时工作表的“无效区域” #

如果你的代码已经是复制整列的模式，那可以在删除多余列后，再手动清理掉Excel认为的“已使用区域”里的空部分：

' 假设你已经把需要的列复制到tempSheet，现在要删除其他列并清理
Sub CleanTempSheet()
    Dim tempSheet As Worksheet
    Dim lastUsedCol As Long
    Dim lastUsedRow As Long
    
    Set tempSheet = ThisWorkbook.Sheets("临时表")
    
    ' 删除所有不需要的列（比如只保留A-C列，删除D到最后一列）
    tempSheet.Columns("D:XFD").Delete
    
    ' 找到最后一列有数据的列，删除后面的空列（重置已使用区域）
    lastUsedCol = tempSheet.Cells(1, tempSheet.Columns.Count).End(xlToLeft).Column
    tempSheet.Columns(lastUsedCol + 1 & ":XFD").Delete
    
    ' 找到最后一行有数据的行，删除下面的空行
    lastUsedRow = tempSheet.Cells(tempSheet.Rows.Count, 1).End(xlUp).Row
    tempSheet.Rows(lastUsedRow + 1 & ":1048576").Delete
    
    ' 触发Excel更新已使用区域
    tempSheet.UsedRange
End Sub

把这段代码加在你保存CSV之前，就能彻底清空那些看不见的空列/空行。

方法3：直接写入CSV文件（最彻底，完全掌控内容） #

如果上面两种方法都不行，那可以绕过Excel工作表，直接把数据写入CSV文件，这样完全由你决定每一行的内容，不会有多余的逗号。这种方法需要处理CSV的格式规则（比如单元格内容有逗号的话，要用双引号包裹），但胜在精准：

Sub WriteCSVDirectly()
    Dim sourceSheet As Worksheet
    Dim savePath As String
    Dim fileNumber As Integer
    Dim lastRow As Long
    Dim i As Long
    Dim lineContent As String
    
    Set sourceSheet = ThisWorkbook.Sheets("填写数据的工作表")
    savePath = ThisWorkbook.Path & "\直接导出.csv"
    fileNumber = FreeFile() ' 获取可用的文件编号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 打开文件准备写入
    Open savePath For Output As #fileNumber
    
    ' 写入表头（比如A、C、E列的表头）
    lineContent = """" & sourceSheet.Range("A1").Value & """,""" & sourceSheet.Range("C1").Value & """,""" & sourceSheet.Range("E1").Value & """"
    Print #fileNumber, lineContent
    
    ' 逐行写入数据
    For i = 2 To lastRow
        ' 给每个单元格内容加双引号，避免逗号干扰CSV格式
        lineContent = """" & sourceSheet.Cells(i, "A").Value & """,""" & sourceSheet.Cells(i, "C").Value & """,""" & sourceSheet.Cells(i, "E").Value & """"
        Print #fileNumber, lineContent
    Next i
    
    ' 关闭文件
    Close #fileNumber
    
    MsgBox "导出完成！这个CSV绝对干净～"
End Sub

建议你先试试方法1，因为它最容易上手，也不容易出问题。如果还是有多余逗号，检查一下源工作表里有没有隐藏列，复制的时候会不会不小心带进去。另外保存CSV时用xlCSVUTF8格式，能避免中文乱码的问题。

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