Klik op het tabblad " Developer " in Excel , en klik vervolgens op " Visual Basic . " < br >

Klik 2 " invoegen . " Klik op " Module " om een ​​nieuwe module te openen

Cut 3 en plak de volgende code in het venster : .

Sub CompareColumns
( ) op

Dim Kolom1 als Waaier

Dim Kolom2
als Waaier

' Prompt gebruiker voor de eerste kolom bereik te vergelijken ...

' ---------- ------------------------------------------

Set Kolom1 = Application.InputBox ( " Selecteer de eerste kolom te vergelijken " , Type : = 8 ) op Twitter

' Controleer of de waaier zij hebben verstrekt bestaat uit slechts 1 kolom ...

Als Column1.Columns . Graaf > 1 dan

Heb Tot Column1.Columns.Count = 1

MsgBox
" U kunt alleen 1 kolom "

Set
Kolom1 = Application.InputBox ( " Selecteer Eerste kolom te vergelijken " , Type : = 8 )

Loop

End
Als

' Prompt gebruiker voor de tweede kolom bereik te vergelijken ...

' ----------------------------------------------- -----

Stel Kolom2 = Application.InputBox ( " Select tweede kolom te vergelijken " , Type : = 8 ) op Twitter

' Controleer of de waaier zij hebben verstrekt bestaat uit slechts 1 kolom ...

Als Column2.Columns.Count > 1 dan

Doe tot Column2.Columns.Count = 1

MsgBox
" U kunt alleen 1 kolom " < br

Set Kolom2 > = Application.InputBox ( " Select tweede kolom te vergelijken " , Type : = 8 )

Loop

End
Als

'Controleer zowel kolom bereiken zijn dezelfde grootte ...

' ----------------------------------- ----------

Als Column2.Rows.Count < > Column1.Rows.Count dan

Doe tot Column2.Rows.Count = Column1.Rows . tel

MsgBox
" de tweede kolom moet van dezelfde grootte zijn als de eerste "

Set
Kolom2 = Application.InputBox ( " Select tweede kolom te vergelijken " , Type : = 8 ) op Twitter

Loop

End
Als

' Als hele kolommen zijn geselecteerd ( bijv. $ AA ) , beperken het bereik maten aan de

' UsedRange van het actieve blad . Dit stopt de routine controle van de hele Column1.Rows.Count = 65536 Dan

Set
Kolom1 = Range ( Column1.Cells ( 1 ) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) )

Set
Kolom2 = Range ( Column2.Cells ( 1 ) , Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) )

Eind
Als

' Voer de vergelijking en set -cellen die hetzelfde zijn voor gele

' ---------------------------------------------- ------------------

Dim intCell
As Long

intCell = 1 To

Column1.Rows.Count Als Column1.Cells ( intCell ) = Column2.Cells ( intCell ) dan

Column1.Cells
( intCell ) . Binnenste kleur = vbYellow

Column2.Cells
( intCell ) . Binnenste kleur = vbYellow

End
Als

Volgende

End Sub

Druk op " F5 "
4 om de routine draaien en vergelijk de kolommen .