1樓：匿名使用者
如果你只是需要結果的話，可以用函式=combin(20,8)直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，**完善如下：
sub zuhe()
dim times as double
for i1 = 1 to 13
for i2 = i1 + 1 to 14for i3 = i2 + 1 to 15for i4 = i3 + 1 to 16for i5 = i4 + 1 to 17for i6 = i5 + 1 to 18for i7 = i6 + 1 to 19for i8 = i7 + 1 to 20times = times + 1
next
next
next
next
next
next
next
next
end sub
2樓：tat蘿蔔
迴圈唄。
for i1=1 to 13
for i2=i1+1 to 14
...i8=i7+1 to 20
j=j+1
c(j)=i1 & i2 & ... & i8next...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
如何用EXCEL的VBA來實現根據條件篩選結果
陸不大 這個問題我也沒做過,臨時找了兩個函式,結合起來能解決,也許不是最好的辦法,但能解決總是好的,呵呵 做出的樣表如下 a b c d 1 姓名 班級 班級 班級 2 1222 2323 3434 3 姓名 班級 數學成績 語文成績 4 張三 1222 78 85 5 李四 2323 79 83 ...
Excel如何用VBA實現表資料格式轉換
這個實現起來不難，主要是程式的控制，試試下面的 sub zz dim ar,a b n t a array 3,7,11 b array 6,10,15 ar sheets 1 a1 currentregion.value redim c 1 to ubound ar 1 ubound b 2 1 ...