excel2007如何拆分表格

時間：2016-09-20 15:10:59 嘉銘873由分享

　　相信不少朋友都遇到過這樣棘手的問題，把總表中的大量的數(shù)據(jù)拆分成多個子表。下面讓學習啦小編為你帶來excel2007拆分表格的方法。

　　excel2007表格拆分步驟如下：

　　刪除所有分表(只保留名為 "總表"的工作表)

　　For Each sht In Sheets

　　If sht.Name <> "總表" Then sht.Delete

　　'加入新表，避免破壞原數(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) '在原工作表中生成文本符號

　　For i = 2 To irow

　　H.Add .Cells(i， ICol)， CStr(.Cells(i， ICol))

　　'建立一個不重復的篩選條件

　　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拆分表格的相關文章推薦：