剛好有空閒，寫一下很久沒玩的VBA,看看合不合用囉
Sub splitCsv()
Dim lRow As Long, i As Integer
Dim fileName As String, textData As String, fileNo As Integer
Dim preString As String
lRow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
preString = ""
For i = 2 To lRow
If preString <> Cells(i, 1) Then
If preString <> "" Then
Close #fileNo
End If
fileName = ActiveWorkbook.Path & "/" & Cells(i, 1) & ".csv"
fileNo = FreeFile
Open fileName For Output As #fileNo
textData = "ID,名稱"
Print #fileNo, textData
End If
textData = Cells(i, 2) & "," & Cells(i, 3)
Print #fileNo, textData
If preString <> Cells(i, 1) Then
End If
preString = Cells(i, 1)
Next i
Close #fileNo
Application.ScreenUpdating = True
MsgBox "完成"
End Sub
※ 引述《abc1234586 (青葉ＡＢＣ)》之銘言：
: 軟體:Excel
: 版本:2016
: 目前手上有這筆資料
: 項目 ID 名稱
: 1 AAAA AA
: 1 BBBB BB
: 1 CCCC CC
: 1 DDDD DD
: 2 AAAA AA
: 3 QQQQ QQ
: 4 AAAA AA
: 4 BBBB BB
: 5 AAAA AA
: 5 BBBB BB
: 6 AAAA AA
: 7 AAAA AA
: 8 AAAA AA
: 9 AAAA AA
: 想要依照「項目」拆分成不同的csv檔案(例子：1.csv/2.csv/3.csv等)
: 然後內容如下：
: [1.csv]
: ID 名稱
: AAAA AA
: BBBB BB
: CCCC CC
: DDDD DD
: [2.csv]
: ID 名稱
: AAAA AA
: [3.csv]
: ID 名稱
: QQQQ QQ
: 依此類推
: 有什麼方便拆檔案的方法嗎，感謝