錦子老師

1098	EXCEL列出清單方法-VBA版
示範檔	無	範例檔	1098.XLSX	結果檔	1098F.XLSX

淑華：「錦子老師，有個Excel資料類似圖片左邊，是X/Y方式的對照表，請問要用什麼公式，才能把對照表中有V的項目轉換成右邊的清單(清單A或是清單B都可以)。

PS.這是某個Excel表格的一部分，資料會一直異動增減，需要用公式的方式讓清單能保持自動更新。

錦子老師：「淑華，其實用VBA寫一個程式即可。」

按ALT+F11鍵開啟VBA視窗。

點取「插入 > 模組」指令。

輸入程式內容：

Sub 巨集1()

k = 0

RowCnt = Cells(65535, 1).End(xlUp).Row - 1

ColCnt = Cells(1, 255).End(xlToLeft).Column - 1

For i = 1 To RowCnt

For j = 1 To ColCnt

If Cells(i + 1, j + 1) <> "" Then

k = k + 1

Cells(k + 3, 9) = Cells(i + 1, 1) & "-" & Cells(1, j + 1)

Cells(k + 3, 12) = Cells(i + 1, 1)

Cells(k + 3, 13) = Cells(1, j + 1)

End If

Next

Next

End Sub