问使用csv/excel数据自动设置文本格式

EN

Sub aru()
Dim row As Long
Dim lastrow As Long
Dim i As Long
Dim file As Worksheet
Dim col As Long
Dim lastcol As Long
Dim dir As String
Application.DisplayAlerts = False
dir = "C:\txt\" 'Set here the folder you want to save the files
i = 1
lastrow = Cells(Rows.count, 1).End(xlUp).row
For row = 1 To lastrow 'Define here the starting row
    lastcol = Cells(row, Columns.count).End(xlToLeft).Column
    Sheets.Add.Name = "File" & i
    Set file = Sheets("File" & i)
    For col = 1 To lastcol
        file.Cells(1, col).Value = Cells(row, col).Value
    Next col
    file.SaveAs dir & file.Name & ".csv", xlCSV
    i = i + 1
    file.Delete
Next row
Application.DisplayAlerts = True
End Sub