公共子文本到列（）
設定 ARange = 範圍("A:A")
設定 BRange = 範圍("B:B")
設定 CRange = 範圍("C:C")
設定 DRange = 範圍("D:D")
Dim arr() 作為字串
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
設定 = Worksheets.Add
輸出名稱 = "輸出"
出行 = 2
對於 i = 2 到 lr
    arr = 分割(ARange(i), ",")
    對於 j = 0 到 UBound(arr)
        out.Cells(outRow, 1) = Trim(arr(j))
        輸出.Cells(outRow, 2) = BRange(i)
        輸出.Cells(outRow, 3) = CRange(i)
        輸出.Cells(outRow, 4) = DRange(i)
        輸出行 = 輸出行 + 1
    下面j個
接下來，我
END SUB
我沒有做標題或正確處理輸出表，但你基本上可以看到發生了什麼。