Vraag : De macro van Excel die rijen zou schrappen als de aantallen van identiteitskaart aanpassen

Ik heb een werkboek van Excel met twee aantekenvellen die naam-en-adresgegevens bevatten.  In beide aantekenvellen, bevat de eerste kolom de aantallen van identiteitskaart.  Ik zou van een macro houden die de rij van het EERSTE aantekenvel schrapt als er een passend aantal van identiteitskaart op de TWEEDE mogelijke manier worksheet.

One is om dit te doen zou zijn de gegevens van het tweede aantekenvel toe te voegen aan het eerste aantekenvel en dan BEIDE rijen te schrappen als er een dubbele pair.

Thanks vooraf voor om het even welke help. zijn

Antwoord : De macro van Excel die rijen zou schrappen als de aantallen van identiteitskaart aanpassen

Dit zal het werk doen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Expliciete optie
Openbare SubClearSheet1 ()
    Schemerig S1 als Aantekenvel
    Schemerige s2 als Aantekenvel
    
    Vastgesteld S1 = ActiveWorkbook.Sheets (1)
    Reeks s2 = ActiveWorkbook.Sheets (2)
    
    Schemerige s1Row als Geheel: s1Row = 1
    Terwijl S1. Cellen (s1Row, 1) .FormulaR1C1 <> ""
        Schemerige identiteitskaart als Koord: identiteitskaart = S1. Cellen (s1Row, 1) .FormulaR1C1
        Als IsPresent (s2, identiteitskaart) Dan
            S1. Rijen (CStr (s1Row) & „: “ & CStr (s1Row)). Schrap Verschuiving: =xlUp
        Anders
            s1Row = s1Row + 1
        Eind als
    Wend
    
Sub van het eind

Overheidsfunctie IsPresent (s als Aantekenvel, identiteitskaart als Koord) zoals Van Boole
    Schemerige rij als Geheel: rij = 1
    Verduister resultaat Van Boole: resultaat = Vals
     
    Doe terwijl s.Cells (rij, 1) .FormulaR1C1 <> ""
        Als s.Cells (rij, 1) .FormulaR1C1 = identiteitskaart toen
            resultaat = Waar
            De uitgang 
        Beëindig als
        rij = rij + 1
    Lijn
    IsPresent = resultaat
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us