如果符合条件，则在行的特定列数中添加底部边框

Question

我有一列包含值1、2、3等的组，相邻列包含其他详细信息。我正在尝试编写一个宏，该宏将使用第一列来确定单元格中的值是否小于其下方的值，如果是，则向该单元格和同一行中的下6个单元格添加底边框。 / p>

例如，如果D2包含“ 2”，而D3包含“ 3”，则D2，E2，F2，G2，H2，I2，J2都将收到底部边框。

我可以在D2下划线，但我也想不出如何使它在下6列下划线。

当前代码：

'line divider between wire groups
    For i = 2 To ws.Range("D" & ws.Rows.Count).End(xlUp).Row
        If ws.Cells(i, 4) < ws.Cells(i + 1, 4) Then
            With ws.Rows(i, 4)(i, 5)(i, 6)(i, 7).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 1
            End With
        End If
    Next i

Answer 1

请勿为此使用VBA，这是一种简单的条件格式。

选择范围D2:J2并转到条件格式->新规则

选择“使用公式来确定...”，然后输入以下公式：

=$D2=$D3-1

然后，转到“格式”并添加底部边框。