打开Visual Basic，添加模块或过程，称之为“拆分数据”。

添加一个for循环，循环“班级”这列中的每个单元格，找到对应的班级。

添加一个if判断，如果B列中单元格的班级名称信息与工作表名称相同，则将该单元格的整行数据复制到对应的工作表。

以“A班”为例：

定义一个变量k，计算各班级工作表中已有数据的行数，用于将复制过来的数据粘贴至k+1这一空白行。

在if判断中更换变量i和k，先将A班的数据复制过来测试一下。

再定义一个变量j，把每张工作表都循环，套在之前的循环外面。

执行以上代码后，即可将数据分别粘贴到各班级的工作表中。

如果要清空各班级工作表的数据，可以通过下面的过程来实现：

以上示例只是用于演示，实际应用场景请根据自己的需要进行相应的设计或调整。