【VBAコード】最終行と最終列の取得コード

エクセルVBAで最終行と最終列の取得について

最終行の取得のコードです。

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

例：A列に入力してある最終行までB列にyes!と入力する

Sub test()
Dim i
Dim saisyugyo
saisyugyo = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To saisyugyo
 Cells(i, 2).Value = "yes!"
Next i
End sub

最終列の取得のコードです。

Dim saisyuretsu
saisyuretsu = Cells(1, Columns.Count).End(xlToLeft).Column

例：入力してある最終行まで確認し次の全ての行にyes!と入力する

Sub test()
Dim i
Dim saisyuretsu
saisyuretsu = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To saisyuretsu
 Cells(2, i).Value = "yes!"
Next i
End sub