Open2

ExcelVBAに関するメモ

WebDebrisWebDebris

1列目のデータについて、最終行の行番号を取得

Sub S_GetLastRow
Dim lastR as Long

lastR = Cells(Rows.Count,1).End(xlUp).Row

Markdown記法初めてです。
感動しました。

WebDebrisWebDebris

1行目のデータについて、最終列の列番号を取得

Sub S_GetLastColumn
Dim LastC as long

lastC = Cells(1,Columns.Count).End(xlToRight).Column