vba法批量替換換區域中符合條件的數值?

VBA應用廣泛，下面請看這一例：

按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下面的代碼：

Sub tihuan()Dim rCell As RangeFor Each rCell In SelectionIf rCell.Value < 60 Then rCell.Value = “不及格”NextEnd Sub選擇B2:J34，然後運行上述代碼也可將區域中小於“60”的數值替換為“不及格”。