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

例如。我有第 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

最佳答案

我认为 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

https://stackoverflow.com/questions/9731587/