excel2007如何拆分表格
相信不少朋友都遇到過這樣棘手的問題,把總表中的大量的數(shù)據(jù)拆分成多個子表。下面讓學(xué)習(xí)啦小編為你帶來excel2007拆分表格的方法。
excel2007表格拆分步驟如下:
刪除所有分表(只保留名為 "總表"的工作表)
For Each sht In Sheets
If sht.Name <> "總表" Then sht.Delete
Next
'加入新表,避免破壞原數(shù)據(jù)中的公式或格式
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
'建立一個不重復(fù)的篩選條件
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] '自動篩選,并復(fù)制到新建的表中
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
《中國計算機(jī)年鑒 2007》頁碼,2/2
ICol))) '消除新工作表中文本符號
Next j
.Cells.AutoFilter
Debug.Print H(i)
Next i
.Delete '操作表此時已多余,故刪除
End With
A.Parent.Activate '激活匯總表的單元格
以后,單擊“拆分總表”按鈕,在彈出的對話框中輸入分表字段的列號(例如按D列拆分則輸入“4”),點擊“確定”按鈕即可。
關(guān)于excel拆分表格的相關(guān)文章推薦: