非常感谢你的回复,模块里面的内容如下:
Sub ClearContents() '清空结果
a = ActiveCell.Row
b = ActiveCell.Column
Range(Cells(a + 1, b), Cells(a + 450, b + 30)).Select
Selection.ClearContents
End Sub
Sub test()
Range(Cells(1, b), Cells(450, b).Select
Selection.ClearContents
End Sub
假设该模块是模块10,我要调用test() 该如写代码?谢谢