我想清除显示为红色的数据。 我尝试使用以下代码
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Sheets("Sheet1").Rows("2:" & Rows.Count).ClearContents
End Sub
我不知道请帮助我。
答案 0 :(得分:0)
试试这个:
With ThisWorkbook.Worksheets("Sheet1")
.Range("C2:D" & .Rows.Count).ClearContents
.Range("L2:M" & .Rows.Count).ClearContents
End With
假设您的数据位于Sheet1
。