在Excel边框外侧的底部一行，如何解决此问题？

Question

一段时间以来，我一直在尝试解决这个小问题，但是我在任何地方都找不到正确的答案。基本上，我想要一个围绕使用过的单元格的边框。桌子很大，一直工作到到达最后一行为止，最后一行不在所述边框之内。

以下是处理边框的代码：

Function Borders()
    Range(Range("A3"), Range("A3").End(xlToRight).End(xlDown)).BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbBlack
    Range(Range("A4"), Range("A3").End(xlToRight).End(xlDown)).BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbBlack
End Function

这就是结尾的样子：

那是最后一行的结尾。所有那行都被排除在表外。我真的看不出问题出在哪里。

Answer 1

在函数中尝试一下，

   With Range(Range("A4"), Range("A4").End(xlToRight).End(xlDown)).Borders
    .LineStyle = xlContinuous
    .Weight = xlThick
    .Color = vbBlack
   End With