Norėdami palyginti duomenis dviejuose darbalapio stulpeliuose ir rasti pasikartojančius Microsoft Excel, galite naudoti šiuos metodus. 

1 būdas: darbalapio formulės naudojimas

  1. Pradėkite Excel.

  2. Naujame darbalapyje kaip pavyzdį įveskite šiuos duomenis (palikite B stulpelį tuščią):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Langelyje B1 įveskite šią formulę:

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

  4. Pažymėkite langelį B1 į B5.

  5. "Excel 2007" ir naujesnėse "Excel" versijose pasirinkite Užpildyti grupėje Redagavimas, tada pasirinkite Žemyn.

    Pasikartojantys skaičiai rodomi stulpelyje B, kaip pateiktame pavyzdyje: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

2 būdas: makrokomandos Visual Basic naudojimas

Įspėjimas: "Microsoft" pateikia programavimo pavyzdžius tik iliustracijai, be išreikštos ar numanomos garantijos. Tai apima numanomas tinkamumo prekybai arba tinkamumo tam tikru tikslu garantijas, bet tuo neapsiribojant. Šiame straipsnyje daroma prielaida, kad esate susipažinę su demonstruojanti programavimo kalba ir įrankiais, naudojamais procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcijas. Tačiau jie ne modifikuos šių pavyzdžių, kad pateiktų papildomas funkcijas arba konstruoja procedūras, kad atitiktų jūsų konkrečius reikalavimus.

Norėdami naudoti Visual Basic makrokomandą dviejų stulpelių duomenims palyginti, atlikite šiame pavyzdyje nurodytus veiksmus:

  1. Įjunkite programą „Excel“.

  2. Paspauskite ALT + F11, kad pradėtumėte Visual Basic rengyklę.

  3. Meniu Įterpimas pasirinkite Modulis.

  4. Modulio lape įveskite šį kodą:

    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. Paspauskite ALT + F11, kad grįžkite į Excel.

    1. Kaip pavyzdį įveskite šiuos duomenis (palikite stulpelį B tuščią):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Pažymėkite langelį nuo A1 iki A5.

  7. "Excel 2007" ir naujesnėse "Excel" versijose pasirinkite skirtuką Programų kūrėjas, tada pasirinkite Makrokomandos grupėje Kodas.

    Pastaba: Jei nematote skirtuko Programų kūrėjas, gali tekti jį įjungti. Norėdami tai padaryti, pasirinkite >parinktys > Juostelėstinkinimas , tada pasirinkite skirtuką Programų kūrėjas tinkinimo lauke dešinėje pusėje.

  8. Spustelėkite Find_Matches, tada spustelėkite Vykdyti.

    Pasikartojantys skaičiai rodomi stulpelyje B. Sutampantys skaičiai bus pateikti šalia pirmojo stulpelio, kaip parodyta čia:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?

Dėkojame už jūsų atsiliepimus!

×