excel2007如何拆分表格（excel2010如何拆分表格）

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

excel2007表格拆分步驟如下：

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

For Each sht In Sheets

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

Next

'加入新表，避免破壞原數(shù)據(jù)中的公式或格式

Sheets("總表").Copy Before:=Sheets(1)

ICol = Application.InputBox("請(qǐng)輸入你所要拆分的列：(如按D列拆分請(qǐng)輸入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) '在原工作表中生成文本符號(hào)

Next

For i = 2 To irow

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

Next

'建立一個(gè)不重復(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] '自動(dòng)篩選，并復(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冬日暖陽(yáng)\file.htm 2012-2-1

《中國(guó)計(jì)算機(jī)年鑒 2007》頁(yè)碼，2/2

ICol))) '消除新工作表中文本符號(hào)

Next j

.Cells.AutoFilter

Debug.Print H(i)

Next i

.Delete '操作表此時(shí)已多余，故刪除

End With

A.Parent.Activate '激活匯總表的單元格

以后，單擊“拆分總表”按鈕，在彈出的對(duì)話框中輸入分表字段的列號(hào)(例如按D列拆分則輸入“4”)，點(diǎn)擊“確定”按鈕即可。

關(guān)于excel拆分表格的相關(guān)文章推薦：

1.excel2007 拆分一個(gè)工作簿多個(gè)表格的方法

2.excel2007表如何分開(kāi)顯示

3.Excel2007如何拆分單元格?

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。