然后使用 If 语句替换单元格

Question

我有一个 excel 工作表。如果 C 列都有特定的文本("苹果"(并且 F 列都有特定的数字("56"(，我想替换 F 列中的文本。我希望 F 列中单元格的替换值为"1"。

总而言之，如果 c3=apple 和 f3=56，我希望 f3 更改为 1。

但是，如果 c3 不是苹果或 f3 而不是 56，我不希望改变任何东西。

我目前拥有的代码如下：

Sub Macro3()
Dim x As Range
Dim y As Range
For Each x In Range("C2:C9999")
For Each y In Range("F2:F9999")
If x = "apple" And y = "56" Then y = "1"
Exit For
Next y
Next x
End Sub

Answer 1

只需要一个循环：

Sub Macro3()    
Dim y As Range
For Each y In Range("F2:F9999")
If y.offset(,-3) = "apple" And y = 56 Then y = 1
Next y
End Sub