¿Cómo cambiar la altura de la fila cada 3 filas en macros?
La primera cambie a 40px de alto por ejemplo, la cuarta fila a 40px, la séptima... 10, 13, 16... Y así las demás en 40px. :(
1 respuesta
Respuesta de James Bond
2
Prueba con esta macro
Sub cambiar()
Set datos = Range("a1").CurrentRegion
For i = 1 To datos.Rows.Count Step 3
datos.Cells(i, 1).RowHeight = 40
Next i
Set datos = Nothing
End Sub
Sólo cambia la primera fila. :o
Pon una imagen de tus datos, si entre las filas hay espacios en blanco hasta hay va a llegar la macro.
Lo naranja son imágenes y hay celdas combinadas. Pero quería que fuera más alta la primera fila de cada una (son etiquetas), lo hacía uno a uno pero son 600. x.x
Entonces usa esta macro, si quieres ampliar el rango solo modifica la primera línea.
Sub cambiar()
Set datos = Range("a1:a600")
For i = 1 To datos.Rows.Count Step 3
datos.Cells(i, 1).RowHeight = 40
Next i
Set datos = Nothing
End Sub
