excel求一列数据中任意三位数的组合集，如图在B列列出A列任意三位数组合

更新时间2021-09-11 06:51:52

代码如下：

Sub mytest()
Dim i&, j&, k&, n&
Dim ar, cr()
ar = Range("a2:a" & Range("a65536").End(3).Row)
For i = 1 To UBound(ar)
    For j = 1 To UBound(ar)
        For k = 1 To UBound(ar)
            n = n + 1
            ReDim Preserve cr(1 To n)
            cr(n) = ar(i, 1) & ar(j, 1) & ar(k, 1)
        Next
    Next
Next
Range("b2").Resize(n, 1) = Application.Transpose(cr)
End Sub

参考https://wenda.so.com/q/1623027057218695