如何在 Excel 中將長清單拆分成大小相等的群組？

作者Xiaoyang修改日期2025-09-02

當您在 Excel 中處理大型資料集時，可能會需要將冗長的項目清單拆分為多個大小相等的群組。例如，分配問卷回覆、安排均衡的任務指派，或為專案組織團隊皆屬常見需求。手動分割這類清單不僅耗時，還容易出錯，尤其在資料量龐大時更為明顯。有效率地將清單拆分為相等群組，有助於簡化工作流程、提升資料整理效率，並大幅降低錯誤發生的機率。

Excel 提供多種實用方法來達成此目的——無論是透過 VBA 自動化、便捷的增益集（例如 Kutools for Excel），還是以公式為基礎的技術皆可實現。每種方法各具獨特優勢，能靈活契合不同的技能水平與使用情境。

使用 VBA 程式碼將長清單拆分為多個相等群組

使用 Kutools for Excel 將長清單拆分為多個相等群組

使用 Excel 公式將長清單拆分為多個相等群組

使用 VBA 程式碼將長清單拆分為多個相等群組

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

除了逐一複製貼上資料到不同群組這種繁瑣的方式外，VBA 能幫您快速又精準地自動化這項任務。以下是使用 VBA 將清單拆分為相同大小群組的逐步指南：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 編輯器視窗。

2. 點選插入> 模組，並將下列 VBA 程式碼貼上至新建立的模組視窗中。

VBA 程式碼：將長清單拆分為多個相等群組

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. 按下 F5 或點選執行按鈕以執行程式碼。在出現的輸入方塊中，選取您要拆分為群組的資料欄。
用於選取資料範圍的 VBA 程式碼

4. 點選確定，然後在下一個提示中選取您希望放置分組結果的起始儲存格。
用於選取儲存格以放置結果的 VBA 程式碼

5. 點選確定，並在提示對話方塊中輸入每個群組（每欄）所需的項目數量。
用於輸入您想要每欄分割的儲存格數量的 VBA 程式碼

6. 最後，點選確定完成程序。程式碼將自動把您選取的清單拆分為多個欄位，每個欄位包含指定數量的項目。注意：若清單無法精確均分為相等群組，最後一個群組的項目數可能會較少。
所選的列表資料已分割為多個相等的群組

VBA 解決方案適合熟悉巨集、且需重複自動化此任務的使用者。其一大優勢在於高度靈活——您無需額外設定，即可直接以不同群組大小執行指令碼。然而，由於涉及程式碼，在某些專業環境中可能不被允許使用；此外，不熟悉 VBA 的使用者應在執行巨集前務必先儲存工作內容。

若巨集未如預期執行，請先確認 Excel 中已啟用巨集。同時，請確保所選範圍為單一連續欄位；否則，程式碼將提示您重新選取資料區域。若清單長度無法被群組大小整除，最後一個群組的項目數將較少，規劃分配時請務必納入考量。

使用 Kutools for Excel 將長清單拆分為多個相等群組

若您已安裝 Kutools for Excel，只需幾次點擊，即可透過其轉換區域功能，快速將長清單重新排列為跨欄與列的多個群組！此方法不僅大幅減少手動操作錯誤，更能顯著提升資料整理效率。Kutools 為非技術使用者帶來專業級的易用體驗，搭配直覺式對話方塊與穩定可靠的結果，讓您輕鬆掌握高效工作流程。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請執行下列步驟：

1. 選取您要拆分的長清單，然後前往 Kutools> 範圍> 轉換區域。
點擊 Kutools 的「轉換範圍」功能

2. 在轉換區域對話方塊中，於單列轉區域下選擇轉換類型，勾選固定值，並輸入每列所需的項目數。（例如，若您希望分成四個群組，請據此指定群組大小。）此設定將決定原始清單的拆分方式。
在對話方塊中指定選項

3. 點選確定後，在工作表中選取您希望分組結果開始顯示的儲存格。
選取您要放置結果的儲存格

4. 再次點選確定，Kutools 將立即依據您的設定，將長清單拆分為等量群組。

Kutools for Excel 操作簡便，能大幅降低手動錯誤，非常適合偏好圖形介面且經常進行資料轉換的使用者。

立即下載並免費試用 Kutools for Excel！

使用 Excel 公式將長清單拆分為多個相等群組

若您不想使用 VBA 或增益集，Excel 內建的公式也能有效協助您將清單拆分為大小相等的群組。此方法特別適合需要可攜式解決方案、與所有 Excel 版本相容，且適用於共用活頁簿或無法使用巨集與第三方增益集的環境。當您的群組需並排顯示於欄位時，此方法效果最佳。

以下是為每個項目指派群組編號的方法，讓您無需任何程式碼即可輕鬆依群組篩選或重新組織清單：

1. 假設您的長清單位位於 A 欄，並從 A2 儲存格開始向下延伸。請在 B2 儲存格（第一個清單項目旁）輸入下列公式，以指派群組編號：

=MOD(ROW(A2)-ROW($A$2),4) +1

在此範例中，「4」代表您希望的群組數量。若您想拆分為不同數量的群組，請調整此數值；公式將依序循環指派群組編號 1 至 4.

2. 將公式沿著整個清單向下拖曳，即可為所有列自動指派群組編號，產生一個輔助欄位，清楚標示每列所屬的群組。

3. 若要提取或顯示群組：

您可善用篩選功能：先對清單套用自動篩選，再依群組編號進行篩選，即可快速分離所需記錄。
您可以將每個群組複製貼上至不同位置，或運用進階公式與樞紐分析表，依需求靈活調整項目順序。

若您使用的 Excel 支援動態陣列（Microsoft 365 與 Excel 2021+），可使用 WRAPROWS 函數，自動將清單均分為等量欄位！假設您的清單位於 A2:A17，且希望拆分為 4 個欄位（群組）：

=WRAPROWS(SORTBY(A2:A13, RANDARRAY(ROWS(A2:A13))), 4)

在您希望新建類別排列起始的儲存格中輸入此公式，然後按下 Enter。該函數將自動將清單平均填入各欄。

注意事項：

若您的清單無法完美均分，部分欄位可能會顯示 #N/A 錯誤。請依實際需求調整群組數量（此處為「4」）。
若範圍內包含空白儲存格，這些儲存格將在分組結果中視為零。

公式方法的優點在於完全相容於共用活頁簿，並能在資料變更時迅速重新計算群組編號。然而，輸入或調整公式時需格外謹慎——若範圍設定不符或群組數量有誤，可能導致項目遺漏或重複。若發現錯誤，請確認清單範圍正確無誤，且公式已完整向下拖曳至整個清單。

小提示：套用公式前務必備份原始資料；若您打算刪除輔助欄，請先使用選擇性貼上 > 數值。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多