Red de conocimientos sobre prescripción popular - Remedios caseros - ¡Excel usa VBA para copiar múltiples hojas de trabajo basadas en una columna de datos!

¡Excel usa VBA para copiar múltiples hojas de trabajo basadas en una columna de datos!

Opción explícita

Sub todas las tablas están duplicadas()

Dim st Como hoja de trabajo, arr, i & amp, rlt$(1 a 1000000, 1 a 1), n & ampj & amp, es nuevo

Resultados estadísticos de la matriz rlt

Para cada st en la tabla

Si ST utiliza el rango, entonces 1<. /p>

arr = st UsedRange

Para i = 1 a UBound(arr)

arr(i, 1) = Trim(arr (i, 1))

Si arr(i, 1)<>""Entonces

es nuevo = 1

Para j = 1 a n

Si rlt(j, 1) = arr(i, 1), entonces

esnuevo = 0

Salir

Terminará si...

Siguiente j

Si es nuevo, entonces

n = n + 1

rlt(n, 1) = arr(i, 1 )

Terminará si...

Siguiente yo

Terminará si...

Siguiente calle

Los resultados se guardan en una nueva tabla.

Utilizar libros de trabajo. Añadir

con. Zhang(1). Celda(1,1). cambiar tamaño(n, 1)

. FormatoNúmero = "@ "

. valor = rlt

. Seleccione

Finalizar con…

Finalizar conector