VBAのIE制御

Function maxRC(Optional sheetName As String = "mySheet", _
　　　　　　　 Optional rcNo As Integer = 1, _
　　　　　　　 Optional addRC As Integer = 0, _
　　　　　　　 Optional typeRC As String = "R") As Long

    If sheetName = "mySheet" Then
        sheetName = ActiveSheet.Name
    End If
    
    If typeRC = "R" Then
        maxRC = Sheets(sheetName).Cells(Rows.Count, rcNo).End(xlUp).row + addRC
    ElseIf typeRC = "C" Then
        maxRC = Sheets(sheetName).Cells(rcNo, Columns.Count).End(xlToLeft).Column + addRC
    End If

End Function

※ドラッグ(スワイプ)すると全体を確認できます。

こちらは、全て任意項目となります。
「sheetName」はシート名文字列を入力しますが、処理するシートが現在開いているシートの場合は、初期値で現在開いているシート名を取得しますので、未入力で大丈夫です。
「rcNo」は対象の行・列番号で、例えば3列目の最終行を取得したい場合は「3」を入力します。初期値では「1」が設定されています。
「addRC」には、最終行数に加える行数になります。例えばデータをループ処理する場合は、最終行を取得して全てのデータを処理させますが、データは定期的に抽出する場合は、既存データに書き足しで抽出します。その際に最終行から1行プラスで加えておけば、常に既存データの書き足しを行えます。
初期値は「0」設定されています。
「typeRC」は行・列どちらを取得するかの判断をするためのものです。「R」を指定すれば最終行を「C」を指定すれば最終列を取得します。初期値は「R」で設定されています。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次