如何修改当前单元格右侧单元格的值

Question

我有这段代码：

Sub yeartest()
Dim cell As Range
For Each cell In Range("I7:I17")
If cell.Value = "8" Then
cell.Interior.Color = XlRgbColor.rgbLightGreen

End If
Next cell
End Sub

修改范围内的所有单元格= 8以变为绿色。

我想要做的事情是相同的原则，除非范围内的单元格= 8，然后它右边的单元格变为绿色。例如，单元格I9 = 8，然后它右边的单元格J9变为绿色。

要做到这一点，我需要以某种方式实现=RC[+1]。

我试过了：

RC[+1].Interior.Color = XlRgbColor.rgbLightGreen

Answer 1

使用偏移（）

Cell.Offset(,1).Interior.Color = XlRgbColor.rgbLightGreen

Answer 2

如果你想要

，这将使用一个命令为两个单元格着色

Cell.Resize（1,2）.Interior.Color = XlRgbColor.rgbLightGreen