Excel - Az oszlopok összehasonlítása a hiányzó adatok megtalálásához

A Microsoft Excel Office szoftver olyan funkciókkal rendelkezik, amelyek lehetővé teszik a felhasználó számára, hogy igényeinek és igényeinek megfelelően munkalapokat hozzon létre. Könnyen létrehozhat egy makrót az oszlopok összehasonlításához az Excelben hiányzó adatok megtalálásához . Az Excelben lévő makrók számításokhoz és adatkezeléshez használhatók a munkalapokban. Nem szükséges az Excel makrókat semmiből írni, mivel sok olyan erőforrás áll rendelkezésre az interneten, amelyek kódot adnak a makrók számára. A programozás ismerete hasznos lehet, de nem feltétlenül szükséges egy makró létrehozása az oszlopok összehasonlításához az Excel munkalapok hiányzó adatainak megtalálásához .

Probléma

Kérem segítséget! Két munkalap (C & Q) van. Minden munkalap négy oszlopot tartalmaz, minden oszlop különböző információkat tartalmaz (A = Dátum, B = Egyéb, C = Leírás, D = Összeg), de mindkét munkalap egyforma. Megpróbálom összehasonlítani a D oszlopot mindkét munkalapban annak érdekében, hogy a Q. munkalapon hiányzó adatokat találjunk.

Megoldás

Ha a makró megtalálja a hiányzó adatokat, mit szeretne vele csinálni? Makrómban a C lap D oszlopában található adatok, amelyek hiányoznak a Q lap ugyanazon oszlopában, sárga színűek lesznek. Ez lehet, vagy nem az, amit a hiányzó adatokkal szeretne tenni. Itt az alábbi makró. Módosítsa azt a kívánt módon.

Először futtassa a makrót, és nézze meg a C lapot, hogy megtudja, mi történik a makró módosítása előtt:

 Sub teszt () Dim cfindq mint tartomány, rc mint tartomány, cc mint tartomány, x mint dupla hiba hiba folytatása következő munkalapokkal ("c") .Cells.Interior.ColorIndex = xlNone Set rc = tartomány (.Range ("d2" ), .Range ("d2"). Vége (xlDown) Minden cc-ben Az rc x = cc.Value munkalapokkal ("q"). Oszlopok ("D: D") Állítsa be a cfindq = .Cells.Find. : = x, lookat: = xlWhole) Ha a cfindq nincs semmi, akkor GoTo line1 Else GoTo line2 Vége Ha vége sorral1: cc.Interior.ColorIndex = 6 sor2: Következő cc Vége végével