Come confrontare le colonne con VBA

Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione progettato per i programmi di Microsoft Office , come PowerPoint , Word ed Excel . Esso consente di creare strumenti personalizzati , pulsanti e menu che è possibile utilizzare per personalizzare le applicazioni di Office. Per esempio, non c'è uno strumento in Excel che permette di confrontare le colonne ed evidenziare le differenze . Tuttavia, con un po 'di codice VBA , è possibile creare uno strumento utile solo per tale scopo . Cose che ti serviranno
Excel 2007 o Excel 2010
Mostra più istruzioni

1 Fare clic sulla scheda " Sviluppo " in Excel e quindi fare clic su " Visual Basic ".

2

Fare clic su " Inserisci ". Fare clic su "Modulo" per aprire una nuova finestra del modulo
3

Tagliare e incollare il seguente codice nella finestra : .

Sub CompareColumns ()

dim Colonna1 come gamma

dim Column2 come gamma

' Richiedi all'utente per la prima gamma colonna di confrontare ...

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

Colonna1 = Application.InputBox ( " Selezionare prima colonna al Confronto " , Type : = 8 ) per

' Controllare che il range di aver fornito consiste di solo 1 colonna ...

Column1.Columns . conte > 1 Then

Do Until Column1.Columns.Count = 1

MsgBox " È possibile selezionare solo 1 colonna "

Colonna1 = Application.InputBox ( " selezionare prima colonna al Confronto " , Type : = 8 ) per

loop

End If

' Richiedi all'utente per il secondo intervallo di colonna per confrontare ...

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

Column2 = Application.InputBox ( " Select seconda colonna a Confronto " , Type : = 8 ) per

' Controllare che il range di aver fornito consiste di solo 1 colonna ...

Se Column2.Columns.Count > 1 Then

Do Until Column2.Columns.Count = 1

MsgBox " È possibile selezionare solo 1 colonna " < br

Set> Column2 = Application.InputBox ( " Select seconda colonna a Confronto " , Type : = 8 ) per

loop

End If

'Check sia colonna intervalli sono le stesse dimensioni ...

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

Se Column2.Rows.Count < > Column1.Rows.Count Poi

Do Until Column2.Rows.Count = Column1.Rows . Conte

MsgBox " la seconda colonna deve essere la stessa dimensione come il primo"

Column2 = Application.InputBox ( " Select seconda colonna al Confronto " , Type : = 8 ) per

loop

End If

' Se sono state selezionate intere colonne (ad esempio, $ AA ) , limitare le dimensioni della gamma per la

' UsedRange del foglio attivo . Questo interrompe la routine di controllo dell'intero Column1.Rows.Count = 65536 Poi

Colonna1 = Range ( Column1.Cells ( 1 ) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) ) per

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

End If

'Esecuzione delle cellule di confronto e set che sono gli stessi di
giallo

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

Dim intCell As Long

intCell = 1 Per Column1.Rows.Count

Se Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Then

Column1.Cells ( intCell ) . Interior.Color = vbYellow

Column2.Cells ( intCell ) . Interior.Color = vbYellow

End If

Avanti

End Sub
4

Premere " F5 " per eseguire la routine e confrontare le colonne .

• Come convertire xls in Kmz 
• Come creare fogli di calcolo