Excel: как скопировать / вставить условное форматирование, как если бы условие было «значением»? - PullRequest
1 голос
/ 21 марта 2019

Так же, как Excel позволяет Копировать и вставлять ячейки как Value (игнорируя форматирование), как я могу сделать обратное?

В этом примере я хочу сохранить желтые условные форматы даже после Я удаляю столбец R . Таким образом, в некотором смысле сохраните условие как «значение» внутри ячеек в столбце Q.

enter image description here

В настоящее время я должен скрыть Столбец R, чтобы сохранить условное форматирование. Если я полностью удаляю столбец, я теряю форматирование, потому что оно основано на формуле.

т.е.

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

Хотелось бы, чтобы в Excel была копия / вставка Цвета .

1 Ответ

2 голосов
/ 21 марта 2019

Как сказал Брэд Диксон , 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...