Combinar varios celda en macro
Necesito que al ponerlo en la celda se combine con la que sigue
Respuesta de James Bond
1
Este es el resultado de la macro
y esta es la macro
Sub combinar_celda()
x = 1
If x = 1 Then Range("a1").Select
otro:
Set nombre = ActiveCell.CurrentRegion
If IsEmpty(ActiveCell) = True Then End
With nombre
With .Columns(.Columns.Count + 1).Resize(.Rows.Count, 1)
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
.Cells(1, 2) = .Cells(1, 1)
.End(xlDown).Offset(2, 0).Select
End With
x = x + 1
GoTo otro:
End Sub
Perfecto pero solo quiero aplicar que combine la columna A
Explicate con más detalle no me queda claro lo que pides.
Ejemplo que combine las celdas solamente de columna A
Después de c
ombinar varios celdas
Entonces prueba esta macro, en apariencia es la misma pero solo en apariencia.
Sub combinar_celda()
x = 1
If x = 1 Then Range("a1").Select
otro:
Set nombre = ActiveCell.CurrentRegion
If IsEmpty(ActiveCell) = True Then GoTo borra
With nombre
With .Columns(.Columns.Count + 1).Resize(.Rows.Count, 1)
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
.Cells(1, 2) = .Cells(1, 1)
.End(xlDown).Offset(2, 0).Select
End With
x = x + 1
GoTo otro:
borra:
Range("a1").EntireColumn.Delete
Range("a1").Select
End Sub
