Excel encuentra el texto contenido en una columna y enumera ese texto.

Déjame darte un ejemplo con VBA. ¡Haga clic en el botón en el archivo adjunto para categorizarlo automáticamente!

¿Sub? Finley ()

¿Oscuro? ¿I? ¿Como qué? ¿dragón? ¿metro? ¿Como qué? ¿dragón? ¿norte? ¿Como qué? ¿dragón? t? ¿Como qué? Largo

¿Oscuro? Ah, ah? hermano? rollo de relación constante rollo de relación constante

¿Para qué se utiliza? Tableta activa

¿Yo? =?. 【b1】. final (XL hacia abajo). Fila: ¿llegar? =?. rango("B2:B"?amp?i)

m? =?. 【c1】. final (XL hacia abajo). Fila:brr? =?. rango("C2:C"? amp?m)

n? =?. 【A1】. final (XL hacia abajo). Fila: crr? =?. range("A2:A"?amp?n)

tenue? trr()

¿Radim? TRR (1? ¿Dónde? n? -? 1,? 1? ¿Dónde? 2)

¿Para qué? t? =?1?¿Adónde ir? ¿norte? -?1

¿Para qué? ¿I? =?1?¿Adónde ir? Cantidad adeuda

¿Y si? crr(t,1)?Por ejemplo? "*"?¿amperio? arr(i,1)?amp? ¿"*"?Entonces

TRR(t,1)?=?arr(i,1)

¿Salir? ¿Fin de

? Si

Entonces

¿Para qué? ¿metro? =?1?¿Adónde ir? Metro (brr)

¿Y si? crr(t,1)?Por ejemplo? "*"?¿amperio? brr(m,1)?amp? ¿"*"?Entonces

TRR(t,2)?=?brr(m,1)

¿Salir? ¿Fin de

? si

entonces

entonces

. 【d2】. cambiar tamaño(n?-?1,?2)?=?trr

end? ¿Con el final? Submarino