Excel是一款廣泛使用的辦公軟件，其主要功能之一是幫助我們制作表格。然而，許多用戶不知道如何將一個工作表根據條件拆分成多個工作表。如果你也遇到了這個問題，不要擔心，下面是小編整理的解決方法。 步驟

Excel是一款廣泛使用的辦公軟件，其主要功能之一是幫助我們制作表格。然而，許多用戶不知道如何將一個工作表根據條件拆分成多個工作表。如果你也遇到了這個問題，不要擔心，下面是小編整理的解決方法。

步驟一：打開Excel表格

首先，點擊打開Excel表格的軟件圖標，進入到表格窗口。在這個窗口中，你可以看到Excel的各項功能和工具。

步驟二：進入VBE編輯界面

接下來，點擊Excel窗口上方的【開發工具】選項卡，然后點擊【Visual Basic】按鈕（或者按下快捷鍵Alt F11），即可進入VBE（Visual Basic Editor）編輯界面。

步驟三：插入新模塊

在VBE編輯界面中，你將看到一個類似代碼編輯器的窗口。在這里，你需要插入一個新的模塊，以便編寫拆分工作表的代碼。

在VBE編輯界面的左側窗口中，選擇你要添加模塊的位置（例如：【VBAProject】 - 【Microsoft Excel Objects】），然后右鍵點擊，選擇【插入】-【模塊】。

步驟四：編寫拆分工作表的代碼

在新插入的模塊中，你可以編寫拆分工作表的代碼。以下是一個示例代碼，用于根據工作表中的條件拆分成多個工作表：

Sub SplitSheetByCondition()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim nameColumn As Range
    Dim cell As Range
    Set ws  ("數據源") '需要拆分的工作表名稱
    With ws
        lastRow  .Cells(, "B").End(xlUp).Row
        Set nameColumn  .Range("B2:B"  lastRow) '根據何列拆分（這里以B列為例）
        For Each cell In nameColumn
            If Not SheetExists() Then
                Set newWs  (After:())
                  
            Else
                Set newWs  ()
            End If
             newWs.Cells(newWs.Cells(, "A").End(xlUp).Row   1, 1)
        Next cell
    End With
End Sub
Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws  (sheetName)
    On Error GoTo 0
    SheetExists  Not ws Is Nothing
End Function

請注意，在這段代碼中，你需要根據實際情況修改工作表的名稱和條件列的范圍。

步驟五：運行代碼

完成代碼編寫后，你可以關閉VBE編輯界面，并在Excel的工具欄上找到剛剛添加的宏按鈕。點擊宏按鈕，選擇【SplitSheetByCondition】宏，并點擊【運行】按鈕，代碼將開始執行。

總結

通過以上步驟，你就可以輕松地將一個工作表根據條件拆分成多個工作表了。這對于大量數據的處理和管理非常有用，希望本文能夠幫助到你！