请求调整Excel宏脚本:仅在第3至78个工作表标签运行
调整Excel宏:仅在第3至78个工作表执行操作
完整调整后的宏代码
Sub 仅在指定工作表执行操作() Dim ws As Worksheet Dim i As Integer ' 循环遍历第3到第78个工作表 For i = 3 To 78 Set ws = ThisWorkbook.Worksheets(i) ' ↓↓↓ 把你原来的宏代码替换到这里 ↓↓↓ ' 示例操作:给当前工作表的A1单元格写入"已处理" ' ws.Range("A1").Value = "已处理" ' ↑↑↑ 替换结束 ↑↑↑ Next i End Sub
操作说明(按步骤来就行)
- 替换原有代码:把你原本要执行的宏操作代码,替换掉上面代码里的示例部分(就是被注释框起来的区域)。注意:原来代码里如果写的是
ActiveSheet或者具体工作表名(比如Sheet2),要改成用ws开头,比如原来的ActiveSheet.Columns("A").AutoFit要改成ws.Columns("A").AutoFit,这样才会对当前循环的工作表生效。 - 怎么用:
- 打开你的Excel文件,按下
Alt + F11打开VBA编辑器 - 找到你原来宏所在的模块(或者右键点击左侧的工作簿名称,选「插入」→「模块」新建一个)
- 把上面的代码粘贴进去,替换好自己的操作代码
- 保存文件时,要选「Excel启用宏的工作簿(*.xlsm)」格式,不然宏会丢失
- 回到Excel界面,点击「开发工具」→「宏」,找到这个宏的名字执行就行(如果找不到开发工具,就在文件→选项→自定义功能区里勾选上)
- 打开你的Excel文件,按下
内容的提问来源于stack exchange,提问作者hilde vorstermans
相关产品推荐
相关产品推荐

