Excel:如何copy/paste条件格式,就好像条件是"value"一样?
Excel: How to copy/paste Conditional Formatting, as if the condition were a "value"?
就像 Excel 允许您 复制和粘贴 单元格一样 Value
(忽略格式),我该如何做相反的事情?
在这个例子中,我想保留黄色的条件格式,即使在 我删除列 R 之后也是如此。因此,在某种程度上,将条件保留为 Q 列单元格内的 "value"。
目前我必须隐藏 R 列以便保留条件格式。如果我完全删除该列,我就会丢失格式,因为它基于公式。
即
=IF(R2="*",true,false)
我希望 Excel 有 Copy/Paste 颜色。
正如 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
就像 Excel 允许您 复制和粘贴 单元格一样 Value
(忽略格式),我该如何做相反的事情?
在这个例子中,我想保留黄色的条件格式,即使在 我删除列 R 之后也是如此。因此,在某种程度上,将条件保留为 Q 列单元格内的 "value"。
目前我必须隐藏 R 列以便保留条件格式。如果我完全删除该列,我就会丢失格式,因为它基于公式。
即
=IF(R2="*",true,false)
我希望 Excel 有 Copy/Paste 颜色。
正如 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