Excel - kā saskaņot visu kopējo sarakstu?

Izdevums

Man ir 4 kolonnas. pirmās divas (A & B) kolonnas ir izsniegto pārbaužu saraksts. tad pārējās divas (C & D) kolonnas ir no Bankā ieskaitīto čeku saraksts. tas izskatās šādi:

 A ---------- B ---------- C ---------- D IZDOTI ---- Summa ---- Ieskaitīts --- daudzums 001 ------ 112, 00 ------ 001 ------ 112.00 002 ------ 200.25 ------ 003 ------ 350.00 003 --- --- 350, 00 ------ 004 ------ 512, 00 004 ------ 512.05 ------ 005 ------ 200.10 005 ------ 200.05 - ---- 007 ------ 821.30 006 ------ 300.25 ------ 009 ------ 100.10 007 ------ 821.30 ------ 010 - ----- 500.00 008 ------ 254.23 009 ------ 100, 00 010 ------ 500.00

Tagad, ko es gribu darīt, ir saskaņot visus kopējos čeku numurus A un C slejā. Un ļaujot man zināt E slejā, ja summa ir tāda pati. kas izskatīsies šādi:

 ---------- B ---------- C ---------- D ---------- E IZDOTI ---- Summa ---- Ievietota ---- summa ----- Vērtība 001 ------ 112.00 ------ 001 ------ 112.00 ----- TRUE 002 - ---- 200.25 003 ------ 350.00 ------ 003 ------ 350.00 ----- TRUE 004 ------ 512.05 ------ 004 - ---- 512.00 ----- FALSE 005 ------ 200.05 ------ 005 ------ 200.10 ----- FALSE 006 ------ 300.25 007 - ---- 821.30 ------ 007 ------ 821.30 ----- TRUE 008 ------ 254.23 009 ------ 100, 00 ------ 009 - ---- 100.80 ----- FALSE 010 ------ 500.00 ------ 010 ------ 500.00 ----- TRUE

Risinājums

Pieņēmumi

1. Maksimālās datu rindas atrodamas A slejā
2. Makro izpildes laikā aktīvā lapa ir lapa ar datiem

 Sub AlignAndAccount () Dim lMaxRows kā ilgi Dim lRowBeanCounter kā garas kolonnas ("A: B"). Atlasiet Selection.Sort _ Key1: = Range ("A2"), Order1: = xlAscending, _ Header: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orientācija: = xlTopToBottom, _ DataOption1: = xlSortNormal kolonnas ("C: D"). Atlasiet Selection.Sort _ Key1: = Range ("C2"), Order1: = xlAscending, _ Header: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orientācija: = xlTopToBottom, _ DataOption1: = xlSortNormal lMaxRows = Šūnas (rindas.Skaitlis, "A"). Beigas (xlUp). ) = "Vērtība" lRowBeanCounter = 2 Lai lMaxRows Izvēlieties gadījumu šūnas (lRowBeanCounter, "A") Lieta ir = šūnas (lRowBeanCounter, "C") Ja (šūnas (lRowBeanCounter, "B") = šūnas (lRowBeanCounter, "D" )) Tad šūnas (lRowBeanCounter, "E") = "TRUE" Else Cells (lRowBeanCounter, "E") = "FALSE" Beigas Ja gadījums ir <Cells (lRowBeanCounter, "C") diapazons ("C" un "RBB" : D "& lRowBeanCounter) .Izvēlieties Selection.Insert Shift: = xlDown 'Cells (lRowBeanCounter, " E ") =" FALSE "Case Else Range (" A "un" RBB "skaitītājs &": B "& lRowBeanCounter) .Izvēlieties Selection.Insert Shift: = xlDown lMaxRows = lMaxRows + 1 beigas Izvēlieties nākamo lRowBeanCounter End Sub