工作簿里每一个sheet表的单元格增加一个内容

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运行，就可以达到想要的效果，即每一个工作表的第一行内容从最侧左开始一次是：序号、班级、姓名，同理，也可以对大批量的数据进行赋值，然后再进行运算整合处理。