Jämföra kolumner med varandra

Jämföra kolumndata

I detta tips visas hur vi på ett relativt enkel sätt kan jämföra data i två intilliggande kolumnen med varandra. Exemplet har som krav att de värden som finns i A-kolumnen och som återfinns i B-kolumnen skrivs ut i C-kolumnen på samma rad som värdena i A-kolumnen.

Option Explicit

Sub Jamfora_Kolumndata()

   '© 2003 Alla rättigheter XL-Dennis

   Dim rnKalla As Range, rnJamfora As Range, rnCell As Range, rnHitta As Range

   Application.ScreenUpdating = False

   With ActiveSheet

      Set rnKalla = .Range(.Range("A2"), .Range("A65536").End(xlUp))

      Set rnJamfora = .Range(.Range("B2"), .Range("B65536").End(xlUp))

   End With

   For Each rnCell In rnKalla

      Set rnHitta = rnJamfora.Find(What:=rnCell, _

            LookIn:=xlValues, _

           Lookat:=xlWhole)

      If Not rnHitta Is Nothing Then rnCell.Offset(0, 2) = rnHitta.Value

   Next rnCell

   Application.ScreenUpdating = True

End Sub