Excel VBA批量按5行数据+表头导出CSV异常排查求助

我看了你的代码和问题描述，第一个文件只导出4行数据而不是预期的5行，问题出在新建文件的时机判断错误上。

先拆解下你当前代码的逻辑问题：

• 你先打开了第一个文件Litch 0.csv并写入表头，然后从Excel第2行开始循环写入数据。
• 你的判断条件是If (j - 1) Mod 5 = 0 Then，也就是当j-1是5的倍数时（比如j=6，j-1=5）才新建文件。
• 这就导致第一个文件只写入了j=2到j=5的4行数据，j=6的行被直接写到了新文件里，所以第一个文件少了关键的一行。

要修正这个问题，我们需要调整判断时机，让每组5行数据的第一行触发新建文件的操作（包括第一个文件），同时去掉初始的文件打开逻辑，避免重复创建。

修正后的代码如下：

Sub Export()
    Dim FileNum As Integer
    Dim Last_Row As Long
    Dim myStr As String
    Dim MYFILE As String
    Dim i As Integer
    Dim j As Long
    Dim currentGroup As Integer
    Dim previousGroup As Integer
    
    MYFILE = ThisWorkbook.Path & "\"
    Last_Row = Cells(Rows.Count, 1).End(xlUp).Row
    previousGroup = -1 ' 初始化上一组号，确保第一次循环会创建文件
    
    For j = 2 To Last_Row
        ' 计算当前行属于第几组（每组5行数据）
        currentGroup = (j - 2) \ 5
        
        ' 如果组号变化，新建文件并写入表头
        If currentGroup <> previousGroup Then
            ' 如果不是第一次循环，关闭之前的文件
            If previousGroup <> -1 Then
                Close #FileNum
            End If
            
            FileNum = FreeFile
            Open MYFILE & "Litch " & currentGroup & ".csv" For Output As #FileNum
            
            ' 写入表头
            myStr = Cells(1, 1).Value
            For i = 2 To 10
                myStr = myStr & "," & Cells(1, i).Value
            Next i
            Print #FileNum, myStr
            
            previousGroup = currentGroup
        End If
        
        ' 写入当前行数据
        myStr = Cells(j, 1).Value
        For i = 2 To 10
            myStr = myStr & "," & Cells(j, i).Value
        Next i
        Print #FileNum, myStr
    Next j
    
    ' 关闭最后一个文件
    If FileNum <> 0 Then
        Close #FileNum
    End If
End Sub

关键修改说明： #

1. 组号计算逻辑：用currentGroup = (j - 2) \ 5确定当前行所属分组，j=2时组号为0，j=7时组号为1，每组正好包含5行数据。
2. 组号变化触发新建：每次组号改变时，关闭之前的文件（如果存在），创建新文件并写入表头，保证每个CSV文件都有唯一表头且数据完整。
3. 避免重复操作：通过previousGroup变量跟踪上一组号，确保只有组号变化时才执行文件创建和表头写入操作。

这样修改后，第一个文件Litch 0.csv会包含Excel行2到行6的5行数据+表头，后续文件也会严格遵循“5行数据+1行表头”的规则，完全符合你的需求。

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