Re: [算表] 依分類資料產生csv檔案

看板Office作者windknife18 (windknife18)時間4月前 (2024/07/06 16:57)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

剛好有空閒，寫一下很久沒玩的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 : 依此類推 : 有什麼方便拆檔案的方法嗎，感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.116.138.85 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1720256276.A.04E.html ※ 編輯: windknife18 (122.116.138.85 臺灣), 07/06/2024 17:04:45 ※ 編輯: windknife18 (140.131.84.79 臺灣), 07/08/2024 09:57:36