2024年4月26日发(作者：)

打开全部隐藏工作表

Sub 打开全部隐藏工作表()

Dim i As Integer

For i = 1 To

Sheets(i).Visible = True

Next i

End Sub

循环宏

Sub 循环()

AAA = Range(“C2″)

Dim i As Long

Dim times As Long

times = AAA

‘times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)

For i = 1 To times

Call 过滤一行

If Range(“完成标志”) = “完成” Then Exit For ‘如果名为’完成标志’的命名

单元的值等于’完成’,则退出循环,如果一开始就等于’完成’,则只执行一次循环就退出

‘If Sheets(“传送参数”).Range(“A” & i).Text = “完成” Then Exit For ’

如果某列出现”完成”内容则退出循环

Next i

End Sub

录制宏时调用“停止录制”工具栏

Sub 录制宏时调用停止录制工具栏()

dBars(“Stop Recording”).Visible = True

End Sub

高级筛选5列不重复数据至指定表