Question

利用VBA编程实现在关闭excel前清空报价单有字的行，从第4行开始。函数见问题补充。

函数如下：
Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭前清空价格单
Call 清空报价单
End Sub
Sub 清空报价单()
Dim row3 As Integer
Dim i As Integer
Application.ScreenUpdating = False '关闭屏幕刷新 提高VBA运行速率
row3 = Sheets("检测费用报价").Range("a65536").End(xlUp).Row
For i = 4 To row3
Sheets("检测费用报价").Rows(i).Select
Selection.ClearContents
Selection.ClearFormats
Next i
Application.ScreenUpdating = True '恢复刷新功能
Sheets("检测费用报价").Cells(4, 1).Select
End Sub

问题：如果关闭前，正式报价表sheet页，没有问题，自动清空。
如果是其他sheet页，就会报错。错误截图见附件。请各位大侠尽快帮忙解决，多谢。

Answer 1

Sheets("检测费用报价").Cells(4, 1).Select

这句去掉就行了，反正要关闭工作簿了，还要选干啥呢。
如果非要选择，那么先激活这个工作表

追问

试过了，去掉后Sheets("检测费用报价").Rows(i).Select 这句也还有问题。

追答

哦 这三句也有问题
-----
Sheets("检测费用报价").Rows(i).Select
Selection.ClearContents
Selection.ClearFormats
------
在前边加一个
Sheets("检测费用报价").Rows(i).Activate
或者直接改成以下两句，不要select
---
Sheets("检测费用报价").Rows(i).ClearContents

Sheets("检测费用报价").Rows(i).ClearFormats

---