excel2007如何拆分表格
相信不少朋友都遇到过这样棘手的问题，把总表中的大量的数据拆分成多个子表。下面让学习啦小编为你带来excel2007拆分表格的方法。
excel2007表格拆分步骤如下：
删除所有分表(只保留名为 "总表"的工作表)
For Each sht In Sheets
学习啦在线学习网 If sht.Name <> "总表" Then sht.Delete
Next
学习啦在线学习网 '加入新表，避免破坏原数据中的公式或格式
Sheets("总表").Copy Before:=Sheets(1)
学习啦在线学习网 ICol = Application.InputBox("请输入你所要拆分的列：(如按D列拆分请输入4)"， "提示："， "2"， Type:=1)
If ICol = "" Then Exit Sub
学习啦在线学习网 On Error Resume Next
With Sheets("总表 (2)")
irow = .[a1].CurrentRegion.Rows.Count
For i = 2 To irow
Cells(i， ICol) = " ' " & Cells(i， ICol) '在原工作表中生成文本符号
Next
学习啦在线学习网 For i = 2 To irow
学习啦在线学习网 H.Add .Cells(i， ICol)， CStr(.Cells(i， ICol))
Next
学习啦在线学习网 '建立一个不重复的筛选条件
For i = 1 To H.Count
学习啦在线学习网 .Cells.AutoFilter field:=ICol， Criteria1:=H(i)
Sheets.Add(after:=Sheets(Sheets.Count)).Name = H(i)
学习啦在线学习网 .[a1].CurrentRegion.Copy Sheets(CStr(H(i))).[a1] '自动筛选，并复制到新建的表中
irow1 = [a1].CurrentRegion.Rows.Count
学习啦在线学习网 For j = 2 To irow1
学习啦在线学习网 Cells(j， ICol) = Right(Cells(j， ICol)， Len(Cells(j，
file://D:\Program Files\cpcw\PCWReadSys2012\skin\A冬日暖阳\file.htm 2012-2-1
《中国计算机年鉴 2007》页码，2/2
ICol))) '消除新工作表中文本符号
Next j
学习啦在线学习网 .Cells.AutoFilter
Debug.Print H(i)
Next i
.Delete '操作表此时已多余，故删除
End With
学习啦在线学习网 A.Parent.Activate '激活汇总表的单元格
学习啦在线学习网 以后，单击“拆分总表”按钮，在弹出的对话框中输入分表字段的列号(例如按D列拆分则输入“4”)，点击“确定”按钮即可。
关于excel拆分表格的相关文章推荐：