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