Excel macro vba insertar número de serie

Abra su archivo Excel, presione "Alt F11" para abrir la ventana de edición de VBA, luego haga doble clic en la hoja de trabajo correspondiente a la izquierda y pegue el siguiente código en el espacio en blanco a la derecha. Cierre la ventana de VBA. Luego presione Alt F8 para abrir la ventana Macro, seleccione la macro que acaba de insertar y haga clic en Ejecutar.

¿Sub? xh()

¿Atenuado? ¿rg? ¿Como? Alcance

¿Oscuro? I,? r,? ¿norte? ¿Como? ¿Largo

r? =?cell(row.count,?2).end(xlUp). Pelotón

¿Para qué? ¿Cada? ¿rg? ¿existir? Rango("B2:B "? amp?r)

Si? rg. ¿Plan? =?2?Entonces

n? =?0

Otro

¿Si? rg. ¿valor? =?rg. desplazamiento(-1,?0).valor? ¿Entonces qué? ¿norte? =?n? ?1?¿De lo contrario? ¿norte? =?0

¿Fin? si

rg. desplazamiento(0,?-1).valor? =?n

Entonces

¿Para qué? ¿I? =?r? ¿A dónde ir? 2? ¿Un paso? -1

¿Y si? celda(i,?1)?=?0?entonces

si? celular(i??1,?1)?lt gt? 1? ¿Y entonces qué? Fila(I). Eliminar

Otro

¿Y si? celdas (i??1,?1).valor? =?0?¿Y entonces qué? fila(i??1).Insertar:? celdas (i??1,?1).valor? =?"Fin"

¿Fin? Si

Entonces

¿Finalizar? Submarino