Kā salīdzināt divu kolonnu datus, lai atrastu dublikātus programmā Excel

Varat izmantot tālāk norādītās metodes, lai salīdzinātu datus divās Microsoft Excel darblapas kolonnās un atrastu ierakstu dublikātus. 

1. metode: darblapas formulas izmantošana

  1. Startējiet programmu Excel.

  2. Jaunā darblapā ievadiet šādus datus kā piemēru (B kolonnu atstājiet tukšu):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Ierakstiet šādu formulu šūnā B1:

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

  4. Atlasiet šūnu B1 uz B5.

  5. Programmā Excel 2007 un jaunākās Excel versijās atlasiet aizpildīt grupā rediģēšana un pēc tam atlasiet uz leju.

    Dublētie numuri tiek parādīti kolonnā B, kā parādīts tālāk esošajā piemērā. 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

2. metode: Visual Basic makro lietošana

Brīdinājums.: Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bez izteiktas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešajām garantijām par piemērotību lietošanai vai atbilstību noteiktam nolūkam. Šajā rakstā ir pieņemts, ka esat iepazinies ar programmēšanas valodu, kas tiek parādīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot noteiktas procedūras funkcionalitāti. Taču tie nemainīs šos piemērus, lai nodrošinātu pievienoto funkcionalitāti vai izveidotu procedūras, kas atbilst jūsu konkrētajām prasībām.

Lai izmantotu Visual Basic makro un salīdzinātu datus divās kolonnās, veiciet nākamajā piemērā norādītās darbības.

  1. Startējiet programmu Excel.

  2. Nospiediet taustiņu kombināciju ALT + F11, lai startētu Visual Basic redaktoru.

  3. Izvēlnē ievietošana atlasiet modulis.

  4. Ievadiet tālāk norādīto kodu moduļa lapā.

    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. Nospiediet taustiņu kombināciju ALT + F11, lai atgrieztos programmā Excel.

    1. Ievadiet šādus datus kā piemēru (atstājiet B kolonnu tukšu):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Atlasiet šūnu a1 – A5.

  7. Programmā Excel 2007 un jaunākās Excel versijās atlasiet cilni Izstrādātājs un pēc tam grupā kods atlasiet makro .

    Piezīme.: Ja cilne Izstrādātājs netiek rādīta, iespējams, tas ir jāaktivizē. Lai to izdarītu, atlasiet fails > Opcijas > lentes pielāgošanaun pēc tam labajā pusē esošajā lodziņā pielāgošana atlasiet cilni Izstrādātājs .

  8. Noklikšķiniet uz Find_Matchesun pēc tam uz palaist.

    Dublētie numuri tiek parādīti kolonnā B. Atbilstošos skaitļus novieto blakus pirmajai kolonnai, kā parādīts šeit:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Piezīme.:  Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai jūs varat mūs informēt, vai informācija bija noderīga? Šeit ir raksts angļu valodā jūsu atsaucei.​

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×