Escribir VBA para Excel. ¿Quién lo haría?

El siguiente es el código VBA para implementar esta función:

Sub FindDuplicate()

Dim i tiene la misma longitud, j tiene la misma longitud y k tiene la misma longitud

La dimensión rng1 es el rango, rng2 es el rango

Marcar ws como una hoja de trabajo

set ws = este libro de trabajo ("hoja 1")' especifica el. hoja de trabajo para la operación.

Para i = 5 a 20, el paso 4' recorre cada 4 filas de datos.

Establecer rng1 = ws. Range("A"&I&":O"&I)'Obtiene el rango de datos de la fila actual.

For j = i+1 to i+3 'Recorre la siguiente línea hasta las siguientes tres líneas de la línea actual.

Establecer rng2 = ws. Range("A"& Johnson & Johnson.":O"&j)' Obtiene el rango de datos desde la siguiente fila hasta las siguientes tres filas.

Para k = 17 a 1 paso -1 'Avanzar desde la columna o.

Si rng1. celdas(1,k) = rng2. Las celdas (1, k) luego determinan si hay números duplicados.

ws. rango(" Q " & ampI) = rng1. Cells(1,k)' coloca números duplicados en las columnas Q:Z.

ws. rango(" R " & i) = rng1. Celda(1,k)

ws. rango(" S " & ampi) = rng1. Celda(1,k)

ws. rango(" T " & ampi) = rng1. Celda(1,k)

ws. rango(" U " & i) = rng1. Celda(1,k)

ws. rango(" V " & ampi) = rng1. Celda(1,k)

ws. rango(" W " & ampi) = rng1. Celda(1,k)

ws. rango(" X " & ampi) = rng1. Celda(1,k)

ws. rango(" Y " & ampi) = rng1. Celda(1,k)

ws. rango(" Z " & ampi) = rng1. Celda (1, k)

Salir para 'Encontrar un número repetido y salir del ciclo.

Terminará si...

Siguiente k

Siguiente j

Siguiente yo

En otro La línea imprime los resultados.

Para i = 4 a 20, paso 4

Establezca rng1 = ws. range("Q"&":Z"&")

Establecer rng2 = ws. Range("A"&I&":O"&I)

Para j = 1 a 10

Si la hoja de trabajo funciona. CountIf(rng1, rng2. Cells(1, j))>Entonces 1

ws. Celdas(22,j) = rng2. Celda (1, j)

Terminará si...

Siguiente j

Siguiente yo

Finalizar conector

p>

Este código primero usa un bucle para recorrer cada cuatro filas de datos, para cada fila, y luego usa un bucle para recorrer la siguiente fila hasta las siguientes tres filas de la fila actual para determinar si hay duplicados. números. Si hay números duplicados, colóquelos en las columnas Q:Z. Finalmente, se recorren los resultados de cada cuatro filas de datos, se cuenta el número de repeticiones y los resultados se muestran en la línea 22.