¿Cómo encontrar todos los mismos nombres en la hoja de Excel hoja 1-15?

Sub? prueba()

¿Atenuado? Yo amperio, Johnson & Johnson. ,?k amp

configuración? ¿d? =?CrearObjeto("Script.Diccionario")? Diccionario de Definiciones

¿Para qué? ¿I? =?1?¿Adónde ir? hoja. ¿Contar? Recorre todas las tablas.

¿Para qué? j? =?1?¿Adónde ir? Hojas(1). celda (filas.count,? 1). end (xlUp). Digamos que la columna A es una lista que recorre desde la fila 1 hasta la última fila.

d (primera página). celda(j,1).valor)? =?d(primera página). celda(j,1).valor)? ?1? Agregue la palabra clave de nombre al diccionario y el valor del diccionario es el número de repeticiones.

Entonces

¿y? =?¿Dónde está la llave? Asignar matriz de palabras clave

t? =?d.Artículo? Asigne una matriz de valores de diccionario

(1). rango("c1"). cambiar el tamaño (UBound(y),?1)?=?función de hoja. transponer(y)? Escriba la matriz de palabras clave en la columna c

(1). rango("d1"). Cambiar tamaño (UBound(t),?1)?=?función de hoja de trabajo. ¿Transponer(t)? ¿Escribir una matriz de valores del diccionario en la columna d

y luego

finalizar? Submarino