在 Excel 中合并三列数据的所有组合

Question 1

原文出处艾克赛尔在 SO 上这里.他的代碼。

最简单的方法是单独获取列表并将它们存储在数组中。然后使用数组输出所有可能的组合。此代码将在 3 个不同的列中输出，但如果您需要将它们连接在一个单元格中

Sub combinations()

Dim c1() As Variant
Dim c2() As Variant
Dim c3() As Variant
Dim out() As Variant
Dim j, k, l, m As Long


Dim col1 As Range
Dim col2 As Range
Dim col3 As Range
Dim out1 As Range


Set col1 = Range("A1", Range("A1").End(xlDown))
Set col2 = Range("B1", Range("B1").End(xlDown))
Set col3 = Range("C1", Range("C1").End(xlDown))

c1 = col1
c2 = col2
c3 = col3

Set out1 = Range("E2", Range("G2").Offset(UBound(c1) * UBound(c2) * UBound(c3)))
out = out1

j = 1
k = 1
l = 1
m = 1


Do While j <= UBound(c1)
    Do While k <= UBound(c2)
        Do While l <= UBound(c3)
            out(m, 1) = c1(j, 1)
            out(m, 2) = c2(k, 1)
            out(m, 3) = c3(l, 1)
            m = m + 1
            l = l + 1
        Loop
        l = 1
        k = k + 1
    Loop
    k = 1
    j = j + 1
Loop


out1.Value = out
End Sub

Answer

原文出处艾克赛尔在 SO 上这里.他的代碼。

最简单的方法是单独获取列表并将它们存储在数组中。然后使用数组输出所有可能的组合。此代码将在 3 个不同的列中输出，但如果您需要将它们连接在一个单元格中

Sub combinations()

Dim c1() As Variant
Dim c2() As Variant
Dim c3() As Variant
Dim out() As Variant
Dim j, k, l, m As Long


Dim col1 As Range
Dim col2 As Range
Dim col3 As Range
Dim out1 As Range


Set col1 = Range("A1", Range("A1").End(xlDown))
Set col2 = Range("B1", Range("B1").End(xlDown))
Set col3 = Range("C1", Range("C1").End(xlDown))

c1 = col1
c2 = col2
c3 = col3

Set out1 = Range("E2", Range("G2").Offset(UBound(c1) * UBound(c2) * UBound(c3)))
out = out1

j = 1
k = 1
l = 1
m = 1


Do While j <= UBound(c1)
    Do While k <= UBound(c2)
        Do While l <= UBound(c3)
            out(m, 1) = c1(j, 1)
            out(m, 2) = c2(k, 1)
            out(m, 3) = c3(l, 1)
            m = m + 1
            l = l + 1
        Loop
        l = 1
        k = k + 1
    Loop
    k = 1
    j = j + 1
Loop


out1.Value = out
End Sub

Question 2

一种方法是创建一个“三维”表来捕获所有组合。您的列表有 11、11 和 5 个条目，因此请创建五个 11x11 表。这五个表中的每一个都将包含涉及第三列中条目之一的组合。每个表中的单元格将反映第一列中的一个项目和第二列中的一个项目的组合。

假设您显示的数据在中A1:C11。创建第一个以开始的表格A15。我们将用索引号标记表格的行和列，这些索引号将用于查找表格中每个条目的单元格。因此，表格 1 将设置如下：

         [A]  [B]  [C]  [D]  [E]  [F]  [G]  [H]  [I]  [J]  [K]  [L]
    [15]       0    1    2    3    4    5    6    7    8    9    10
    [16]  0
    [17]  1
    [18]  2
    [19]  3
    [20]  4
    [21]  5
    [22]  6
    [23]  7
    [24]  8
    [25]  9
    [26] 10

公式B16为：

    =OFFSET($A$1,$A16,0,)&OFFSET($B$1,B$15,0,)&$C$1

复制此表达式以填充表中的所有单元格。第一个表达式将列表锚定在 A 列中并选择与表的行标签相对应的条目（第一行的偏移量为零，因此它引用列表中的第一个条目）。第二个表达式将列表锚定在 B 列中并选择与列标签相对应的条目。第三个表达式对第一个表中的所有条目使用 C 列列表中的第一个值。表达式中的美元符号将公式锚定到表的行和列标签，因此您可以复制公式来填充表，并且每个单元格将引用正确的标签。与号将三个值连接起来。如果您想在值之间使用分隔符，如显示的连字符，请使用它代替公式中的与号：

    &"-"&

因此B16将显示adaren或ad-ar-en。 C16将显示adren或ad-r-en。 B17将显示adoaren或ado-ar-en。

在第一个表格旁边或下方以完全相同的方式创建其他表格，只要方便即可。输入第一个单元格的公式时，指向该表格中的行和列标签。例如，如果第二个表格从第一个表格下方开始，例如，，则A30第一个表格单元格将是B31。该公式中的第一个表达式将使用$A31而不是$A16，以及B$30而不是B$15。第二个表格中的最后一个表达式将是$C$2而不是$C$1。在第三个表格中，它将是$C$3，依此类推。

这五个表将包含列表条目的所有组合。

Answer