1

我现在正在学习我的第一门 VBA Excel 课程。我真的是 VBA 新手，所以在你的帮助下，我将获得在 VBA 编程方面做得最好的知识。我需要比较 2 列。我需要做的是寻找相同的数据并突出显示它，但是会发生什么，只有同一行上的相同数据是突出显示的。忽略不同行中的数据。请帮帮我。

这是我的代码：

Sub Compare()
Dim Col1 As Range
Dim Col2 As Range

    Set Col1 = Application.InputBox("Select First Column to Compare", Type:=8)


    If Col1.Columns.Count > 1 Then

      Do Until Col1.Columns.Count = 1

        MsgBox "You can only select 1 column"
        Set Col1 = Application.InputBox("Select First Column to Compare", Type:=8)

      Loop

    End If


    Set Col2 = Application.InputBox("Select Second Column to Compare", Type:=8)


    If Col2.Columns.Count > 1 Then

      Do Until Col2.Columns.Count = 1

        MsgBox "You can only select 1 column"
        Set Col2 = Application.InputBox("Select Second Column to Compare", Type:=8)

      Loop

    End If


  If Col2.Rows.Count <> Col1.Rows.Count Then

    Do Until Col2.Rows.Count = Col1.Rows.Count

      MsgBox "The second column must be the same size as the first"
      Set Col2 = Application.InputBox("Select Second Column to Compare", Type:=8)

    Loop

  End If


  If Col1.Rows.Count = 65536 Then


    Set Col1 = Range(Col1.Cells(1), Col1.Cells(ActiveSheet.UsedRange.Rows.Count))
    Set Col2 = Range(Col2.Cells(1), Col2.Cells(ActiveSheet.UsedRange.Rows.Count))


  End If



  Dim intCell As Long


  For intCell = 1 To Col1.Rows.Count


    If Col1.Cells(intCell) = Col2.Cells(intCell) Then

      Col1.Cells(intCell).Interior.Color = vbYellow
      Col2.Cells(intCell).Interior.Color = vbYellow

    End If
  Next

End Sub
4

0 回答 0