R
rtwiss via OfficeKB.com
This is the start:
Sub findmerged()
Dim c
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
MsgBox c.Address & " is merged"
End If
Next
End Sub
Sub Unmerge()
Dim rng As Range, rngtot As Range, rngval As Variant
Dim strtrow As Long, endrow As Long, col As Long
strtrow = Selection.Row
col = Selection.Column
endrow = Application.WorksheetFunction.Min(Selection.End(xlDown).Row - 1,
Cells(65536, col).End(xlUp).Row + 1)
rngval = Selection.Value
Set rngtot = Range(Cells(strtrow, col), Cells(endrow, col))
ActiveCell.Unmerge
For Each rng In rngtot
rng.Value = rngval
Next rng
End Sub
Sub findmerged()
Dim c
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
MsgBox c.Address & " is merged"
End If
Next
End Sub
Sub Unmerge()
Dim rng As Range, rngtot As Range, rngval As Variant
Dim strtrow As Long, endrow As Long, col As Long
strtrow = Selection.Row
col = Selection.Column
endrow = Application.WorksheetFunction.Min(Selection.End(xlDown).Row - 1,
Cells(65536, col).End(xlUp).Row + 1)
rngval = Selection.Value
Set rngtot = Range(Cells(strtrow, col), Cells(endrow, col))
ActiveCell.Unmerge
For Each rng In rngtot
rng.Value = rngval
Next rng
End Sub