ExcelVBAで右隣のセル情報取得

Offset()使う

Sub Sample1()
    Dim FoundCell As Range
    Set FoundCell = Range("A:A").Find("田中")
    If Not FoundCell Is Nothing Then
        MsgBox FoundCell.Offset(0, 1)
    End If
End Sub

ネタ元

• https://www.moug.net/tech/exvba/0050161.html