给高分求助：excle批量修改各工作表相同单元格内容

来源：百度知道 编辑：UC知道 时间：2024/05/16 10:10:33
我这里有1百多个excle文档 都要在E42这个单元格里加‘电脑程序运行’这几个字，求助怎么用一定的方法把这一百多个文件一起给改过来
这个代码只适合编写除第一个工作表外，后面的每个工作表的B2单元格顺序排列 这种
我的是对一百多个工作薄的E42这个单元个加上‘电脑程序运行’几个字啊，再次求助！！！！！

按下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