excel将一个工作表根据条件拆分成多个工作表图文教程

本例介绍在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