excel求一列数据中任意三位数的组合集,如图在B列列出A列任意三位数组合
代码如下:
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
热门标签: