Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select Merged Cells and Unmerge Spread Merge Data To All Cells
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(xl Down).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 -- Message posted via http://www.officekb.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sort spreadsheet, "merged cells" comes up. Find cells? Unmerge ? | Excel Discussion (Misc queries) | |||
Spreadsheet with merged cells - how can I unmerge the cell and re. | Excel Programming | |||
To safety merge cells without data destroyed, and smart unmerge! | Excel Discussion (Misc queries) | |||
How can I unmerge the merged cells in a Excel sheet quickly? | Excel Programming | |||
Can't unmerge merged cells programatically | Excel Programming |