Pergunta : Macro de Excel que suprimiria de fileiras se os números de identificação combinam

Eu tenho um manual de instruções de Excel com duas folhas que conter nome-e-endereça dados.  Em ambas as folhas, a primeira coluna contem números de identificação.  Eu gostaria de um macro que suprimisse da fileira da PRIMEIRA folha se há um número de identificação de harmonização na SEGUNDA maneira possível de worksheet.

One de fazer isto estaria adicionar os dados da segunda folha à primeira folha e suprimir então de AMBAS AS fileiras se há uma duplicata pair.

Thanks adiantado para qualquer help. class= do

Resposta : Macro de Excel que suprimiria de fileiras se os números de identificação combinam

Isto fará o trabalho:
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:

Opção explícita
Submarino público ClearSheet1 ()
    S1 não ofuscante como a folha
    S2 não ofuscante como a folha
    
    Ajustar s1 = ActiveWorkbook.Sheets (1)
    Ajustar s2 = ActiveWorkbook.Sheets (2)
    
    Escurecer s1Row como o inteiro: s1Row = 1
    Quando "" de s1.Cells (s1Row, 1) <> .FormulaR1C1
        Identificação não ofuscante como a corda: identificação = s1.Cells (s1Row, 1) .FormulaR1C1
        Se IsPresent (s2, identificação) então
            s1.Rows (CStr (s1Row) & “: ” & CStr (s1Row)). Deslocamento da supressão: =xlUp
        Mais
            s1Row = s1Row + 1
        Terminar se
    Wend
    
Terminar o submarino

Função pública IsPresent (s como a folha, identificação como a corda) como bôoleano
    Fileira não ofuscante como o inteiro: fileira = 1
    Resultado não ofuscante como bôoleano: resultado = falso
     
    Fazer quando "" de s.Cells (fileira, 1) <> .FormulaR1C1
        Se s.Cells (fileira, 1) .FormulaR1C1 = identificação então
            o resultado = retifica
            A saída faz
        Terminar se
        fileira = fileira + 1
    Laço
    IsPresent = resultado
Função do fim
Outras soluções  
 
programming4us programming4us