Puteți utiliza următoarele metode pentru a compara datele din două coloane de foaie de lucru Microsoft Excel și a găsi intrări dublate.
Metoda 1: Utilizați o formulă de foaie de lucru
-
Porniți Excel.
-
Într-o foaie de lucru nouă, introduceți următoarele date ca exemplu (lăsați coloana B necompletată):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Tastați următoarea formulă în celula B1: =IF(ISERROR(MATCH(A1;$C$1:$C$5,0)),"",A1)
-
Selectați celula B1 până la B5.
-
Selectați Completați grupul Editare, apoi selectați În jos.Numerele dublate sunt afișate în coloana B, ca în exemplul următor:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metoda 2: Utilizarea unei macrocomenzi Visual Basic
Avertisment: Microsoft oferă exemple de programare doar pentru ilustrație, fără garanție exprimată sau implicită. Aceasta include, dar nu se limitează la, garanțiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteți familiarizat cu limbajul de programare care este demonstrat și cu instrumentele utilizate pentru a crea și a depana procedurile. Inginerii de asistență Microsoft vă pot ajuta să explicați funcționalitatea unei anumite proceduri. Totuși, aceștia nu vor modifica aceste exemple pentru a oferi funcționalități suplimentare sau proceduri de construcție pentru a îndeplini cerințele dvs. specifice.
Pentru a utiliza o macrocomandă Visual Basic pentru a compara datele din două coloane, urmați pașii din exemplul următor:
-
Porniți Excel.
-
Apăsați ALT+F11 pentru a porni editorul Visual Basic.
-
În meniul Inserare, selectați Modul.
-
Introduceți următorul cod într-o foaie de modul:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Apăsați ALT+F11 pentru a reveni la Excel.
-
Introduceți următoarele date ca exemplu (lăsați coloana B necompletată):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Selectați celula A1-A5.
-
Selectați fila Dezvoltator, apoi selectați Macrocomenzi în grupul Cod .
Notă: Dacă nu vedeți fila Dezvoltator , poate fi necesar să o activați. Pentru a face acest lucru, selectați Opțiuni > fișier > Particularizare Panglică, apoi selectați fila Dezvoltator în caseta de particularizare din partea dreaptă.
-
Faceți clic pe Find_Matches, apoi faceți clic pe Rulare.Numerele dublate sunt afișate în coloana B. Numerele care se potrivesc vor fi puse lângă prima coloană, după cum este ilustrat aici:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
