目的:在指定条件下,将一个工作薄中的某些工作表数据记录清空
代码实现:
Sub 清除记录()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> "成绩表" Then '成绩表'中是保存元数据记录的工作表标签名称
sht.Range("A2:D65536").ClearContents '清除各分表中的数据记录
End If
Next
End Sub
Sub 清除记录()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> "成绩表" Then '成绩表'中是保存元数据记录的工作表标签名称
sht.Range("A2:D65536").ClearContents '清除各分表中的数据记录
End If
Next
End Sub