excel以筛选条件为文件名筛选数据导入条件命名的TXT

shaw1368

找了段VB但是数据导出后是纵向排列，想达到如图所示的效果，希望各位大大能帮忙修改下谢谢


Sub ExportTxt()
    Dim FilePath As String
    Dim Cell As Range, i As Integer

    FilePath = "E:\"
    For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Not IsEmpty(Cell) Then
            Open FilePath & Cell & ".txt" For Append As #1
            For i = 1 To Cells(Cell.Row, Columns.Count).End(xlToLeft).Column - 1
                Print #1, Cell.Offset(0, i)
            Next i
            Close #1
        End If
    Next
End Sub

shaw1368

附件刚忘记上传