excel按行拆分

crudeoil123

各位大神，求助excel按行条件拆分为多个txt文本，具体见附件，谢谢。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

limonet

Sub limonet()
    Dim objFSO As Object, objStream As Object, i%, j%
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    j = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To j
        If Cells(i, "A") <> "" And Cells(i, "B") = "" Then
            Set objStream = objFSO.CreateTextFile(ThisWorkbook.Path & "\" & Cells(i, "A") & ".txt", True)
        Else
            Do Until Cells(i, "B") = ""
                objStream.WriteLine Join(Application.Transpose(Application.Transpose(Range(Cells(i, "A"), Cells(i, "D")))), vbTab)
                i = i + 1
            Loop
            objStream.Close
            If i < j Then
                Set objStream = objFSO.CreateTextFile(ThisWorkbook.Path & "\" & Cells(i, "A") & ".txt", True)
            Else
                Exit Sub
            End If
        End If
    Next i
End Sub

limonet

关键字：FSOStream.writeline

crudeoil123

limonet 发表于 2024-10-18 13:48
关键字：FSOStream.writeline

，感谢，好用。

crudeoil123

ykcbf1100 发表于 2024-10-18 12:26
参与一下。。。

感谢，很好用

cai2532

这个按行拆分值的学习。

gwjkkkkk

请参考。。。

gwjkkkkk

参与一下。。。