Выделите столбцы с различиями между двумя листами Excel с помощью VBA

Question

До сих пор я написал сценарий VBA для сравнения двух листов и выделения отдельных ячеек с различиями. Я пытаюсь выделить заголовки или столбцы ячеек, в которых находятся эти различия. Вот что у меня есть:

Sub checked()
    Dim mycol As Range
    Dim mycell As Range
    Dim shtSheet1 As Worksheet
    Dim shtSheet2 As Worksheet
    Set shtSheet1 = Worksheets("Sheet1")
    Set shtSheet2 = Worksheets("Sheet2")
    For Each mycell In shtSheet2.UsedRange
      If Not mycell.Value = shtSheet1.Cells(mycell.Row, mycell.Column).Value Then
        mycell.Interior.Color = vbRed
        'mycell.EntireColumn.Interior.Color = vbYellow
      End If

    Next
End Sub

Любая помощь очень ценится. Спасибо!

Answer 1

Sub checked()
    Dim mycell As Range
    Dim shtSheet1 As Worksheet
    Set shtSheet1 = Worksheets("Sheet1")
    With Worksheets("Sheet2")
        For Each mycell In .UsedRange
            If Not mycell.Value = shtSheet1.Range(mycell.Address).Value Then .Cells(1, mycell.Column).Interior.Color = vbYellow
        Next
    End with
End Sub

Answer 2

Если заголовок находится в строке 1, вы можете вызвать значение столбца mycell и указать строку 1: cells(1,mycell.Column).Interior.Color = vbRed