Excel:如何复制/粘贴条件格式,就像条件是“值”一样?

时间:2019-03-21 04:39:12

标签: excel vba conditional-formatting

就像Excel允许您以Value(忽略格式)一样复制并粘贴单元格一样,我该如何做相反的事情?

在此示例中,即使在删除列R 之后,我仍要保留黄色的条件格式。因此以某种方式将条件保留为Q列中的单元格中的“值”。

enter image description here

当前,我必须隐藏列R,以便保留条件格式。如果我完全删除该列,那么我将失去格式,因为它是基于公式的。

=IF(R2="*",true,false)

我希望Excel具有复制/粘贴颜色

1 个答案:

答案 0 :(得分:2)

正如 Brad Dixon 所说,VBA是唯一的解决方案...

Public Sub HighlightColumn()
    Dim tbl As ListObject
    Dim wsCell As Range
    Dim rw As Range

    'loop through each row
    Set tbl = ActiveSheet.ListObjects("Table_1")  'my data is inside a table
    For Each rw In tbl.Range.SpecialCells(xlCellTypeVisible).Rows
        Set wsCell = rw.Cells(1, 17)
        If rw.Cells(1, 18) = "*" Then
            With wsCell
                .Interior.Color = vbYellow
            End With
        End If
    Next rw

    'the golden moment!
    tbl.Range(, 18).EntireColumn.Delete
End Sub