VBA將一列寫入另一列格式的文本文件

Question

我有兩列數據。

file,category 
a,1 
b,1 
c,1 
d,2 
e,2 
f,2 
g,3 
h,3 
i,3 

我想將第一列打印到由第二列格式化的文本文件。

例如。

category 1 
a 
b 
c 
category 2 
d 
e 
f 
category 3 
g 
h 
i 

任何幫助表示讚賞。

Answer 1

這適用於您發佈的數據：

Sub testlist3() 
    Open "C:\TestFolder\testlist" & Format(Now(), "_yyyy-mm-dd_hh-mm") & ".lst" For Output As #1 
    Dim N As Long, L As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    Print #1, "catagory " & Cells(1, "B").Value 
    Print #1, Cells(1, "A").Value 
    For L = 2 To N 
     If Cells(L, "B").Value <> Cells(L - 1, "B").Value Then 
      Print #1, "catagory " & Cells(L, "B").Value 
     End If 
     Print #1, Cells(L, "A").Value 
    Next L 
    Close #1 
    MsgBox "done" 
End Sub