Sub ZH()
Dim Arr As Variant, Brr(1 To 10, 1 To 1) As Variant, i As Byte, j As Byte, k As Byte, n As Integer
Arr = Range("A1:A5")
For i = 1 To 3
For j = (i + 1) To 4
For k = (j + 1) To 5
n = n + 1
Brr(n, 1) = Arr(i, 1) & "," & Arr(j, 1) & "," & Arr(k, 1)
Next k
Next j
Next i
Range("B1").Resize(10, 1).ClearContents
Range("B1").Resize(10, 1) = Brr
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024