âï¼1个â6âï¼1个â7âã
ä»ä½ çé®é¢è¡¥å
æ¥çï¼5个éå¤çâ3âå5个éå¤çâ5âæ¯æåºå«çï¼æ们åªè½ç¨å®ä»¬å¨13个æ°ä¸çååä½ç½®æ¥åºåå®ä»¬ã
æè¿13个æ°åæ¾å¨A1:A13åå
æ ¼åºåãå³ï¼A1=3,A2=4,A3=3,A4=3,A5=7,A6=3,A7=3,A8=5,A9=5,A10=5,A11=5,A12=6,A13=5ã
è½ç¶A1ãA3ãA4ãA6ãA7é½æ¯3ï¼ä½å®ä»¬ä¸è®¤ä¸ºæ¯ç¸åçï¼ç¨å®ä»¬çè¡å·1ã3ã4ã6ã7æ¥åºåãå®é
ä¸è¿13个æ°é½å¯ä»¥ç¨å®ä»¬çè¡å·æ¥åºåãæç¼å¶äºå¦ä¸ç¨åºï¼å¨Båååº1ã2...å°13è¿13个æ°ä¸å5个æ°çç»åï¼å¨CååååºBå对åºè¡çåå
æ ¼ä¸ç5个æ°ä¸ºè¡å·çAåçæ°ã
ä¾å¦ï¼å¨B1ä¸ååºäº1 2 3 4 5ï¼å¨C1ä¸åååºA1 A2 A3 A4 A5,å³3 4 3 3 7ã类似å°ï¼13个æ°ä¸å10个æ°çæ°æ®åå«åå¨DååEåãVBAç¨åºå¦ä¸ï¼
Private Sub CommandButton1_Click()
j = 1
For i1 = 1 To 9
For i2 = i1 + 1 To 10
For i3 = i2 + 1 To 11
For i4 = i3 + 1 To 12
For i5 = i4 + 1 To 13
Range("B" & j).Value = i1 & " " & i2 & " " & i3 & " " & i4 & " " & i5
Range("C" & j).Value = Range("A" & i1).Value & " " & Range("A" & i2).Value & " " & Range("A" & i3).Value & " " & Range("A" & i4).Value & " " & Range("A" & i5).Value
j = j + 1
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
Private Sub CommandButton2_Click()
j = 1
For i1 = 1 To 4
For i2 = i1 + 1 To 5
For i3 = i2 + 1 To 6
For i4 = i3 + 1 To 7
For i5 = i4 + 1 To 8
For i6 = i5 + 1 To 9
For i7 = i6 + 1 To 10
For i8 = i7 + 1 To 11
For i9 = i8 + 1 To 12
For i10 = i9 + 1 To 13
Range("D" & j).Value = i1 & " " & i2 & " " & i3 & " " & i4 & " " & i5 _
& " " & i6 & " " & i7 & " " & i8 & " " & i9 & " " & i10
Range("E" & j).Value = Range("A" & i1).Value & " " & Range("A" & i2).Value & " " & Range("A" & i3).Value & " " & Range("A" & i4).Value & " " & Range("A" & i5).Value _
& " " & Range("A" & i6).Value & " " & Range("A" & i7).Value & " " & Range("A" & i8).Value & " " & Range("A" & i9).Value & " " & Range("A" & i10).Value
j = j + 1
Next i10
Next i9
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
è¿æ ·ç®åºçç»åæ°åå«æ¯1287个å286个
温馨提示:答案为网友推荐,仅供参考