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都运行此段代码
请问你原来的Sh定义的是什么类型?
不过无所谓了……你把黄色那一句改成 Sheets(i).select
嗯 ,这个解决了!谢谢啊! 我还想问,我这段宏代码按照你的方法执行,为什么总报错啊!
报未选定要分列的数据,不知道该作何修改
没看到原始数据情况,不清楚怎么回事……