Macro para combinar celdas horizontalmente, repetir el proceso hacia abajo y luego reiniciar el ciclo
Me preguntaba si me podrían ayudar con un macro de excel que sinceramente, no tengo idea de cómo formular.
El proceso a realizar es combinar 7 celdas horizontalmente, repetir el proceso verticalmente 8 veces y luego reiniciar el ciclo a partir de la 8 fila.
En la parte superior de la imagen anexa adjunto la estructura de la tabla a trabajar, y en la parte inferior el resultado deseado, disculpen si no me supe explicar adecuadamente.
https://www.dropbox.com/s/et4ow58d8oay45d/Sin%20t%C3%ADtulo.png?dl=0
1 respuesta
H o l a
prueba esto
Sub Combina_fila()
'//Por.Adriel Ortiz
Application.DisplayAlerts = False
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Range("A" & i & ":G" & i).Merge
Range("A" & i & ":G" & i).HorizontalAlignment = xlCenter
'
Range("H" & i & ":N" & i).Merge
Range("H" & i & ":N" & i).HorizontalAlignment = xlCenter
Next
MsgBox "fin"
End Subvalora la respuesta como Excelente o bueno para finalizar saludos!
Queda bien, muchas gracias, pero habrá forma de hacer que luego se repita para las filas de O a U, V a AA, etcetera?
O a U
V a AB
Y así hasta llegar a HHS
Te paso la respuesta de Dante
Sub Combinar()
'Por.Dante Amor
Application.DisplayAlerts = False
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
For j = 1 To Cells(2, Columns.Count).End(xlToLeft).Column Step 8
Range(Cells(i, j), Cells(i, j + 7)).Merge
Next
Next
End Subsi estas conforme cambia la valoración como Excelente saludos!
