如何根据唯一数据在 Excel 中为行添加下划线?

如何根据唯一数据在 Excel 中为行添加下划线?

我正在尝试根据第 1 列中的唯一项目 ID 自动为某些行添加下划线。请参阅随附的示例表。每个项目 ID 每次关联的行数可能不同,我想用底线分隔每个项目,但不是每行。我一直在尝试找出在条件格式下输入的正确公式。非常感谢

示例表:

答案1

条件格式规则为:

=AND($A2<>"",$A2<>$A1)

“适用于”范围$A$2:$D$17

将格式设置为顶部边界。

在此处输入图片描述

答案2

我想向您推荐最快的方法是使用宏。

检查屏幕截图:

在此处输入图片描述

    Sub AddLineWhenValueChanges()

    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 & ":D" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next xrg
    Application.ScreenUpdating = True
End Sub

注意:将此 VBA 代码作为模块与工作表一起插入。

相关内容