根据另一个单元格的值更新一系列单元格

我很新，所以请忍受我。 我想评估C5：BM5范围内的每个单元格。 如果该范围内的任何单元格为“HOLIDAY”或“SUN”，则需要清除该列中的第7-19行。 我已经拼凑了下面的代码，这是我所需要的，它只是非常缓慢。 我知道有一个更好的办法。 寻找一些聪明的build议。

Sub HolidayUpdate() Dim Cell As Range For Each Cell In Sheets("Production Calendar").Range("C5:BM5") If Cell = "HOLIDAY" Then Cell.Offset(2, 0).ClearContents Cell.Offset(3, 0).ClearContents Cell.Offset(4, 0).ClearContents Cell.Offset(5, 0).ClearContents Cell.Offset(6, 0).ClearContents Cell.Offset(7, 0).ClearContents Cell.Offset(8, 0).ClearContents Cell.Offset(9, 0).ClearContents Cell.Offset(10, 0).ClearContents Cell.Offset(11, 0).ClearContents Cell.Offset(12, 0).ClearContents Cell.Offset(13, 0).ClearContents Cell.Offset(14, 0).ClearContents ElseIf Cell = "SUN" Then Cell.Offset(2, 0).ClearContents Cell.Offset(3, 0).ClearContents Cell.Offset(4, 0).ClearContents Cell.Offset(5, 0).ClearContents Cell.Offset(6, 0).ClearContents Cell.Offset(7, 0).ClearContents Cell.Offset(8, 0).ClearContents Cell.Offset(9, 0).ClearContents Cell.Offset(10, 0).ClearContents Cell.Offset(11, 0).ClearContents Cell.Offset(12, 0).ClearContents Cell.Offset(13, 0).ClearContents Cell.Offset(14, 0).ClearContents End If Next Cell End Sub 

Answer 1

1. 你可以结合所有的偏移量。
2. 您可以禁用计算和屏幕更新。

3. 这里是你的代码的更新。

    Sub HolidayUpdate() Dim rgCell As Range application.screenupdating=false application.calculation=xlcalculationmanual For Each rgCell In Sheets("Production Calendar").Range("C5:BM5") If rgCell = "HOLIDAY" OR rgCell = "SUN" _ Then rgCell.Offset(2, 0).resize(13).ClearContents Next rgCell application.screenupdating=true application.calculation=xlCalculationAutomatic End Sub