在“应用于”中使用偏移或间接似乎不起作用。是否有其他方法可以防止插入行后条件格式破裂？
我有一个条件格式适用于范围例如 $O$19:$O$105。条件是“如果单元格值> 10”，则以红色格式化。
问题是 - 当我在Excel中插入行时，此格式化范围会分裂，我会得到2个格式化规则。例如，如果我在第20行插入新行，则范围为 $O$19，$O$21:$O$105 和 $O$20 的2个规则。
通常对于上述条件，如果规则分成多个范围可能并不重要。但是对于“突出显示前10个”的条件，它会导致不希望的结果。
我尝试了以下方法，但并没有取得太大的成功：
有人知道如何编写条件格式，以防止行插入后破裂吗？
[编辑]我意识到插入行并不会导致条件格式规则分裂。我还将一行复制并粘贴到插入的行中，这才是问题所在。如果我选择特殊粘贴并仅选择公式，则一切正常。
我知道这是一个老帖子，但这里有另一个超级简单且非常有效的解决方案。
只需按需插入新行或列。然后选择并复制具有正确条件格式的行/列。在您刚创建的新行/列中进行“特殊粘贴”，并选择“所有合并条件格式”选项。您的条件格式规则现在应该会自动更新。
快乐使用Excel =)
因此，它会尽力根据更改拆分格式化范围。不幸的是，“尽力而为”效果并不好。在幸运的情况下，您的格式规则会被复制，而您却没有注意到；在不幸的情况下，它们可能会在应用的范围中某些或全部破裂。
如果您使用列表对象（也称为“Excel表格”），这尤其是一个问题。插入一些行，重新排序，拖动一些值，下次查看条件格式列表时，您可能会发现有数十个到数百个重复规则。（例如：http://blog.contextures.com/archives/2012/06/21/excel-2010-conditional-formatting-nightmare/）
根据我的经验，解决混乱的最快方法是删除所有规则并重新创建它们（或不创建）。
一些附注：
=$A2 <> $A1
=$A2<>OFFSET($A2; -1; 0)
实际上我将这些条件格式公式放在了一个隐藏列中，但结果应该是一样的。
$C:$C）设置了自动格式化，即使使用 =$A2<>OFFSET($A2; -1; 0)，仍然会在任何行插入时中断。
我必须修改的是修复所有引用到第一行的引用，例如：=$A1<>OFFSET($A1; -1; 0)。当我使用不同于1的任何其他行时，它会在每一行操作上中断。 - Jarek C这对我来说运行得很好...
Sub ConditionalFormattingRefresh()
'
' ConditionalFormattingRefresh Macro
'
'Generales
Dim sh As Worksheet
Dim tbl As ListObject
Dim selectedCell As Range
Set sh = ActiveSheet
Set tbl = Range("Plan").ListObject
Set selectedCell = ActiveCell
'Rango a copiar
Dim copyRow As Range
Set copyRow = tbl.ListRows(1).Range
'Rango a restaurar
Dim startCell As Range
Dim finalCell As Range
Dim refreshRange As Range
Set startCell = tbl.DataBodyRange.Cells(2, 1)
Set finalCell = tbl.DataBodyRange.Cells(tbl.ListRows.Count, tbl.ListColumns.Count)
Set refreshRange = Range(startCell.Address, finalCell)
'Ocultar procesamiento
Application.ScreenUpdating = False
Application.EnableEvents = False
'Borrar formato corrupto
refreshRange.FormatConditions.Delete
'Copiar
copyRow.Copy
'Pegar formato
tbl.DataBodyRange.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Retornar a la normalidad
selectedCell.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
我对这个问题的解决方案是清除源副本的格式。
这在我使用MS Excel 2016时有效。
我同意之前发布的内容；复制并粘贴数值（或粘贴公式）将完全有效，不会分割条件格式。
我有点懒。而且我不想让使用我的电子表格的人去做那些事情。我也不确定他们是否会记得复制并粘贴数值。 :(
我不知道这个解决方案是否适用于您的需求，但我采取了删除所有条件格式并在每次打开工作簿时重新应用正确的条件格式。
因为这个宏每次打开工作簿时都会运行，所以用户不需要改变复制和粘贴的方式。他们不需要知道宏甚至存在。他们不需要手动运行宏；它是自动的。我觉得这创造了更好的用户体验。
请记住，此代码需要复制并粘贴到“此工作簿”模块中，而不是常规模块中。
Private Sub Workbook_Open()
'This will delete all conditional formatting and reapply the conditional formatting properly.
'After copying and pasting the conditional formatting get split into two or more conditional formattings. After a few
'weeks there are so many conditional formattings that Excel crashes and has to recover.
Dim ws As Worksheet, starting_ws As Worksheet
Set starting_ws = ActiveSheet 'remember which worksheet is active in the beginning
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "InvErr" Then
ws.Activate
Cells.FormatConditions.Delete
''Every Other Row Tan
Range("A4:M203").FormatConditions.Add Type:=xlExpression, Formula1:="=ISODD(ROW(A4))"
Range("A4:M203").FormatConditions(Range("A4:M203").FormatConditions.Count).SetFirstPriority
Range("A4:M203").FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
Range("A4:M203").FormatConditions(1).Interior.ThemeColor = xlThemeColorDark2
Range("A4:M203").FormatConditions(1).Interior.TintAndShade = 0
Range("A4:M203").FormatConditions(1).StopIfTrue = False
''Highlight Duplicates Red
Columns("B").FormatConditions.AddUniqueValues
Columns("B").FormatConditions(Columns("B").FormatConditions.Count).SetFirstPriority
Columns("B").FormatConditions(1).DupeUnique = xlDuplicate
Columns("B").FormatConditions(1).Font.Color = -16383844
Columns("B").FormatConditions(1).Font.TintAndShade = 0
Columns("B").FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
Columns("B").FormatConditions(1).Interior.Color = 13551615
Columns("B").FormatConditions(1).Interior.TintAndShade = 0
Columns("B").FormatConditions(1).StopIfTrue = False
End If
Next
starting_ws.Activate 'activate the worksheet that was originally active
Application.ScreenUpdating = True
End Sub