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

问题描述 投票:1回答:1

就像Excel允许你复制和粘贴单元格作为Value(忽略格式化),我怎么能做相反的事情?

在这个例子中,我想保留黄色的条件格式,即使我删除了列R.所以在某种程度上将条件保留为列Q中单元格内的“值”。

enter image description here

目前我必须隐藏列R,以便保留条件格式。如果我完全删除列,我就会丢失格式,因为它基于公式。

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

我希望Excel有一个复制/粘贴颜色。

excel vba conditional-formatting
1个回答
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
© www.soinside.com 2019 - 2024. All rights reserved.