Colección de citas famosas - Slogan de motivación - Cómo usar macros en Excel VBA: determine si los datos de la columna A se repiten. Si es así, muéstrelos en la columna B. Si no, muéstrelos en la columna B.

Cómo usar macros en Excel VBA: determine si los datos de la columna A se repiten. Si es así, muéstrelos en la columna B. Si no, muéstrelos en la columna B.

Si usa el código:

Establezca myBoo en booleano

myBoo = true

Dim I tiene la misma longitud, C tiene la misma longitud

C = aplicación. Funciones de la hoja de trabajo. CountA(Range("A:A")

Para I = 1 a C

Si Range("B"&i).Value<>Apply.Función de hoja de trabajo. VLookup(Range("A "&i). Valor, Rango("A:B"), 2, 0) luego myBoo = False: Salir para

Entonces

Si Mibu entonces

MsgBox "Normal"

Otro

MsgBox "Anormal"

Si... terminará

p>