Excel - Két lista összehasonlítása és a sor színeinek módosítása

Probléma

Két különböző munkafüzetem van; mondjuk 1-es munkafüzetet és munkafüzetet2. Mindkét munkafüzetben van egy oszlop vonalkódokkal.

Szükségem van egy VBA-ra, hogy ellenőrizze a két vonalkód oszlopot a munkafüzetekben, és ha talál találatokat egy új munkafüzet létrehozásához, és átmásolja az 1-es munkafüzet egész sorát, és ugyanazt a színsávot használja a munkafüzetben 2.

Megoldás

Feltételezem, hogy a vonalkód oszlopok mind az 1., mind a 2. lap azonosak

majd próbálja meg ezt a kódot

a kód elindításakor a kód egy bemenetet kér a vonalkód oszlopbetűjéről. beírhatja az oszlop levelet, pl. G, és kattintson az OK gombra (a jobb felső sarokban):

A makró

 Sub teszt () Dim col mint karakterlánc, r mint tartomány, c mint tartomány, keresse meg a tartományt Dim x, y as integer col = InputBox ("írja be a LETTER oszlopot, amelyben a vonalkód pl. Munkalapok ("sheet2") beállítása r = Range (.Cells (2, col), .Cells (2, col) .End (xlDown)) Minden c esetén rx = c.Value munkalapokkal ("sheet1"). Oszlopok (col & ":" & col) Állítsa be a cfind = .Cells.Find.Find (ami: = x, lookat: = xlWhole) Ha a cfind nincs semmi, akkor GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy with Worksheets ( "sheet3") .Cells (sorok.Count, "A"). End (xlUp) .Offset (1, 0) .PasteSpecial .Cells (sorok.Count, col) .End (xlUp) .Intern.ColorIndex = y End A következővel bezárva: Következő c Vége Vége