Macro que se pueda Combinar y Centrar
Me podrían apoyar con la siguiente macro por favor, tengo datos que comienzan en la celda "B1" terminando en la misma fila pero de columna variable.
Lo que estoy tratando de hacer es leer toda la fila y buscar celdas que contengan el mismo valor, los que tengan el contenido similar, se deberán combinar en la fila anterior; como ejemplo la imagen:
Hasta ahora solo eh logrado una macro que lo hace de manera vertical:
Sub CombinaryCentrar() Dim rng As Range MergeCells: For Each rng In Selection If rng.Value = rng.Offset(1, 0).Value And rng.Value <> "" Then Range(rng, rng.Offset(1, 0)).Merge Range(rng, rng.Offset(1, 0)).HorizontalAlignment = xlCenter Range(rng, rng.Offset(1, 0)).VerticalAlignment = xlCenter GoTo MergeCells End If Next End Sub
¿alguna idea de que otra manera lo puedo llevar a cabo?
1 respuesta
Respuesta de Dante Amor
1