主页 / computer / 问题 / 1498646
Accepted
C.B.
Asked: 2019-11-04 07:54:40 +0800 CST

只复制格式而不是条件

  • 772

当格式由“条件格式”派生但不复制条件时，如何仅复制单元格的格式？

microsoft-excel conditional-formatting

1 个回答

  1. Best Answer

    我发现只有这样：

    使用 vba，运行这个子：

    Sub Keep_Format()    
    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:", "tools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        With xCell
          .Font.FontStyle = .DisplayFormat.Font.FontStyle
          .Interior.Color = .DisplayFormat.Interior.Color
          .Font.Strikethrough = .DisplayFormat.Font.Strikethrough
        End With
    Next
    xRg.FormatConditions.Delete
End Sub
    • 0

相关问题