Separar filas por grupo

Hola! Estoy tratando de separar filas según el grupo al que corresponden pero solo se identifica el grupo por la primera letra con la que empieza por ejemplo:
A123
A567
A478
B790
B3RT
Lo que hago es que inserto filas entre la A y la B y son como 10000 filas
Me ayudarías mucho si hubiera una solución más rápida que hacerlo manual Gracias!

1 respuesta

Respuesta
1
No sé si estoy entendiendo bien.
Necesitas que al ingresar un dato lo 'ubique' según la letra, es decir si es A250, ¿lo agregue entre A478 y B790?
Confírmame esto por favor
No lo que necesito es que se inserte una fila entre A y B para separlos
Gracias!
Entrá al Editor, insertá un módulo y allí copiá esta rutina que comienza a recorrer la col A desde la fila 1 (ajustá estos datos a tu modelo)
Sub insertaFilas()
'desarrollada por Elsamatilde
ActiveSheet.Range("A1").Select
'guarda la última fila con datos para evaluar el fin de rango
finfil = ActiveSheet.Range("A65536").End(xlUp).Row
While ActiveCell.Row <= finfil
letra = Left(ActiveCell, 1)
While Left(ActiveCell, 1) = letra
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.EntireRow.Insert
'hasta aquí se realiza entre los 2 primeros grupos
'el rango final se incrementó en 1
finfil = finfil + 1
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébala y si esto resuelve tu consulta, no olvides finalizarla

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas