|
.Cells(1,num)=myArray(num,1) Nextnum .Range("A2").CopyFromRecordsetconn.Execute(Sql) EndWith Sheets(1).Select Sheets(1).Cells.Select Selection.Copy Worksheets(Sheets.Count).Activate ActiveSheet.Cells.Select Selection.PasteSpecialPaste:=xlPasteFormats,Operation:=xlNone,_ SkipBlanks:=False,Transpose:=False Application.CutCopyMode=False Nexti conn.Close Setconn=Nothing Application.DisplayAlerts=True Application.ScreenUpdating=True EndSub 
5、如下图所示，插入一个控件按钮，并指定宏到刚才插入的模块代码。 
6、点击插入的按钮控件，根据提示选择标题行和要拆分的列字段，本例选择“姓名”字段拆分，当然也可以选择C列的“名称”进行拆分，看实际需求。 
7、代码运行完毕后在工作簿后面会出现很多工作表，每个工作表都是单独一个人的数据。具体如下图所示： 
8、注意： 1）原始数据表要从第一行开始有数据，并且不能有合并单元格； 2）打开工作簿时需要开启宏，否则将无法运行代码。 以上就是excel将一个工作表根据条件拆分成多个工作表图文教程，希望能对大家有所帮助！ |
