Excel divide los datos de una tabla en varias hojas de trabajo y en una sola hoja de trabajo según los nombres de los contratistas con diferentes nombres.

Dim? ah? ¿Rng? ¿Como? alcance,? ¿Mierda? ¿Como? ¿Hoja de trabajo? ¿Dic? ¿Como? Objetivo

¿Oscuro? k,? t,? ¿Fuerza? ¿Como? cadena,? ¿I? ¿Como? dragón,? lc? ¿Como? Larga

aplicación. ¿Actualización de pantalla? =?Falso? Desactiva las actualizaciones de pantalla.

¿Arrr? =?Rango(" a 1 ")valor actual.

lc? =?UBound(Arr, 2)?Encuentre el número de línea de la última línea.

¿Configuración? ¿Rng? =?Número de filas(1)? Fila de título

¿Configuración? ¿Dic? =?CrearObjeto("Script.Diccionario")? Crear un diccionario

¿Para qué? ¿I? =?2?¿Adónde ir? Endeudado

Str? =?Arr(i,?3)?Nombre del contratista y palabras clave

Si? ¿No? Dic. ¿Existe (Str)? ¿Entonces qué? Si el diccionario no tiene palabras clave.

¿Configuración? Dic(Fuerza)? =?celda(i,?1).resize(,?lc)? Cargue la línea actual en el diccionario.

¿Y si? De lo contrario (la palabra clave existe en el diccionario)

¿Establecer? Dic(Fuerza)? =?Union(Dic(Str),?cell(i,?1).resize(,?lc))? Conecte las líneas juntas.

¿Fin? Si

entonces

k? =?dic. ¿llave? Colección de palabras clave del diccionario

t? =?dic. ¿cosa? Colección de entradas del diccionario

¿Abierto? ¿error? CV? Entonces

¿Qué usar? Ficha de trabajo

¿Para qué? ¿I? =?0?¿Adónde ir? Dic. ¿Contar? -?1?Número de palabras clave del bucle

¿Configuración? ¿Mierda? =?. ¿Ítem (k(i))? Asigne valores a las variables (las hojas de trabajo las llaman palabras clave)

¿Y si? ¿Mierda? ¿Sí? ¿Nada? ¿Entonces qué? Si la hoja de trabajo no existe, inserte una hoja de trabajo vacía.

. Agregar (después de :=). artículos (.count)). ¿nombre? =?k(yo)? La hoja de trabajo recién creada se colocará después de todas las hojas de trabajo y tendrá una palabra clave denominada.

¿Configuración? ¿Mierda? =?Hoja Activa? La hoja de actividades da las variables.

¿Y si? de lo contrario.

Mierda. celúla. ¿Está claro? Borre todo el contenido y el formato de la tarea.

¿Fin? Si

Rng. ¿Copiar? Mierda. ¿Rango ("A1")? Pon el título en la primera línea.

t(i). ¿Copiar? Mierda. ¿Rango ("A2")? Escribe otro contenido

Sht. celúla. toda la columna. ¿Ajuste automático? ¿Ajustar automáticamente el ancho de las columnas para todas las celdas de la hoja de cálculo?

¿Configuración? ¿Mierda? =?Nada? La variable está en su estado inicial.

Entonces

¿Finalizar? Con

Zhang (1). ¿activación? La hoja 1 está activa.

Aplicar. ¿Actualización de pantalla? =?¿En serio? Activa las actualizaciones de pantalla.

¿Fin? Si el nombre del contratista está en la columna c, es Sub.