有点小问题

Sub ClearAll()
Application.ScreenUpdating = False
AHPSetup.Range(Cells(1, 2), Cells(3, 21)).ClearContents
AHPSetup.Range(Cells(7, 2), Cells(8, 21)).ClearContents

C1.Cells.Clear
P.Cells.Clear

Dim rng As Range
AHPReport.Activate
Set rng = 1（从此处应该是range()函数）
rng.ClearContents
AHPSetup.Activate
Application.ScreenUpdating = True
End Sub

谢谢楼主！正好急需要用

lou zhu tai hei le

heixin shang ren