Estoy intentando quitar una combinación de celdas y mantener el contenido de forma individual para cada una, el problema que tengo es que tengo el rango fijo y quiero que lo pida por pantalla.
Lo que tengo ahora con el rango fijo es:
Sub Descombinar()
Set rango = Range("A2:A1000") 'aqui ponemos el rango, se podría hacer con un inputbox para seleccionarlo
Range ("A2:A1000") 'aqui ponemos el rango, se podría hacer con un inputbox para seleccionarlo
With rango 'para este rango
.UnMerge 'descombina
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Copy
.PasteSpecial xlPasteValues 'copy-paste con valores
End With
Application.CutCopyMode = False
Set rango = Nothing
End Sub