如果突出显示了A：A列中的单元格，则在下一列中突出显示与该单元格相邻的单元格

Question

如果相邻的单元格被突出显示，我试图在B列中的单元格旁边直接突出显示该单元格。这是我尝试过的：

Sub test_highlight()

Dim highlight As Range
Dim range1 As Range
Set range1 = Columns("A:A")

For Each highlight In range1
    If highlight.Interior.Color = Excel.XlRgbColor.rgbYellow Then
    highlight.Offset(, 1).Cells.Interior.Color = Excel.XlRgbColor.rgbYellow

End If
Next highlight

End Sub