Whoocus

ワークシートの”Sheet2″ の値の存在する最終行のValue を取得する方法。
一度、シートの最終行を取得し、xlUpで戻るイメージ。

Sub getLastRowValue()
    Dim val As String

    val = Worksheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Value

    MsgBox val

End Sub