利用【資料透視表】功能可以實現：

如以下資料需要按班級顯示在每個工作表上：

具體操作方法：

四、按下圖所示，將對應的標題項拖動到對應的位置。

五、按如下圖操作：

七、按班級自動生成對應的工作表以及資料。

工作表部分：

資料部分：

完成！

方法有三：

1、將表格按年級、班級排序，分段剪下到各班的excel表中，最簡單，最有效

2、利用資料透視表功能，篩出各班，逐班剪貼，操作略複雜，需掌握一定技巧

3、用Vba宏功能，編一段程式碼，可自動實現，最方便，但要有程式設計基礎，程式碼可參考：http://club.excelhome.net/thread-844996-1-1.html

這個問題用函式和VBA程式碼就可以輕鬆解決，簡單幾步即可。一、準備工作

1、表格存放路徑：D:\各班級成績 （可根據自己的存放位置自行修改），直接複製路徑即可。如圖：

2、表格的準備，表1存放資料來源，表2羅列班級，注意班級不要重複，表3是一個空表，命名為“data”，起過渡作用。

如圖：

表1

表2

表3

以上準備工作做好後，接下來就是操作了。

在表1（資料來源）按 AIT+F11，調出VBA視窗，複製貼上以下程式碼

Sub 按班級拆分表格()

Dim i

Dim b

i = 2

While Sheets("班級").Cells(i, 1) <> ""

b = Sheets("班級").Cells(i, 1)

Sheets("資料來源").Select

Rows("1:1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$D$2001").AutoFilter Field:=1, Criteria1:=b

Range("A1:D1").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("data").Select

Range("A1").Select

ActiveSheet.Paste

Range("G6").Select

Sheets("data").Select

Application.CutCopyMode = False

Sheets("data").Copy

ActiveWorkbook.SaveAs Filename:="D:\各班級成績\" & b & ".xlsx", FileFormat:= _xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Range("A1:D4").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.ClearContents

i = i + 1

Wend

End Sub

然後關閉VBA對話方塊，在表1視窗按ALT+F8執行程式碼即可。

如下圖：

複製貼上程式碼

執行程式碼

下面我對程式碼做一些必要的說明：

這個拆分模型不僅可以運用到班級的拆分，也可以用在其他方面的拆分，如按產品，人員，業績都是可以的。

全校學生名單在一個表裡，用什麼公式能把資料按班級分到不同的excel裡？

關於工作表的拆分做法如下：

2、將需要彙總的欄位拖入各標籤