エクセル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