1098EXCEL列出清單方法-VBA版

EXCEL列出清單方法-VBA版

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