Excel-VBA 最終行最終列の範囲に罫線を引くマクロ

Excel VBAマクロ。今回は
最終行最終列の範囲に罫線を引くマクロ
を示す。

■Excel-VBA 最終行最終列の範囲に罫線を引くマクロ

Sub sample39()
Dim MR As Long
Dim MC As Long
MR = Cells(Rows.Count, 1).End(xlUp).Row
MC = Cells(1, Columns.Count).End(xlToLeft).Column

Range(Cells(1, 1), Cells(MR, MC)).Borders.LineStyle = True
End Sub

※[2.~3.] 変数宣言。
※[4.~5.] 最終行数、最終列数取得。
※[7.] 1行1列目から最終行最終列の
範囲に罫線を引く。

■マクロ実行対象

ワークブック「部品データ_191128.xlsx」

■マクロ実行結果

実行すると、1行1列目から最終行最終列の
範囲に罫線が引かれる。

■あとがき

今回はExcel VBAマクロ。
最終行最終列の範囲に罫線を引くマクロ
を示した。

セルに罫線を引きたい場合に使う。

LibreOffice Basicで
コードの先頭行に
「Option VBASupport 1」を記述して試したが

Option VBASupport 1

エラーが出て使えなかった。
以上。