Anónimo
Macro para insertar filas
Buenos días el problema que tengo es el siguiente en una hoja de excel yo tengo una determinada cantidad de filas utilizadas en las cuales mi primera fila tiene un numero por pero ese se repite varias veces hasta que tengo otro numero por y así hasta un aproximado de 7000 filas útiles, y lo que quiero sabes es si existe un macro el cual me inserte una fila entre cada numero diferente de mis filas
Por su atención gracias
Por su atención gracias
{"Lat":22.4313401563606,"Lng":-102.48046875}
1 Respuesta
Respuesta de jerryeagle
2
Puedes hacer un "bucle" :
Dim U, R as Long
Dim Num as Double
Sub InsertaFila()
U=Range("A" & Rows.Count).End(xlUp).Row
For R = 2 to U
Num = Cells(R, 1)
if not Cells(R +1 , 1) = Num then
Cells(R+1, 1).EntireRow.Insert
U = U+1
R = R+1
End if
Next
End Sub
Checalo y me avisas como te fue
Dim U, R as Long
Dim Num as Double
Sub InsertaFila()
U=Range("A" & Rows.Count).End(xlUp).Row
For R = 2 to U
Num = Cells(R, 1)
if not Cells(R +1 , 1) = Num then
Cells(R+1, 1).EntireRow.Insert
U = U+1
R = R+1
End if
Next
End Sub
Checalo y me avisas como te fue