在日常舉行的體育比賽中，分組是一項比較困難的任務(wù)。由于涉及到各種因素，如天時地利人和等，如果不能適當(dāng)?shù)剡M(jìn)行分組，可能會引起很多抱怨。在這里，我們可以通過使用VBA代碼來實現(xiàn)比賽的隨機(jī)自動分組，從而避免

在日常舉行的體育比賽中，分組是一項比較困難的任務(wù)。由于涉及到各種因素，如天時地利人和等，如果不能適當(dāng)?shù)剡M(jìn)行分組，可能會引起很多抱怨。在這里，我們可以通過使用VBA代碼來實現(xiàn)比賽的隨機(jī)自動分組，從而避免一些不必要的麻煩。

準(zhǔn)備工作

1. 首先，新建一個表格，在表格中輸入以下內(nèi)容："姓名", "性別", "班級", "往屆成績"。

2. 單擊菜單欄中的"開發(fā)工具"，然后選擇"Visual Basic"，打開VBA編輯器。

3. 在VBA編輯器中，單擊菜單欄的"插入"，然后選擇"模塊"，打開代碼編輯框，我們將在其中插入代碼。

編寫VBA代碼

現(xiàn)在，我們將編寫VBA代碼來實現(xiàn)自動分組的功能。

```vba

Option Explicit

Sub FenZu()

Dim arr, arr1(), arr2(), arr11, arr22, iamp;, jamp;, mamp;, namp;, arrD(), p1

Dim rng As Range, p As Long, zs(), rs As Long, d, darr1, darr2, str As String

False

Set d CreateObject("Scripting.Dictionary")

arr Sheets("sheet1").Range("a3:d15")

str "請輸入分組數(shù)"

line1:

p1 (prompt:str, Type:1)

If p1 False Then