vba数组VBA数组的组合

VBA数组的组合

Sub test() Dim i, j, k, l As Byte Application.ScreenUpdating = False Cells(1, 1).Select For i = 1 To 30 For j = i + 1 To 31 For k = j + 1 To 32 For l = k + 1 To 33 Selection = i Selection.Offset(0, 1) = j Selection.Offset(0, 2) = k Selection.Offset(0, 3) = l Selection.Offset(1, 0).Select Next Next Next Next Application.ScreenUpdating = True End Sub 33个中取任意3个的宏如下： Sub test() Dim i, j, k As Byte Application.ScreenUpdating = False Cells(1, 1).Select For i = 1 To 31 For j = i + 1 To 32 For k = j + 1 To 33 Selection = i Selection.Offset(0, 1) = j Selection.Offset(0, 2) = k Selection.Offset(1, 0).Select Next Next Next Application.ScreenUpdating = True End Sub 33个中取任意2个的宏如下： Sub test() Dim i, j As Byte Application.ScreenUpdating = False Cells(1, 1).Select For i = 1 To 32 For j = i + 1 To 33 Selection = i Selection.Offset(0, 1) = j Selection.Offset(1, 0).Select Next Next Application.ScreenUpdating = True End Sub 在2007版中，还可以实现取5个的，自己对照修改吧。取6个以上，格子不够。