Подсветить всю строку, если два столбца совпадают и не являются пустыми - Excel VBA

Question

Я огляделся и, хотя здесь есть что-то, что могло бы мне помочь, я немного новичок в vba, чтобы заставить его работать. Я работаю над макросом для сортировки довольно большого диапазона данных и хотел бы выделить строку, если два конкретных столбца совпадают, если только один столбец (K) не пуст.

Подробнее: Если столбец D = столбец K и столбец K не пустой, выделите эту строку. Количество строк в книге будет меняться в зависимости от дня, а набор данных начинается со строки 3. Я думал как-то использовать .end (xlup) для копирования формулы, но, как я уже сказал, я не лучший в VBA, так что я не совсем уверен.

Я знаю, что это может быть достигнуто с помощью условного форматирования, но я пытаюсь встроить это в vba, чтобы это было одним нажатием кнопки.

Будьте нежны, я некоторое время прятался здесь, находя ответы, но это первый раз, когда мне не удалось сделать одну работу.

Спасибо за вашу помощь

Answer 1

Вот версия, на которую вы можете посмотреть

Sub DoIt()

    Dim Rng As Range, C As Range

    Set Rng = Columns("K:K").SpecialCells(xlCellTypeConstants, 23)
    Columns("K:K").SpecialCells(xlCellTypeBlanks).EntireRow.Interior.Color = xlNone
    For Each C In Rng.Cells

        If C.Offset(, -7) = C Then

            Range(Cells(C.Row, "K"), Cells(C.Row, "D")).Interior.Color = vbYellow
        Else: Range(Cells(C.Row, "K"), Cells(C.Row, "D")).Interior.Color = xlNone

        End If

    Next C
End Sub