Excel VBA работает со стилями

Question

Может быть, простое решение этого вопроса.Я пытаюсь создать код VBA в Excel, поэтому он будет перемещать выделенные ячейки в «Хорошо» с листа А на лист Б.

Я могу перемещать ячейки без проблем, добавлять стили, но мне нужна помощь по вышеупомянутомуЕсли кто-то может указать мне в правильном направлении.

Answer 1

Рассмотрим:

Sub OutOfStyle()
    Dim cel As Range

    For Each cel In Sheets("Sheet1").UsedRange
        If cel.Style = "Good" Then
            cel.Copy Sheets("Sheet2").Range(cel.Address)
        End If
    Next cel
End Sub

Адаптируйте это к вашим собственным именам листа.