Cum se compară datele din două coloane pentru a găsi dubluri în Excel

Puteți utiliza următoarele metode pentru a compara datele din două coloane de foaie de lucru Microsoft Excel și pentru a găsi intrări dublate. 

Metoda 1: utilizarea unei formule de foaie de lucru

  1. Porniți Excel.

  2. Î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

  3. Tastați următoarea formulă în celula B1:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Selectați celula B1 la B5.

  5. În Excel 2007 și versiunile mai recente de Excel, selectați umplere în 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 furnizează exemple de programare doar pentru ilustrație, fără garanție explicită sau implicită. Acestea includ, dar nu se limitează la garanþiile implicite de vandabilitate sau adecvare la un anumit scop. Acest articol presupune că sunteți familiarizat cu limbajul de programare care este în curs de demonstrare și cu instrumentele utilizate pentru a crea și a depana proceduri. Inginerii de asistență Microsoft vă pot ajuta să explicați funcționalitatea unei anumite proceduri. Cu toate acestea, aceștia nu vor modifica aceste exemple pentru a oferi funcționalități suplimentare sau pentru a construi proceduri pentru a îndeplini cerințele specifice.

Pentru a utiliza o macrocomandă Visual Basic pentru a compara datele din două coloane, utilizați pașii din exemplul următor:

  1. Porniți Excel.

  2. Apăsați ALT + F11 pentru a porni Visual Basic Editor.

  3. În meniul Inserare , selectați modul.

  4. 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
  5. Apăsați ALT + F11 pentru a reveni la Excel.

    1. 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

  6. Selectați celula a1 la a5.

  7. În Excel 2007 și versiunile mai recente de Excel, 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 din caseta de particularizare din partea dreaptă.

  8. 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 amplasate lângă prima coloană, așa cum se ilustrează aici:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Notă:  Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Ne puteți spune dacă informațiile au fost utile? Aici se află articolul în limba engleză, ca referință.

Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×