就像Excel允许您以Value
(忽略格式)一样复制并粘贴单元格一样,我该如何做相反的事情?
在此示例中,即使在删除列R 之后,我仍要保留黄色的条件格式。因此以某种方式将条件保留为Q列中的单元格中的“值”。
当前,我必须隐藏列R,以便保留条件格式。如果我完全删除该列,那么我将失去格式,因为它是基于公式的。
即
=IF(R2="*",true,false)
我希望Excel具有复制/粘贴颜色。
答案 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