1、桌面上新建一个Excel 工作簿并打开，激活打开的工作簿后（默认有3个工作表，分别为sheet1、sheet2、sheet3），按住键盘上的ALt+F11,进入一下界面。
2、在弹出来的模块里面编辑如下代码:sub 批量赋值每一个表格里面的内容（） For i = 1 To Sheets.Count Sheets(i).Select Range("a1") = "序号" Range("b1") = "班级" Range("c1") = "姓名" Next End Sub
3、编辑完成后，按键盘上F5运行，就可以达到想要的效果，即每一个工作表的第一行内容从最侧左开始一次是：序号、班级、姓名，同理，也可以对大批量的数据进行赋值，然后再进行运算整合处理。