在Excel中，你可以使用公式结合VBA（Visual Basic for Applications）来实现自动抽取各班成绩并复制到相应工作表的功能。以下是一个简单的步骤和示例代码，用于说明如何完成这个任务。

步骤：

1. 确定班级信息：你需要确定一个包含班级信息的列，比如A列。

2. 创建目标工作表：对于每个班级，你需要创建一个新工作表。

3. 编写VBA代码：使用VBA编写一个宏，它会遍历原始数据工作表，根据班级信息将成绩复制到对应的工作表中。

示例VBA代码：

```vba

Sub CopyScoresByClass()

Dim wsSource As Worksheet

Dim wsTarget As Worksheet

Dim lastRow As Long, i As Long, j As Long

Dim classColumn As Integer

Dim class As String

' 设置源工作表为当前活动工作表

Set wsSource = ActiveSheet

' 确定班级信息所在的列，假设为A列

classColumn = 1

' 获取源工作表的最后一行

lastRow = wsSource.Cells(wsSource.Rows.Count, classColumn).End(xlUp).Row

' 遍历所有行

For i = 2 To lastRow

' 读取班级信息

class = wsSource.Cells(i, classColumn).Value

' 检查目标工作表是否存在，如果不存在则创建

On Error Resume Next

Set wsTarget = ThisWorkbook.Sheets(class)

If wsTarget Is Nothing Then

Set wsTarget = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

wsTarget.Name = class

End If

On Error GoTo 0

' 复制成绩到目标工作表

For j = 1 To wsSource.UsedRange.Columns.Count

wsTarget.Cells(i 1, j).Value = wsSource.Cells(i, j).Value

Next j

Next i

' 清理

Set wsSource = Nothing

Set wsTarget = Nothing

End Sub

```

使用方法：

1. 打开Excel，然后按 `Alt + F11` 打开VBA编辑器。

2. 在VBA编辑器中，插入一个新模块（Insert -> Module）。

3. 将上述代码复制并粘贴到新模块中。

4. 关闭VBA编辑器，然后按 `Alt + F8`，选择 `CopyScoresByClass` 宏并运行。

这个宏会遍历当前活动工作表中的所有行，根据班级信息将成绩复制到对应的工作表中。请确保你的班级信息是连续的，并且没有空行。