如何将两个列表合并为一个长列表？

Question

我在第 1 列和第 2 列中有两个列表。我需要第 3 列的格式为一破折号二。

例如：

C 列需要重复 A 和 B 的所有值。

我希望有一个可能的公式，如果没有，那么我可以使用 VBA。还有，我的数据不像ABC和123那么简单。

Answer 1

您正在寻找的称为“笛卡尔积”或“外连接”。

作为 VBA 的解决方案。将以下代码复制到 Visual Basic 编辑器的右侧。您将看到您的宏现在具有名称“笛卡尔积”：（来源）

Sub cartesianproduct()
Dim startrange As Range

range1 = Application.InputBox(Prompt:="Please Select First Range", Type:=8)
range2 = Application.InputBox(Prompt:="Please Select Second Range", Type:=8)
Set startrange = Application.InputBox(Prompt:="Please select where you want to put it", Type:=8)

array1 = [range1]
array2 = [range2]

startrange.Select
For i = 1 To UBound(array1)
    For x = 1 To UBound(array2)
        z = z + 1
        ActiveCell.Offset(z, 0).Value = array1(i, 1)
        ActiveCell.Offset(z, 1).Value = array2(x, 1)
    Next
Next
End Sub

我还在这里找到了一个作为公式的解决方案（未经测试！）：

=IF(ROW()-ROW($F$1)+1>COUNTA(A:A)*COUNTA(B:B),"",INDEX(A:A,INT((ROW()-ROW($F) $1))/COUNTA(B:B)+1)) & " - " & INDEX(B:B,MOD(ROW()-ROW($F$1),COUNTA(B:B))+1))

我只在两个值之间添加了 “-” ...