Insertar filas según valor de las celdas

Buenas a todos.
Veamos si me explico...
Tengo una hoja de excel con 4 columnas.
_______________________________________
Coste ultimo - Coste medio - Descripción - Código
_______________________________________
Donde el código es un número entero, único para cada fila, entre 001 y 999.
El problema es que no todos los códigos contienen datos, por ejemplo, del código 101 pasamos al 105, y los tres códigos intermedios están vacíos.
Este libro es una exportación desde Access, con lo que quedan todas las filas juntas, evidentemente... Y mi pregunta es si habría algún alma expertamente caritativa que me ayude a encontrar la manera de colocar cada código en la fila que le corresponde, suponiendo que el código 001 está en la fila 1...
Imagino que sería un bucle con algún tipo de comparación entre el valor de la celda y el de la fila que la contiene, y actuando en base a eso, insertando o saltando de fila.
Muchas gracias de antemano.
{"Lat":41.596028383012,"Lng":1.91501140594482}

1 respuesta

Respuesta
1
Creo que te bastaría con esta macro, siendo D la columna donde tienes el código:
Function ACN_01()
For fila = 1 To 99
    If Range("D" + Trim(Str(fila))).Value <> fila Then
         Rows(fila).Select
         Selection.Insert Shift:=xlDown
    End If
Next
End Function

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas