使用 VBA 将我的逗号字符串转换为行效果很好 - 但现在我需要将中断与 A 列中的值相匹配。示例
A列有“树：B列是逗号字符串：山茱萸，灰，枫树，榆树，苹果。
如何显示为：
谢谢
A列有“树：B列是逗号字符串：山茱萸，灰，枫树，榆树，苹果。
如何显示为：
| [字体=Calibri]电流[/ font] | |
| [字体=Calibri]树[/ font] | [字体=Calibri]山茱萸、白蜡木、枫木、榆木、苹果[/ font] |
| [字体=Calibri]需求[/ font] | |
| [字体=Calibri]树[/ font] | [字体=Calibri]萸[/ font] |
| [字体=Calibri]树[/ font] | [字体=Calibri]灰色[/ font] |
| [字体=Calibri]树[/ font] | [字体=Calibri]枫[/ font] |
| [字体=Calibri]树[/ font] | [字体=Calibri]榆树[/ font] |
| [字体=Calibri]树[/ font] | [font=Calibri]苹果[/font] |
公共子文本ToColumns()
设置 ARange = Range("A:A")
设置 BRange = Range("B:B")
设置 CRange = Range("C:C")
设置 DRange = Range("D:D")
暗淡 arr() 作为字符串
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
列出 = Worksheets.Add
out.Name = "out"
外行 = 2
对于 i = 2 到 lr
arr =拆分（ARange（i），“，”）
对于 j = 0 到 UBound(arr)
out.Cells(outRow, 1) = 修剪(arr(j))
输出.Cells(outRow, 2) = BRange(i)
输出.Cells(outRow, 3) = CRange(i)
输出.Cells(outRow, 4) = DRange(i)
外行 = 外行 + 1
下面j个
接下来，我
END SUB
我没有做标题或正确处理输出表，但您基本上可以看到发生了什么。
设置 ARange = Range("A:A")
设置 BRange = Range("B:B")
设置 CRange = Range("C:C")
设置 DRange = Range("D:D")
暗淡 arr() 作为字符串
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
列出 = Worksheets.Add
out.Name = "out"
外行 = 2
对于 i = 2 到 lr
arr =拆分（ARange（i），“，”）
对于 j = 0 到 UBound(arr)
out.Cells(outRow, 1) = 修剪(arr(j))
输出.Cells(outRow, 2) = BRange(i)
输出.Cells(outRow, 3) = CRange(i)
输出.Cells(outRow, 4) = DRange(i)
外行 = 外行 + 1
下面j个
接下来，我
END SUB
我没有做标题或正确处理输出表，但您基本上可以看到发生了什么。
- 页：
- 1
目前还没有回复。