如何在Excel列值发生变化时添加下方边框线？

在 Excel 中创建的工作表通常难以理解，因为它们包含大量信息并且结构复杂。在工作表中单元格周围添加边框可以帮助您区分各个部分，突出显示某些数据（例如列标题或总计行），并使您的电子表格更具可读性和视觉吸引力。在 Excel 中，边框是围绕单个单元格或单元格组的线条。在大多数情况下，单元格边界用于突出显示电子表格的特定区域以引起注意。通过维护边框，我们能够以适当的方式框定任何数据并赋予其明确的边界。此外，您可以通过勾勒出汇总值或将数据分成单元格范围来突出显示特定值，还可以围绕单个单元格放置边框。

使用 VBA 在值更改时添加边框线

Excel 没有内置函数可以帮助您在值更改时添加下方边框线；但是，有一个 VBA 代码可以为您执行此操作。

步骤 1

打开一个 Excel 表格，然后按 Alt 和 F11 键(Alt+F11) 以打开 Microsoft Visual Basic for Application 窗口。请参阅下图。

步骤 2

然后，从菜单栏中选择插入 > 模块以调出弹出模块窗口。请参阅下图。

步骤 3

打开模块窗口后，在其中键入以下 VBA 代码。

Sub AddBorderLineWhenValueChanges()
   Application.ScreenUpdating = False
   Dim LastRow As Long
   Dim xrg As Range
   LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   For Each xrg In Range("A2:A" & LastRow)
      If xrg <> xrg.Offset(1, 0) Then
         Range("A" & xrg.Row & ":B" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
      End If
   Next xrg
   Application.ScreenUpdating = True
End Sub

请参阅下图。