Anónimo
Comparar celdas en una Columna y agregar Fila
Hola Buen día.
Estoy con un problema que no se como hacer, para recorrer una Columna por Celdas, y lugo agregar una Fila
Lo que necesito es una macro que recorra una Columna (digamos A) comparando los valores de las Celdas, cuando encuentre el primer dato distito agregue una fila para separar los datos.
Si podrías ayudarme, te lo agradecería Mucho.
Espero que se entienda.
Saludos
Estoy con un problema que no se como hacer, para recorrer una Columna por Celdas, y lugo agregar una Fila
Lo que necesito es una macro que recorra una Columna (digamos A) comparando los valores de las Celdas, cuando encuentre el primer dato distito agregue una fila para separar los datos.
Si podrías ayudarme, te lo agradecería Mucho.
Espero que se entienda.
Saludos
1 respuesta
Respuesta de Eduard Caballero
1
¿Contra quién va a comparar? ¿Con un valor en otra celda? ¿Con el valor superior?
Según lo que entiendo supondré que hay una serie de datos iguales en la hoja1 y en misma columna A entonces coloca la siguiente macro.
Sub separa()
Sheets(1).Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Offset(-1, 0) = ActiveCell Then
ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
End If
Loop
End Sub
Entre los datos originales no deben existir filas vacías. Estoy suponiendo que los datos comienzan en A1
Según lo que entiendo supondré que hay una serie de datos iguales en la hoja1 y en misma columna A entonces coloca la siguiente macro.
Sub separa()
Sheets(1).Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Offset(-1, 0) = ActiveCell Then
ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
End If
Loop
End Sub
Entre los datos originales no deben existir filas vacías. Estoy suponiendo que los datos comienzan en A1
Muchas Gracias era exactamente lo que quería hacer, Te Agradezco enormemente.
Si llegara a surgir otra duda en alguna macro nueva, te volveré a Consultar... jaja
Otra vez, Muchísimas Gracias...
Saludos.
Éxitos!
Si llegara a surgir otra duda en alguna macro nueva, te volveré a Consultar... jaja
Otra vez, Muchísimas Gracias...
Saludos.
Éxitos!