用多個 FOR 和 NEXT來實現(xiàn),比如下面這個
Sub zuhe()
Dim a, b, c, d, e
For a = 1 To 9
For b = 1 To 7
For c = 1 To 6
For d = 1 To 9
e = a & b
e = e & c
e = e & d
Range("a" & 65536).End(xlUp).Offset(1, 0).Value = e
Next
Next
Next
Next
End Sub
將所有1-9,1-7,1-6,1-9的組合,共計3402個不同組合全部羅列出來
以下是你需要的宏,要設(shè)置a,b,c,d列里面為你要組合出來的數(shù)字,最大組合能力262140個 ：
Sub zuhe()
Dim A, B, C, D
Dim H, I, J, K, L, M
A = Application.WorksheetFunction.Max(Range("a:a"))
B = Application.WorksheetFunction.Max(Range("b:b"))
C = Application.WorksheetFunction.Max(Range("c:c"))
D = Application.WorksheetFunction.Max(Range("d:d"))
For H = 1 To A
For I = 1 To B
For J = 1 To C
For K = 1 To D
M = M + 1
L = Range("a" & H).Value & Range("b" & I).Value & Range("c" & J).Value & Range("d" & K).Value
Range("e1").Value = "組合如下:"
If M