Private Sub Workbook_Open()
Call test
Call test2
End Sub
上面这是在打开表格的时候运行宏，那么怎么写在保存的时候运行宏呢？代码要怎么写？
网友sxb8113的方法简单可可行。但你非要用vba的话可用如下代码：
sub
abc()
for
i
=
sheet1.usedrange.rows.count
to
1
step
-1
if
rows(i).hidden
=
true
then
rows(i).delete
next
i
end
sub
筛选是将不合条件的行隐藏起来，代码是用循环检查隐藏的行并删除。如果数据量大，循环代码前要先关闭屏幕刷新：application.screenupdating
=
false，不然运行慢
sub
abc()
for
i
=
sheet1.usedrange.rows.count
to
1
step
-1
if
rows(i).hidden
=
true
then
rows(i).delete
next
i
end
sub
筛选是将不合条件的行隐藏起来，代码是用循环检查隐藏的行并删除。如果数据量大，循环代码前要先关闭屏幕刷新：application.screenupdating
=
false，不然运行慢
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-05-02
Private Sub Workbook_Open()改成
Private Sub Workbook_BeforeSave()
在保存之前执行代码。追问
Private Sub Workbook_BeforeSave()
在保存之前执行代码。追问
代码怎么不行呢，过程事件描述不匹配。。。。。
追答Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
后面有参数
