Questione : Macro di Excel che cancellerebbe le file se i numeri di identificazione abbinano

Ho un libro di esercizi di Excel con due manuali che contenere nome-e-richiama i dati.  In entrambi i manuali, la prima colonna contiene i numeri di identificazione.  Gradirei una macro che cancella la fila dal PRIMO manuale se ci è un numero di identificazione di corrispondenza nel SECONDO senso possibile di worksheet.

One fare questo fosse di aggiungere i dati dal secondo manuale al primo manuale ed allora di cancellare ENTRAMBE LE file se ci è in anticipo un duplicato pair.

Thanks per qualunque help. class= del

Risposta : Macro di Excel che cancellerebbe le file se i numeri di identificazione abbinano

Ciò farà il lavoro:
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:

Opzione esplicita
Sommergibile pubblico ClearSheet1 ()
    S1 fioco come manuale
    S2 fioco come manuale
    
    Regolar s1 = ActiveWorkbook.Sheets (1)
    Regolar s2 = ActiveWorkbook.Sheets (2)
    
    Oscurare s1Row come numero intero: s1Row = 1
    Mentre s1.Cells (s1Row, 1).FormulaR1C1 <> ""
        Identificazione fioca come stringa: identificazione = s1.Cells (s1Row, 1).FormulaR1C1
        Se IsPresent (s2, identificazione) allora
            s1.Rows (CStr (s1Row) & “: „ & CStr (s1Row)). Spostamento di cancellazione: =xlUp
        Altrimenti
            s1Row = s1Row + 1
        Concluder se
    Wend
    
Concludere il sommergibile

Funzione pubblica IsPresent (s come manuale, identificazione come stringa) come booleano
    Fila fioca come numero intero: fila = 1
    Risultato fioco come booleano: risultato = falso
     
    Fare mentre s.Cells (fila, 1).FormulaR1C1 <> ""
        Se s.Cells (fila, 1).FormulaR1C1 = identificazione allora
            il risultato = allinea
            L'uscita fa
        Concluder se
        fila = fila + 1
    Ciclo
    IsPresent = risultato
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us