1、单一的CSV文件分列的过程：打开CSV文件-选中数据第一列-数据-分列-下一步-分号-完成（1-5）。
2、CSV文件的分列过程就是这样的，如果几十个甚至是上百个CSV都需要分列，这样一个个打开岂不是很花费时间，怎么才能让所有的CSV文件自动分列呢？这里就用到了宏。把所有的Excel放到同一个文件夹中，并且新建一个Excel。
3、启用开发工具
4、编辑VBA
复制以下代码到VBA中！
Sub Macro1()
'
' Macro1 Macro
'
'
ChDir "C:\Users\Administrator\Desktop\CSV文件自动分列"
Dim sDir As String
Dim curdir As String
curdir = "C:\Users\Administrator\Desktop\CSV文件自动分列"
sDir = Dir(curdir & "\*.csv")
While Len(sDir)
Workbooks.Open Filename:=curdir & "\" & sDir
Dim temp As String
temp = Left(sDir, Len(sDir) - 4)
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1)), TrailingMinusNumbers:=True
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
sDir = Dir
Wend
End Sub
5、自动分列
