在Excel中，有時候我們需要從一列中選擇特定數(shù)量的數(shù)字進行組合。通過使用VBA編程，我們可以快速實現(xiàn)這個功能。 打開VBA編輯器并插入模塊 首先，點擊Excel菜單欄上的【開發(fā)工具】，然后選擇【

在Excel中，有時候我們需要從一列中選擇特定數(shù)量的數(shù)字進行組合。通過使用VBA編程，我們可以快速實現(xiàn)這個功能。

打開VBA編輯器并插入模塊

首先，點擊Excel菜單欄上的【開發(fā)工具】，然后選擇【Visual Basic】進入VBA編輯器。在VBA編輯器的菜單欄上點擊【插入】，再選擇【模塊】來插入一個新模塊。

編寫VBA代碼

在VBA編輯器的代碼框中輸入以下程序：

Sub Zuhe()
    Dim i, j, k, l, m As Long
    Dim a, b, c, d As String
    m  0 '將m的初始值設(shè)為0
    Set mysheet1  ("Sheet1")
    For i  1 To 12 '每個數(shù)值都有12次的選擇機會
        For j  1 To 12
            For k  1 To 12
                For l  1 To 12
                    a  mysheet1.Cells(i, 1) '將第i個單元格里面的數(shù)值賦給a
                    If j <> i Then '如果已經(jīng)選擇第i個單元格里面的數(shù)值，則其他的不能再選擇了
                        b  mysheet1.Cells(j, 1)
                        If k <> i And k <> j Then '如果已經(jīng)選擇第i、j個單元格里面的數(shù)值，則其他的不能再選擇了
                            c  mysheet1.Cells(k, 1)
                            If l <> i And l <> j And l <> k Then '如果已經(jīng)選擇第i、j、k個單元格里面的數(shù)值，則其他的不能再選擇了
                                d  mysheet1.Cells(l, 1)
                                m  m   1
                                mysheet1.Cells(m, 2)  a  b  c  d '將選擇出來的數(shù)值進行組合放到第2列
                            End If
                        End If
                    End If
                Next
            Next
        Next
    Next
End Sub

運行程序并查看結(jié)果

點擊VBA編輯器工具欄中的“運行”圖標(biāo)或按下【F5】鍵來運行程序。程序運行完成后，在Excel表格的第2列中即可看到計算結(jié)果。在本例中，共有11880行組合，與計算的組合數(shù)（C12*11*10*911880）相符。