- 打開你的 Excel 工作表。
- 按下?
Alt + F11?組合鍵，打開 VBA 編輯器。 - 在 VBA 編輯器中，點擊?
插入?->?模塊。 - 在模塊窗口中，輸入以下 VBA 代碼：
Sub GenerateItems()Dim lastRow As LongDim i As Long, j As LongDim item As StringDim count As LongDim col As LonglastRow = Cells(Rows.Count, 1).End(xlUp).Row '獲取數據的最后一行For i = 1 To lastRowitem = Cells(i, 1).Value '獲取第一項（第一列）的內容count = Cells(i, 2).Value '獲取第二項（第二列）的數字col = 3 '從第三列開始放置生成的內容For j = 1 To countCells(i, col).Value = item & "_" & jcol = col + 1 '移動到下一列Next jNext i
End Sub- 輸入完代碼后，關閉 VBA 編輯器。
- 按下?
Alt + F8?組合鍵，在彈出的對話框中選擇?GenerateItems?宏，然后點擊?運行?按鈕。
請注意：
- 上述代碼假設你的數據從第一行開始且沒有表頭。如果數據有表頭或者從其他行開始，需要相應調整代碼中的行號參數。
- 如果生成的列數較多，可能會超出當前已顯示的列范圍，你可以通過拖動列標來查看完整的結果。
)
 ： Fisk‘s proof)
