Как получить адрес соседней ячейки?

Question

У меня есть следующий код VBA, чтобы найти вхождения «0» в следующем столбце:

For Each c In Range("B:B")

        If c.Value = "0" Then
            MsgBox "0 found at " & (c.Address)
        End If
    Next c

Как я могу изменить код так, чтобы, когда он находит «0», скажем, B6,это показывает C7?то есть.он отображает ячейку, расположенную по диагонали рядом с ячейкой, в которой находится «0».

Answer 1

Вы можете использовать Offset

MsgBox "0 found at " & c.Offset(1,1).Address

Свойство Offset имеет форму Offset(row, column). Примеры:

Range("B6").Offset(0,0) //refers to cell B6
Range("B6").Offset(1,0) //move one row down (B7)
Range("B6").Offset(0,1) //move one column to the right (C6)
Range("B6").Offset(-1,0) //move one row up (B5)
Range("B6").Offset(0,-1) //move one column to the left (A6)

Answer 2

Как насчет:

        MsgBox "0 found at " & Cells(c.Row + 1, c.Column + 1)