Private Sub Worksheet_Activate()
Columns("C:D").Select
Selection.ClearContents
Range("A1").Select
End Sub
在EXCEL工作簿中的工作表名字处右击,然后查看代码,然后粘贴该代码,以上代码将执行:打开该工作表时自动清除C到D列的内容(单列的话只打一列的字母就行了),完成清除动作后单元格定位在A1
在workbook_open事件中写代码:
sheets("工作表名称").Range("A:B,F:F").ClearContents ‘清楚ABF 三列的数据