取消单元格条件格式但保留格式样式

Sub 取消条件格式保留样式设置()
    '-----------------------------------------------------------------------
    '自定义数据类型
    Dim Choose_rng As Range
    Dim wdap
    
    On Error Resume Next
    '选择需要设置的单元格区域
    Set Choose_rng = Application.InputBox("选择需要设置的单元格或单元格区域", Type:=8)
    If WorksheetFunction.CountA(Choose_rng) = 0 Then MsgBox "选择单元格区域为空": Exit Sub
    On Error GoTo 0
    
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    '利用Word的把表格黏贴进文档时、不会改变单元格、文字的设置的特性，创建一个临时word文档作为中间的承接点
    Set wdap = CreateObject("Word.Application")
    With wdap
        .Visible = True
        .Documents.Add  '添加一个word表
    End With
    
    Choose_rng.Copy  '复制表黏贴到Word文档
    wdap.Selection.Paste
    
    wdap.Selection.WholeStory  '复制word文档的内容，黏贴到新表
    wdap.Selection.Copy
    ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Sheets(Sheets.Count).Name = "复制表存放"
    ThisWorkbook.Sheets("复制表存放").Range("A1").Select
    ActiveSheet.Paste

    wdap.Documents.Close False
    wdap.Quit

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
MsgBox "完成"
End Sub

1：文件传输时，剔除条件格式设置时的逻辑条件但仍保留格式

2：自主修改部分代码做成小的应用

3：多适用于传输文件但不希望对方了解标注的逻辑条件

源码视频演示

取消单元格条件格式但保留格式样式

目录