Las palabras clave existen en el diccionario de Excel.

¿Sub? ¿Cómo dividir los datos de una hoja de cálculo de Excel en varias hojas de cálculo ()

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

¿Atenuado? k? t,? ¿Fuerza? ¿Como qué? Cadena,? ¿I? ¿Como qué? ¿dragón? lc? ¿Como qué? Larga

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

¿Arrr? =? rango("a 1") valor de la región actual.

lc? =?UBound(Arr,2)?Encuentra 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? =?CreateObject("Script. Dictionary")?Crear Diccionario

¿Para qué?=?2?¿Dónde?

Str?=?Arr(yo, 3)? Nombre del contratista y palabra clave

Si? Dic. existe (Str)? ¿Qué pasa si el diccionario no tiene palabra clave (Str)? /p>

De lo contrario (la palabra clave existe en el diccionario) ? p>Establecer ? DIC(Str) ?

k?=?Dic.Dictionary conjunto de palabras clave

T?= ?Dic.item set

¿Abrir? ¿Reanudar?

¿Para qué? =?0?Dic? ?El número de palabras clave del bucle

¿Nada? ? Luego inserte una hoja de trabajo vacía.

. k(I)? La hoja de trabajo recién creada recibirá el nombre de todas las hojas de trabajo

Set?ActiveSheet? >De lo contrario,

¿Borrar todo el contenido y el formato del trabajo?

Rng ? Sht .Escribir el título en la primera línea. anchos de columna para todas las celdas de la hoja de cálculo

Sht? = ¿Nada?

Entonces

¿Con

hoja activa

¿Pantalla actualizada? ?En serio? Abrir actualización de pantalla.

¿Fin?