sql - 用于组合范围的 Excel 函数或 VBA 脚本

Question

我有 2 列，每列都有不同数量的行。在这种情况下，我想将 A1 中的项目与范围(B1:B50)合并(标量倍数？多个矩阵？)，然后对 A 列中的每个项目重复。

理想情况下，这两个值将用逗号分隔。 Here's what I'd like to accomplish .

最好的路线是什么？矩阵函数可以用于组合文本吗？

Answer 1

试试这个代码:

Sub sample()

    Dim lastRowA As Long, lastRowB As Long, row As Long

    lastRowA = Range("A" & Rows.Count).End(xlUp).row
    lastRowB = Range("B" & Rows.Count).End(xlUp).row

    row = 1
    For i = 1 To lastRowA
        For j = 1 To lastRowB
            Cells(row, 4) = Cells(i, 1)
            Cells(row, 5) = Cells(i, 1) & "," & Cells(j, 2)
            row = row + 1
        Next
    Next

End Sub