Excel条件格式碎片

通常，我使用条件格式创建工作表，并设置单元格范围，以便条件格式设置规则仅对单元格范围应用一次，例如

Make $A$1:$A$30 red and
Make $B$1:$B$30 blue.

在插入/删除许多行和/或列之后，条件格式设置规则集变得非常分散，对于不同范围重复相同的规则。例如

Make $A$1:$A$2 red 
Make $A$3:$A$4 red 
Make $A$5:$A$9 red
Make $A$10:$A$20 red 
Make $A$21:$A$30 red
...
Make $B$1:$B$2 blue 
Make $B$3:$B$4 blue
Make $B$5:$B$9 blue
Make $B$10:$B$20 blue 
Make $B$21:$B$30 blue
....

有什么好的方法可以防止这种情况发生，或者当规则集变得凌乱时，我注定要手动清理它们吗？

插入和删除行不会导致条件格式变得零散。

原因是使用标准复制/粘贴在单元格或行之间复制/粘贴。解决方法是始终使用粘贴值或粘贴公式。在目标上，单击鼠标右键，然后“粘贴选项”部分将提供123（值）和f（公式）。不要复制/粘贴格式，因为这会导致条件被复制/粘贴，有时它们会变得支离破碎。

当您执行标准复制/粘贴操作时，它还会复制单元格的条件公式。假设您有两个规则：
1）使$ A $ 1：$ A $ 30红色
2）使$ B $ 1：$ B $ 30蓝色
现在选择A10：B10并将其复制/粘贴到A20：B20。Excel要做的是从应用于这些单元格的规则中删除A20：B20的条件格式，并添加具有A20：B20格式的新规则。您最终有四个规则。
1）使= $ A $ 20红色
2）使= $ B $ 20蓝色
3）使= $ A $ 1：$ A $ 19，$ A $ 21：$ A $ 30红色
4）使= $ B $ 1：$ B $ 19，$ B $ 21：$ B $ 30蓝色
如果您仅将A10复制/粘贴到A20，则Excel会注意到同一规则同时应用于源和目标，并且不会分散规则。Excel不够聪明，无法弄清楚当复制/粘贴影响两种或多种条件格式时如何避免碎片。

插入和删除行不会引起碎片，因为Excel只是简单地扩展或缩小覆盖您在其中插入或删除行的区域的条件规则。

有人建议使用$ Q：$ Q而不是$ Q $ 1：$ Q $ 30。这无济于事，如上所述，当您复制/粘贴单元格格式时，您仍然会碎片化。

将条件格式应用于表的列时遇到相同的问题。添加行时，我发现最好使用$A:$A或任意列将规则应用于整个列。

（这是一种解决方法，因此我打算将其作为评论，但我的声誉不足。）

不幸的是，当规则集变得混乱时，您注定要清理它们。

一种简单的方法是创建一个工作表，其中包含所需的格式，但没有数据。它可以与原始工作表位于同一工作簿中，也可以作为模板保留在另一工作簿中。

当您需要清理时，请转到该工作表，右键单击“全选”按钮，选择“ 格式刷”，然后单击原始工作表上的“ 全选”按钮。格式将被无污染版本覆盖。

手动复制/粘贴/剪切/插入单元格会导致此问题，很难避免。

通过VBA宏解决了问题。

我不是通过手动复制/粘贴/剪切/插入单元格，而是通过Excel宏来执行此操作，该宏保留了单元格范围（通过按钮激活）。

Sub addAndBtnClick()
    Set Button = ActiveSheet.Buttons(Application.Caller)
    With Button.TopLeftCell
        ColumnIndex = .Column
        RowIndex = Button.TopLeftCell.Row
    End With
    currentRowIndex = RowIndex
    Set Table = ActiveSheet.ListObjects("Table name")
    Table.ListRows.Add (currentRowIndex)
    Set currentCell = Table.DataBodyRange.Cells(currentRowIndex, Table.ListColumns("Column name").Index)
    currentCell.Value = "Cell value"
    Call setCreateButtons
End Sub

Sub removeAndBtnClick()
    Set Button = ActiveSheet.Buttons(Application.Caller)
    With Button.TopLeftCell
        ColumnIndex = .Column
        RowIndex = Button.TopLeftCell.Row
    End With
    currentRowIndex = RowIndex
    Set Table = ActiveSheet.ListObjects("Table name")
    Table.ListRows(currentRowIndex - 1).Delete
End Sub

Sub setCreateButtons()
    Set Table = ActiveSheet.ListObjects("Table name")
    ActiveSheet.Buttons.Delete
    For x = 1 To Table.Range.Rows.Count
        For y = 1 To Table.Range.Columns.Count

            If y = Table.ListColumns("Column name").Index Then
                Set cell = Table.Range.Cells(x, y)
                If cell.Text = "Some condition" Then
                    Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - 2 * cell.Height, cell.Top, cell.Height, cell.Height)
                    btn.Text = "-"
                    btn.OnAction = "removeAndBtnClick"
                    Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - cell.Height, cell.Top, cell.Height, cell.Height)
                    btn.Text = "+"
                    btn.OnAction = "addAndBtnClick"
                End If
            End If
        Next
    Next
End Sub

重置格式（并非真正需要）：

Sub setCondFormat()
    Set Table = ActiveSheet.ListObjects("Table name")
    Table.Range.FormatConditions.Delete
    With Table.ListColumns("Column name").DataBodyRange.FormatConditions _
        .Add(xlExpression, xlEqual, "=ISTLEER(A2)") 'Rule goes here
        With .Interior
            .ColorIndex = 3 'Formatting goes here
        End With
    End With
    ...
End Sub