☰

EXCEL：如何根据一列值将粗底边框条件格式化为整行？

tag-icon • tag-icon microsoft-excel border conditional-formatting
EXCEL：如何根据一列值将粗底边框条件格式化为整行？

可能重复：
Excel 条件格式，如果某一日期不等于该行中的另一个日期，则突出显示整行

我有以下行...

1   AA     12  13   4   7
1   A      12  13   5   2
1   A      12  14   5   2
1   AAA    1   15   3   1
2   AAA    1   15   3   1
2   AA     3   44   5   19
2   A      R   4    33  87
3   AA     3   3R   55  77

我想学习如何进行条件格式设置，以便如果最左边的列的值发生变化，我可以为整行添加粗底边框。例如，它会像这样显示...

1   AA     12  13   4   7
1   A      12  13   5   2
1   A      12  14   5   2
1   AAA    1   15   3   1
-------------------------
2   AAA    1   15   3   1
2   AA     3   44   5   19
2   A      R   4    33  87
-------------------------
3   AA     3   3R   55  77

等等...

我能够让它工作，但仅限于第一列，而不是格式化整行。谢谢！

答案1

您需要在条件格式的公式中锚定列引用。

假设您的数据范围从 开始，您将使用条件公式和您选择的格式A1在该范围上设置条件格式。A1:F1$A1<>$A2

然后，你可以将行的格式复制到该范围内（使用粘贴特殊格式）。

答案2

假设左上角的单元格是 A1，选择所有数据从 A1 开始然后使用这个公式：

=$A1<>$A2

答案3

这里有一些 VBA，可以执行您所寻找的操作。

Sub LineSep()

'   Start Location 1 lower than first range with value
Range("A2").Select

Do
    If ActiveCell.Offset(-1, 0).Value = ActiveCell.Value Then
    ActiveCell.Offset(1, 0).Select
        Else:
        Range(Selection, Selection.End(xlToRight)).Select
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        ActiveCell.Offset(1, 0).Select
    End If

Loop Until ActiveCell.Value = ""

End Sub

相关内容