macros – 清除多张纸上的内容

我有一个macros，我用它来删除特定单元格的内容，如果某些单词出现。 目前，我已经在我的工作簿中设置了1张。

不过，我希望它能够处理多张纸。

这是我迄今为止：

Sub CC() Dim rCell As Range For Each rCell In Sheet1.Range("O9,O11,O13,O15,O17,O19,O21,O23,O25,O27,O29,O31,O33,O35,O37,O39,O41,O43,O45,O47,O49,L10,L12,L14,L16,L18,L20,L22,L24,L26,L28,L30,L32,L34,L36,L38,L40,L42,L44,L46,L48,L50") If InStr(1, rCell.Value, "A") Or InStr(1, rCell.Value, "B") Or InStr(1, rCell.Value, "OK") Or InStr(1, rCell.Value, "C") Then rCell.ClearContents End If Next rCell Set rCell = Nothing Application.OnTime Now + TimeValue("00:00:01"), "CC" End Sub 

Answer 1

添加以下内容：

  Dim rCell As Range dim sheet as worksheet For Each sheet In ActiveWorkbook.Worksheets For Each rCell In sheet.Range("O9,O11,O13,O15,O17,O19,O21,O23,O25,O27,O29,O31,O33,O35,O37,O39,O41,O43,O45,O47,O49,L10,L12,L14,L16,L18,L20,L22,L24,L26,L28,L30,L32,L34,L36,L38,L40,L42,L44,L46,L48,L50") If InStr(1, rCell.Value, "A") Or InStr(1, rCell.Value, "B") Or InStr(1, rCell.Value, "OK") Or InStr(1, rCell.Value, "C") Then rCell.ClearContents End If Next rCell Next Set rCell = Nothing Application.OnTime Now + TimeValue("00:00:01"), "CC"