使用 VBA 將逗號字串轉換為行效果很好 - 但現在我需要將突破與 A 列中的值相符。範例
A 欄有「樹木：B 欄位是逗號字串：Dogwood,Ash,Maple,Elm,Apple。
我如何顯示為：
謝謝
A 欄有「樹木：B 欄位是逗號字串：Dogwood,Ash,Maple,Elm,Apple。
我如何顯示為：
| [字體=Calibri]電流測試棒[/字體] | |
| [字體=Calibri]樹[/字體] | [字體=Calibri]山茱萸、白蠟木、楓木、榆木、蘋果[/字體] |
| [字體=Calibri]需要[/字體] | |
| [字體=Calibri]樹[/字體] | [字體=Calibri]萸[/字體] |
| [字體=Calibri]樹[/字體] | [字體=Calibri]灰色[/字體] |
| [字體=Calibri]樹[/字體] | [字體=Calibri]楓木色[/字體] |
| [字體=Calibri]樹[/字體] | [字體=Calibri]榆樹[/字體] |
| [字體=Calibri]樹[/字體] | [font=Calibri]蘋果[/font] |
公共子文本到列（）
設定 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
我沒有做標題或正確處理輸出表，但你基本上可以看到發生了什麼。
設定 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
我沒有做標題或正確處理輸出表，但你基本上可以看到發生了什麼。
- 頁：
- 1
有沒有為這個職位尚未作出回复。