下の表だけ罫線を引く

Question

前提・実現したいこと

上下　2つ並んだ表に罫線を引きます。

上の表の行と列は流動的で、A2～
下の表は上の表の列と始まりも終わりも一緒です。

発生している問題

下の表の罫線の引き方が難しくて困ってます。

Dim e As Range
Dim f As Range
    
　Set e = Cells(3, Columns.Count).End(xlToLeft)
  Set f = Cells(Rows.Count, "A").End(xlUp).Offset(-3)
  
  Range(f, e).CurrentRegion.Borders.LineStyle = True

試したこと

範囲指定をRange("A"&f, "A"&e)と変更してみましたがだめでした。
ご指導よろしくお願いいたします。

Answer 1

セル番地ではなく、行数、列数で作り直してみましたら希望通りに
罫線が引けるようになりました。

皆様ありがとうございました。

Dim ｒ As Integer
Dim ｃ As Integer
   
   ｒ = Cells(Rows.Count, 1).End(xlUp).Row
   ｃ = Cells(3, Columns.Count).End(xlToLeft).Column

 Range(Cells(ｒ - 2, 1), Cells(ｒ, ｃ)).Borders.LineStyle = True

End Sub

Answer 2

上の表の行と列は流動的とされていますが、３行目には確実にデータがあるのでしょうか？
であれば上の表は３行目の最終セルを基準に、下の表は上の表の最終列の最終行を基準にCurrentRegionで線を引けばいいのでは？

Dim maxCol As Long
maxCol = Cells(3, Columns.Count).End(xlToLeft).Column
Cells(3, maxCol).CurrentRegion.Borders.LineStyle = True
Dim maxRow As Long
maxRow = Cells(Rows.Count, maxCol).End(xlUp).Row
Cells(maxRow, maxcol).CurrentRegion.Borders.LineStyle = True

Comments

[ichigo15]

コメントありがとうございます。

ご提示下さったコードは上の表に罫線を引くものでしょうか。
申し訳ございませんが下の表に罫線を引くのに苦戦しております。
上の表については問題ありません。

それと、上の表の最終列の最終行が空白セルだった場合どうしたらよろしいのでしょうか？
教えて頂けますでしょうか。
よろしくお願いいたします。

[ryuno_vanilla]

上の表と下の表の間に空白行があると想像して上のコードを書きました。
上記コードは上の表、下の表の順で罫線を引いています。

上の表→3行目の最終列のCurrentRegion

下の表は上の表と列が同じことから
上の表の最終列の（シートの）最終行が下の表のセルになりませんか？？

下の表の罫線を引くコード
Cells(maxRow, maxcol).CurrentRegion.Borders.LineStyle = True
でした。

>最終列の最終行が空白
値が入っているセルが最終行なので問題ないです。

これでできないのであればどんな表なのか図で示してくださいますか？