|
问题请见附件,请帮忙看看,谢谢!
PS:
northwolves 版主帮我解决了这个问题,有此问题的可用以下代码解决,代码如下:
Dim arr(1 To 65536, 1 To 1) As String, count As Long, x
Sub getall(ByVal n As Byte)
Dim i As Integer, j As Integer, k As Integer, a()
ReDim a(1 To n)
k = 1
Do
a(k) = a(k) + 1
If a(k) > 11 Then
k = k - 1
Else
For i = 1 To k - 1
If a(k) = a(i) Then Exit For
Next
If i = k Then
If k = n Then
count = count + 2
arr(count, 1) = x(1, 1)
For j = 1 To n
count = count + 1
arr(count, 1) = x(1 + a(j), 1)
Next
End If
If k < n Then k = k + 1: a(k) = a(k - 1)
End If
End If
Loop Until k = 0
End Sub
Sub getit()
Dim i As Byte
x = [a2:a13]
For i = 1 To 11
getall i
Next
[d1].Resize(65536) = arr
MsgBox "Ok"
End Sub
[ 本帖最后由 guojiare 于 2009-6-7 15:06 编辑 ] |
|