如何使用排除某些类型组合的数据创建 Excel 列表

Question

我有两个包含相同数据集的列表（例如 A、B、C、D），我希望能够创建一个组合列表，将相同数据排除两次（例如 A/A、B/ B 等）和反向集（即 A/B 表示我不想要 B/A）

如果这很重要，我正在使用 Excel for Mac 2011。

编辑：

理想情况下，我想使用表格而不是输入单个数据片段，因为实际列表很长

以下表名为 T_TESTA 和 T_TESTB：

编辑 2：

下面提供给我的两种解决方案都运行良好，但我只能选择一个。因此，我选择一个基于简化为我提出的与代码本身完全无关的问题的问题。另一种解决方案在将数据一起显示在列表中时稍微优雅一些​​。

Answer 1

试试这个简短的宏：

Sub Kombo()
    arr = Array("A", "B", "C", "D")

    k = 1
    For i = 0 To 2
        For j = i + 1 To 3
            Cells(k, 1) = arr(i) & arr(j)
            k = k + 1
        Next j
    Next i

End Sub

循环被配置为创建组合而不是排列。

编辑#1：

在这个版本的代码中，我们从单元格而不是内部数组中获取值。我假设这些值在 E1 到 E4 中：

Sub Kombo2()
    Dim arr(0 To 3) As Variant

    For i = 0 To 3
        arr(i) = Range("E" & i + 1).Value
    Next i

    k = 1
    For i = 0 To 2
        For j = i + 1 To 3
            Cells(k, 1) = arr(i) & arr(j)
            k = k + 1
        Next j
    Next i

End Sub

结果仍然显示在列A

Answer 2

以下是我为 Google 表格 here 制定并翻译回 Excel 的几个公式：

=IFERROR(INDEX(A:A,CEILING((2*COUNTA(A:A)-1-SQRT((2*COUNTA(A:A)-1)^2-8*ROW()))/2,1)),"")

和

=IFERROR(INDEX(A:A,COUNTA(A:A)+ROW()-((2*COUNTA(A:A)-1)*CEILING(((2*COUNTA(A:A)-1)-SQRT((2*COUNTA(A:A)-1)^2-8*ROW()))/2,1)-CEILING(((2*COUNTA(A:A)-1)-SQRT((2*COUNTA(A:A)-1)^2-8*ROW()))/2,1)^2)/2),"")