在Excel中，要实现自动抽取各班成绩并复制到相应工作表，可以使用以下步骤：

1. 假设数据结构：

假设你的Excel数据如下排列：

```

A B C D E F

班级 学生1 学生2 学生3 学生4 学生5

1班 语文 数学 英语 物理 化学

1班 80 85 90 78 88

1班 82 87 91 79 89

2班 语文 数学 英语 物理 化学

2班 75 80 85 70 82

2班 77 81 86 72 84

...

```

每个班级的成绩都连续排列，且每个班级的开始都有一个“班级”标题。

2. 使用Excel公式：

假设第一个班级的成绩开始于第4行（第3行是标题行），可以使用以下公式来提取每个班级的成绩：

```

=IF(AND(A4:A100="1班"), A4:G100, "")

```

这个公式检查第4行到第100行（假设数据不超过100行）的A列是否为“1班”，如果是，则返回A列到G列的数据，否则返回空字符串。

3. 复制到相应工作表：

你需要创建一个新的工作表，命名为“1班”。

然后，选中包含公式的单元格，复制该单元格（不是复制公式，而是复制单元格内容）。

在新工作表的A1单元格粘贴复制的单元格内容。

重复以上步骤，为每个班级创建新的工作表，并复制相应的成绩。

4. 自动化：

如果你需要自动化这个过程，可以使用VBA宏。

以下是一个简单的VBA宏示例，它将遍历每个班级，并将成绩复制到对应的工作表中：

```vba

Sub CopyClassScores()

Dim ws As Worksheet

Dim lastRow As Long

Dim classRow As Long

Dim classCount As Integer

Dim sourceRange As Range

' 假设数据从第4行开始，每行的第1列是班级名称

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

classCount = 1 ' 从第一个班级开始

' 遍历所有行

For i = 4 To lastRow

' 检查是否是新的班级

If Cells(i, 1).Value <> "班级" And Cells(i 1, 1).Value <> Cells(i, 1).Value Then

' 创建新的工作表

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

ws.Name = Cells(i, 1).Value

' 查找班级数据开始的行

classRow = i

' 找到该班级数据的最后一行

Do While Cells(classRow + 1, 1).Value = Cells(i, 1).Value

classRow = classRow + 1

Loop

' 设置源范围

Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range(Cells(i, 1), Cells(classRow, 6))

' 复制数据到新工作表

sourceRange.Copy Destination:=ws.Range("A1")

' 更新班级计数

classCount = classCount + 1

End If

Next i

End Sub

```

将此宏保存并运行，它将自动创建每个班级的工作表，并将相应的成绩复制到每个班级的工作表中。

请注意，上述宏是一个基本的示例，可能需要根据你的具体数据结构进行调整。在运行宏之前，请确保备份你的数据，以防万一。