如何在Excel中删除条件格式但保留格式？

在Excel中，您可以应用条件格式根据特定条件来设置单元格或行的格式。但在某些情况下，您可能希望删除条件格式规则，但仅保留单元格中的格式。本文中，您可以找到在Excel中删除条件格式但保留格式的技巧。

使用VBA删除条件格式但保留格式

通过Kutools for Excel轻松基于条件设置单元格格式

使用VBA删除条件格式但保留格式

在Excel中，除了使用VBA之外，没有直接的方法可以删除条件格式。

1. 启用您要删除条件格式规则但保留格式的工作表，并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2 单击 插入 > 模块，并将以下VBA粘贴到模块脚本中。参见截图：

VBA：删除条件格式规则但保留格式。

Sub Keep_Format()
'UpdatebyExtendoffice20181128
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        With xCell
            .Font.FontStyle = .DisplayFormat.Font.FontStyle
            .Font.Strikethrough = .DisplayFormat.Font.Strikethrough
            .Interior.Pattern = .DisplayFormat.Interior.Pattern
            If .Interior.Pattern <> xlNone Then
                 .Interior.PatternColorIndex = .DisplayFormat.Interior.PatternColorIndex
                .Interior.Color = .DisplayFormat.Interior.Color
            End If
            .Interior.TintAndShade = .DisplayFormat.Interior.TintAndShade
            .Interior.PatternTintAndShade = .DisplayFormat.Interior.PatternTintAndShade

        End With
    Next
    xRg.FormatConditions.Delete
End Sub

3. 按下 F5 键运行代码，弹出一个对话框以选择要删除条件格式的区域。参见截图：

4. 单击 确定，指定区域中的条件格式规则已被删除，但保留了格式。

通过Kutools for Excel轻松基于条件设置单元格格式

这里有一个方便的工具——Kutools for Excel，您可以通过其 选择指定单元格 工具快速、轻松地根据条件设置单元格格式，而无需任何公式。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要格式化的区域，并单击 Kutools > 选择 > 选择指定单元格。参见截图：

2. 在 选择指定单元格 对话框中，根据需要从 选择类型 部分勾选一个选项，然后从下拉列表和 指定类型 部分下的文本框中指定条件。参见截图：

3. 单击 确定。然后会弹出一个对话框，显示已选择了多少个单元格。请单击 确定 关闭此对话框。

4. 然后您可以看到基于条件的单元格已被选中，接着右键单击所选单元格并选择 设置单元格格式 从上下文菜单中，在弹出的 设置单元格格式 对话框中，指定所需的格式。参见截图：

5. 单击 确定。现在，所选单元格已进行了格式化，没有任何条件格式规则。参见截图：

设置单元格格式	设置行格式