我在excel里录制了一段宏,请问如何让此段宏对每个工作表都能执行

SubMacro1()''Macro1MacroSh.Columns("J:J").SelectWithSelection.Validation.Delete.AddTy... Sub Macro1()
'
' Macro1 Macro
Sh.Columns("J:J").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="是,否"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Next
End Sub
如何让此段代码不用手动一个个工作表点,而是直接运行就让所有sheet都运行此段代码
展开
 我来答
真真真白丁
推荐于2016-11-09 · TA获得超过8516个赞
知道大有可为答主
回答量:4644
采纳率:85%
帮助的人:1661万
展开全部
亲,代码前后套上一层循环。
dim i as integer
for i=1 to sheets.count
sh=sheets(i)
下面粘贴你的代码
next
更多追问追答
追问

黄色的报错,对象不支持该属性和方法

追答
请问你原来的Sh定义的是什么类型?
不过无所谓了……你把黄色那一句改成 Sheets(i).select
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式