EA_GetLastColR1C1

機能説明
指定したセルの位置から終端セルの列番号を取得します。ワークシート上での(Ctrl+→)操作に相当します。

定義
Public Function EA_GetLastColR1C1 (
ByRef ea_wsh As Worksheet,
ByVal ea_row As Long,
ByVal ea_col As Long
) As Long

引数
ea_wsh
調査対象のワークシートオブジェクトを指定します。
ea_row
調査開始セルの行位置を指定します。
ea_col
調査開始セルの列位置を指定します。

戻り値
終端セルの列番号が返却されます。

使用例
ワークシートのセル("1,1")から最終行を取得します。
                                    
Sub Main()
    Dim ea_wsh As Worksheet
    Dim ea_res As Long

    Set ea_wsh = ThisWorkbook.Worksheets("Sheet1")
    ea_res = EA_GetLastColR1C1(ea_wsh, 1, 1)
    MsgBox "結果:" & ea_res
    Set ea_wsh = Nothing
End Sub                                    
                                
クラウドソーシング「ランサーズ」