DESCOMBINAR CELDAS
Publicado por
Manuel (1 intervención) el 21/10/2011 00:51:31
Listo prueba esta rutina y la ajustas a tus necesidades:
Nota: fila = F, columna = C, la macro recorre todas las filas de la primera columna y descombina las celdas que estén combinadas, cuando llega a "SIGUIENTE" pasa a la siguiente columna, así sucecivamente hasta que le coloques "FIN" en la ultima columna y ultima fila.
Sub DESCOMBINAR()
F = 1
C = 1
Do While Not Worksheets(1).Cells(F, C).Text = "FIN"
Worksheets(1).Cells(F, C).UnMerge
F = F + 1
If Worksheets(1).Cells(F, C).Text = "SIGUIENTE" Then
F = 1
C = C + 1
End If
Loop
End Sub