excel vb 批量修改各工作表相同单元格内容

来源：百度知道 编辑：UC知道 时间：2024/05/22 16:21:23
工作簿中有121个工作表，除了第一个工作表（INDEX）外
每个工作表的B2单元格为档案编号
从08001-08120
请问VB如何编写除第一个工作表外，后面的每个工作表的B2单元格顺序排列

非常感谢！！
PS:新手，上一个问题已经花光了积分了，不能悬赏了T0T

按下ALT+F11,菜单:插入-模块,复制下列代码.然后按F5运行

Sub number()
Dim a As Integer
a = Sheets.Count
For x = 2 To a
Sheets(x).Select
Cells(1, 2).NumberFormatLocal = "@"
Cells(1, 2) = Format(8000 + x - 1, "00000")
Next
End Sub