Excel VBA - 仅在顶部和底部添加边框的总线

Question

我想在顶部添加边框线,在总线底部添加边框线

例如.我有第2行到第3行以及第3-4列的数据,然后我添加了一行总计第5行第2-3行的总和.

我想在第5行的顶部和底部添加边框线,并且只在第4列添加边框线.

我可以使用变量LastRow + 2(注意我在最后一行数据和总线之间有一个空行)和LastColumn一些如何在Range("A5:D5")中.选择这样每次都是可变的吗？

我目前的代码:

Range("A5:D5").Select
With Selection.Borders(xlEdgeTop)
   .LineStyle = xlContinuous
   .Weight = xlThin
   .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
   .Weight = xlThin
   .ColorIndex = xlAutomatic
End With

Answer 1

我认为 NexttRow 的东西仍然是一个好主意，并且代码也可以简化，这会添加总和并格式化从 row2 到数据底部的总和行，无论它在哪里：

NR = Range("A" & Rows.Count).End(xlUp).Row + 1

Range("C" & NR, "D" & NR).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
With Range("A" & NR, "D" & NR)
    .Borders(xlEdgeTop).Weight = xlThin
    .Borders(xlEdgeBottom).Weight = xlThin
End With