Frage : Excel-Makro, das Reihen löschen würde, wenn Identifikation-Zahlen zusammenpassen

Ich habe ein Excel-Arbeitsbuch mit zwei Arbeitsblättern, die das Enthalten Daten Name-und-adressieren.  In beiden Arbeitsblättern enthält die erste Spalte Identifikation-Zahlen.  Ich möchte ein Makro, das die Reihe aus dem ERSTEN Arbeitsblatt löscht, wenn es eine zusammenpassende Identifikation-Zahl auf die ZWEITE worksheet.

One mögliche Art, dies zu tun sein, die Daten vom zweiten Arbeitsblatt zum ersten Arbeitsblatt anzufügen und BEIDE Reihen dann zu löschen gibt, wenn es ein Duplikat pair.

Thanks im Voraus für irgendein help. gibt

Antwort : Excel-Makro, das Reihen löschen würde, wenn Identifikation-Zahlen zusammenpassen

Dieses erledigt die Arbeit:
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:

Wahl ausdrücklich
Allgemeines Unterseeboot ClearSheet1 ()
    Schwacher s1 als Arbeitsblatt
    Schwaches s2 als Arbeitsblatt
    
    Einstellen s1 = ActiveWorkbook.Sheets (1)
    Einstellen s2 = ActiveWorkbook.Sheets (2)
    
    s1Row als ganze Zahl verdunkeln: s1Row = 1
    Während s1.Cells (s1Row, 1).FormulaR1C1 <> ""
        Schwache Identifikation als Schnur: Identifikation = s1.Cells (s1Row, 1).FormulaR1C1
        Wenn IsPresent (s2, Identifikation) dann
            s1.Rows (CStr (s1Row) u. „: “ U. CStr (s1Row)). Löschung-Verschiebung: =xlUp
        Sonst
            s1Row = s1Row + 1
        Beenden wenn
    Wend
    
Unterseeboot beenden

Allgemeine Funktion IsPresent (s als Arbeitsblatt, Identifikation als Schnur) wie Boolesch
    Schwache Reihe als ganze Zahl: Reihe = 1
    Schwaches Resultat, wie Boolesch: Resultat = falsch
     
    Tun, während s.Cells (Reihe, 1).FormulaR1C1 <> ""
        Wenn s.Cells (Reihe, 1).FormulaR1C1 = Identifikation dann
            Resultat = ausrichten en
            Ausgang tun
        Beenden wenn
        Reihe = Reihe + 1
    Schleife
    IsPresent = Resultat
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us