Fråga : Överträffa makroen som skulle borttagnings ror, om LEGITIMATIONEN numrerar matchen

Jag har en Excelarbetsbok med två arbetssedlar som innehåller för namnge-och-att tilltala data.  I båda arbetssedlar den första kolonnen innehåller LEGITIMATION numrerar.  Jag skulle något liknande en makro som tar bort ro från den FÖRSTA arbetssedeln, om det finns en matcha LEGITIMATION numrerar i möjligheten för UNDERSTÖDJA worksheet.

One långt för att göra skulle detta är att fästa datan från understödjaarbetssedeln till den första arbetssedeln, och därefter att ta bort BÅDA ror, om det finns ett dubblett pair.

Thanks i förskott för någon help. " klar "

Svar : Överträffa makroen som skulle borttagnings ror, om LEGITIMATIONEN numrerar matchen

Ska detta gör jobbet:
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:

Explicit alternativ
Offentlig Sub ClearSheet1 ()
    Dunkel s1 som arbetssedeln
    Dunkel s2 som arbetssedeln
    
    Uppsättning s1 = ActiveWorkbook.Sheets (1)
    Uppsättning s2 = ActiveWorkbook.Sheets (2)
    
    Dunkel s1Row som heltal: s1Row = 1
    "" .FormulaR1C1 för stunder s1.Cells (s1Row, 1 <> ),
        Dunkelt ID som stränger: ID = s1.Cells (s1Row, 1) .FormulaR1C1
        Om IsPresent (s2, ID) därefter
            s1.Rows (CStr (s1Row) & ”: ” & CStr (s1Row)). Borttagningsförskjutning: =xlUp
        Annars
            s1Row = s1Row + 1
        Avsluta om
    Wend
    
Avsluta suben

Allmänhet fungerar IsPresent (s som arbetssedeln, ID som stränger) som Boolean
    Dunkelt ro som heltal: ro = 1
    Dunkelt resultat som Boolean: resultat = falskt
     
    Gör "" .FormulaR1C1 för stunder s.Cells (ro, 1 <> ),
        Om s.Cells (ro, 1), .FormulaR1C1 = ID därefter
            resultatet = True
            Gå ut gör
        Avsluta om
        ro = ro + 1
    Kretsa
    IsPresent = resultat
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us