Cuestión : Macro de Excel que suprimiría filas si los números de identificación emparejan

Tengo un libro de trabajo de Excel con dos hojas de trabajo que el contener nombre-y-trata datos.  En ambas hojas de trabajo, la primera columna contiene números de identificación.  Quisiera una macro que suprime la fila de la PRIMERA hoja de trabajo si hay un número de identificación que empareja de la SEGUNDA manera posible de worksheet.

One de hacer esto sería añadir los datos de la segunda hoja de trabajo a la primera hoja de trabajo y después suprimir AMBAS filas si hay un duplicado pair.

Thanks por adelantado para cualquier help. class= del

Respuesta : Macro de Excel que suprimiría filas si los números de identificación emparejan

Esto hará el trabajo:
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:

Opción explícita
Submarino público ClearSheet1 ()
    S1 dévil como hoja de trabajo
    S2 dévil como hoja de trabajo
    
    Fijar S1 = ActiveWorkbook.Sheets (1)
    Fijar s2 = ActiveWorkbook.Sheets (2)
    
    Amortiguar s1Row como número entero: s1Row = 1
    Mientras que S1. Células (s1Row, 1).FormulaR1C1 <> ""
        Identificación dévil como secuencia: identificación = S1. Células (s1Row, 1).FormulaR1C1
        Si IsPresent (s2, identificación) entonces
            S1. Filas (CStr (s1Row) y “: ” Y CStr (s1Row)). Cambio de la cancelación: =xlUp
        
            s1Row = s1Row + 1
        Terminar si
    Wend
    
Terminar el submarino

Función pública IsPresent (s como hoja de trabajo, identificación como secuencia) como boleano
    Fila dévil como número entero: fila = 1
    Resultado dévil como boleano: resultado = falso
     
    Hacer mientras que s.Cells (fila, 1).FormulaR1C1 <> ""
        Si s.Cells (fila, 1).FormulaR1C1 = identificación después
            el resultado = verdad
            La salida hace
        Terminar si
        fila = fila + 1
    Lazo
    IsPresent = resultado
Función del final
Otras soluciones  
 
programming4us programming4us