我正在尝试根据第 1 列中的唯一项目 ID 自动为某些行添加下划线。请参阅随附的示例表。每个项目 ID 每次关联的行数可能不同,我想用底线分隔每个项目,但不是每行。我一直在尝试找出在条件格式下输入的正确公式。非常感谢
示例表:
答案1
答案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 代码作为模块与工作表一起插入。