|
- Sub aa()
- arr = Array(0, 2, 4, 8)
- For i1 = 0 To 3
- For i2 = 0 To 3
- For i3 = 0 To 3
- For i4 = 0 To 3
- For i5 = 0 To 3
- For i6 = 0 To 3
- For i7 = 0 To 3
- For i8 = 0 To 3
- If arr(i1) + arr(i2) + arr(i3) + arr(i4) + arr(i5) + arr(i6) + arr(i7) + arr(i8) = 16 Then
- m = m + 1
- s = arr(i1) & arr(i2) & arr(i3) & arr(i4) & arr(i5) & arr(i6) & arr(i7) & arr(i8)
- s = Replace(s, 0, "")
- Range("a2").Offset(m, 0) = s
- End If
- Next i8, i7, i6, i5, i4, i3, i2, i1
- Range("a2") = m
- Selection.AutoFilter
- ActiveSheet.Range("$A$2:$A$2425").RemoveDuplicates Columns:=1, Header:=xlNo
- End Sub
复制代码65536 | | 2423 | 340 | 88 | 3 | 448 | 4 | 484 | 4 | 844 | 4 | 2248 | 5 | 2284 | 5 | 2428 | 5 | 2482 | 5 | 2824 | 5 | 2842 | 5 | 4228 | 5 | 4282 | 5 | 4444 | 5 | 4822 | 5 | 8224 | 5 | 8242 | 5 | 8422 | 5 | 22228 | 6 | 22282 | 6 | 22444 | 6 | 22822 | 6 | 24244 | 6 | 24424 | 6 | 24442 | 6 | 28222 | 6 | 42244 | 6 | 42424 | 6 | 42442 | 6 | 44224 | 6 | 44242 | 6 | 44422 | 6 | 82222 | 6 | 222244 | 7 | 222424 | 7 | 222442 | 7 | 224224 | 7 | 224242 | 7 | 224422 | 7 | 242224 | 7 | 242242 | 7 | 242422 | 7 | 244222 | 7 | 422224 | 7 | 422242 | 7 | 422422 | 7 | 424222 | 7 | 442222 | 7 | 2222224 | 8 | 2222242 | 8 | 2222422 | 8 | 2224222 | 8 | 2242222 | 8 | 2422222 | 8 | 4222222 | 8 | 22222222 | 9 |
|
|