Excel táblák összehasonlítása!
2012-02-01T14:51:21+01:00
2012-02-02T11:20:01+01:00
2022-06-29T04:20:43+02:00
amityko
Sziasztok!

A következő kérdéssel fordulok hozzátok. Adott két excel tábla. Azt szeretném megoldani a lehető legegyszerűbben, hogy a két tábla közt mik a különbségek, és azt emelje ki nekem valamilyen módon.
A neten számos programot találtam, de egyik sem volt megfelelő számomra.
Szíves egítségeteket előre is köszönöm.
Mutasd a teljes hozzászólást!
A kibővített makró a Kigyűjt lapra, az A oszlopba írja az eltérő értékeket, a B-be pedig a cella címét, amiben a Tábla_1 és Tábla_2 értékei nem egyformák.

Sub Hasonlit() Dim ter$, CV, sor% Sheets("Tábla_1").Select ter$ = ActiveSheet.UsedRange.Address sor% = 2 For Each CV In Range(ter$) If CV <> Sheets("Tábla_2").Range(CV.Address) Then Range(CV.Address).Font.ColorIndex = 3 Sheets("Tábla_2").Range(CV.Address).Font.ColorIndex = 5 Sheets("Kigyűjt").Cells(sor%, 1) = CV Sheets("Kigyűjt").Cells(sor%, 2) = CV.Address sor% = sor% + 1 End If Next End Sub
Mutasd a teljes hozzászólást!

  • A Tábla_1 és Tábla_2 nevű lapokon összehasonlítja a két táblázatot, és a Tábla_1 lapon pirosra, a Tábla_2 lapon kékre állítja az eltérő tartalmú cellák karaktereinek a színét.


    Sub Hasonlit() Dim ter$, CV Sheets("Tábla_1").Select ter$ = ActiveSheet.UsedRange.Address For Each CV In Range(ter$) If CV <> Sheets("Tábla_2").Range(CV.Address) Then Range(CV.Address).Font.ColorIndex = 3 Sheets("Tábla_2").Range(CV.Address).Font.ColorIndex = 5 End If Next End Sub
    Azonos méretű táblázatokat feltételez, illetve akkora területet ellenőriz a 2. lapon, amekkora az elsőn van.
    Mutasd a teljes hozzászólást!
  • Szuper ez nagyon jó, lehetne egy kicsit turbozni rajta? Az lenne az igazán tuti, ha a különbségeket nem csak kijelölné hanem ki is listázná egymás alá egy 3. munkafüzetbe. Tudod hogy azt lássam, hogy mi az amivel több vagy kevesebb a tábla egy mint a tábla 2 és ez a különbség jelenjen meg a tábla 3 ba
    Tudod hosszú excel táblák vannak és mire össze bogarászo még így is beleőszülök.

    Előre is kössz!
    Mutasd a teljes hozzászólást!
  • A kibővített makró a Kigyűjt lapra, az A oszlopba írja az eltérő értékeket, a B-be pedig a cella címét, amiben a Tábla_1 és Tábla_2 értékei nem egyformák.

    Sub Hasonlit() Dim ter$, CV, sor% Sheets("Tábla_1").Select ter$ = ActiveSheet.UsedRange.Address sor% = 2 For Each CV In Range(ter$) If CV <> Sheets("Tábla_2").Range(CV.Address) Then Range(CV.Address).Font.ColorIndex = 3 Sheets("Tábla_2").Range(CV.Address).Font.ColorIndex = 5 Sheets("Kigyűjt").Cells(sor%, 1) = CV Sheets("Kigyűjt").Cells(sor%, 2) = CV.Address sor% = sor% + 1 End If Next End Sub
    Mutasd a teljes hozzászólást!
  • Köszi. Valami ilyesmire gondoltam. Küldöm a pontokat.
    Mutasd a teljes hozzászólást!
  • Eddig a prog.hu-n oldottam meg az excellel kapcsolatos problémáimat, de úgy látom hogy itt is van egy specialista.
    Mutasd a teljes hozzászólást!
  • Szívesen, és köszönöm a pontokat. Megyek is velük a boltba.
    Mutasd a teljes hozzászólást!
abcd