如何在Excel列中的值改变时添加底部边框线?

如何在Excel列中的值改变时添加底部边框线?

在Excel中创建的工作表通常很难理解,因为它们包含大量的信息并具有复杂的结构。在工作表中放置单元格周围的边框可以帮助您区分不同的部分,将注意力集中在某些数据上,例如列标题或总行,并使您的电子表格更具可视性和吸引力。在Excel中,边框是环绕单个单元格或一组单元格的线条。在大多数情况下,单元格边界用于突出显示电子表格的特定区域,以便引起该区域的注意。通过维护边框,我们能够对任何数据进行框架化并以适当的方式给出其定义的边界。您可以通过概述值或将数据分成一系列单元格范围来突出特定值,并且还可以在单个单元格周围放置边框。

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

Excel没有内置的函数可以帮助您在值更改时添加底部边框线;不过,有一个VBA代码可以为您完成此操作。

第1步

打开一个Excel表格,然后按Alt和F11键 (Alt+F11) 以打开Microsoft Visual Basic for Application窗口。如下图所示。

如何在Excel列中的值改变时添加底部边框线?

第2步

之后,从菜单栏中选择 **插入 > 模块 ** 以打开弹出的模块窗口。如下图所示。

如何在Excel列中的值改变时添加底部边框线?

第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
Bash

如下图所示。

如何在Excel列中的值改变时添加底部边框线?

在我们的示例中,我们添加了范围A&B,A2:A是选定的单元格。您可以根据需要进行更改。

要运行代码,请按F5键。然后,当选择A2:A中的值更改时,已在下面添加了边框线。如下图所示。

如何在Excel列中的值改变时添加底部边框线?

Python教程

Java教程

Web教程

数据库教程

图形图像教程

大数据教程

开发工具教程

计算机教程

登录

注册