只能出现一次
00不能
追答Sub ss()
Dim Arr, Brr(1 To 10000, 1 To 1), i&, j&, k&, l&, m&
Arr = Array(0, 4, 5, 6, 7, 8, 9)
For i = 0 To UBound(Arr)
For j = 0 To UBound(Arr)
For k = 0 To UBound(Arr)
For l = 0 To UBound(Arr)
If i = j And j = 0 Then
ElseIf k = l And l = 0 Then
Else
m = m + 1
Brr(m, 1) = Val(Arr(i) & Arr(j)) & "*" & Val(Arr(k) & Arr(l))
End If
Next l
Next k
Next j
Next i
[A1].Resize(m, 1) = Brr
End Sub