excel - 如何获取相邻单元格的地址？

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

如何修改代码，以便当它在 B6 处找到“0”时，显示 C7？ IE。它显示与找到“0”的单元格对角相邻的单元格。

Answer 1

您可以使用偏移

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)