Find if Cells are grouped

[AntMac]

I am trying to write a macro that can go down a column and find if multiple rows in the column are grouped. If they are, then I would like for it to ungroup them then place the value in all of the rows that were grouped. In other words if A1 and A2 were grouped, ungroup them and then put the value that was in A1 into A2. Anyone can help with this?

 

[Gerald Higgins]

What do you want to do if A1, A2, A3 . . . An are grouped ?

 

[AntMac]

Actually I used the wrong word, which is why I'm having trouble finding the answer. I am trying to find if they are merged not grouped. I just want the value that's in the merged cell to be in all the cells that are merged. So, kind of undoing the merge if you will.

 

[Gerald Higgins]

OK, I understand what you want to do.
I'm sorry, I don't know how to code a solution for that.
Anyone else ?

 

[AntMac]

One word makes a huge difference. Now that I searched google on MERGED instead of grouped, I think I have found the main function that I need. That being ...MergeArea.Rows.Count This tells me how many rows are merged. Now just need some if thens around this and I should be at a solution. Thanks for your help! Even though you might feel you didn't, it did big time!!!

 

[AntMac]

Just in case someone was stomped like I was here's a sample code. I wasn't sure how to find the number to go to because the way I normally do that would be confused by grouped cells. So, I just put in the number I needed for this purpose.

Sub Remove_Grouping()


Application.ScreenUpdating = False
For i = 1 To 261
        'RowCount = Range("A" & i).MergeArea.Rows.Count
        RowCount = ActiveCell.MergeArea.Rows.Count
        If RowCount = 1 Then
        GoTo Here
        Else


'IsGrouped = ActiveCell.MergeCells
For c = 1 To RowCount - 1
store = ActiveCell.Value
ActiveCell.MergeArea.UnMerge
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = store
i = i + 1
Next c


'MsgBox (RowCount)
End If
Here:
ActiveCell.Offset(1, 0).Select
Next i


Application.ScreenUpdating = True
MsgBox ("Done")


End Sub