如何在Excel中替换具有特定值的单元格？

Question

我有以下几点：

Private Sub Worksheet_Activate()
    If [E2] <> [G1] Then Range("H9:H44").Value = "Pendente"
End Sub

我需要在初始检查中包括要更改的单元格是否具有特定值。

我尝试了以下方法：

Private Sub Worksheet_Activate()
    If [E2] <> [G1] And Range("H9:H44").Value = "Paga" Then Range("H9:H44").Value = "Pendente"
End Sub

也就是说，我需要它只更改该列中具有“Paga”值的单元格。

这样做的正确方法是什么？

Answer 1

我需要它仅更改该列中具有“Paga”值的单元格。

使用.Replace它可以一次性替换所有文本。

Option Explicit

Private Sub Worksheet_Activate()
    If [E2] <> [G1] Then
        Range("H9:H44").Replace What:="Paga", Replacement:="Pendente", LookAt:=xlWhole
    End If
End Sub