本例介紹在excel中如何將一個工作表根據條件拆分成多個工作表。

注意：很多朋友反映sheets(i).delete這句代碼出錯，要注意下面第一個步驟，要拆分的數據工作表名稱為“數據源”，而不是你新建工作簿時的sheet1這種。手動改成“數據源”即可。

操作步驟：

原始數據表如下（名稱為：數據源），需要根據B列人員姓名拆分成每個人一個工作表。

點擊【開發工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯界面。

如下圖所示插入一個新的模塊。

如下圖，粘貼下列代碼在模塊中：

1. Sub CFGZB()      
2.     Dim myRange As Variant      
3.     Dim myArray      
4.     Dim titleRange As Range      
5.     Dim title As String      
6.     Dim columnNum As Integer      
7.     myRange = Application.InputBox(prompt:="請選擇標題行：", Type:=8)      
8.     myArray = WorksheetFunction.Transpose(myRange)      
9.     Set titleRange = Application.InputBox(prompt:="請選擇拆分的表頭，必須是第一行，且為一個單元格，如：“姓名”", Type:=8)      
10.     title = titleRange.Value      
11.     columnNum = titleRange.Column      
12.     Application.ScreenUpdating = False      
13.     Application.DisplayAlerts = False      
14.     Dim i&, Myr&, Arr, num&      
15.     Dim d, k      
16.     For i = Sheets.Count To 1 Step -1