samengevoegde cellen zoeken

[mariannevanh]

Ergens in mijn supergrote tabel (>500.000 rijen) heb ik ooit cellen samengevoegd omdat ik dacht dat dat gemakkelijker was. Ik wil dit bij nader inzien toch niet.
Hoe vind ik die samengevoegde cellen?

 

[Cobbe]

Sub unmerge()
For Each cel In Range("a1:xfd600000")
    If cel.MergeCells Then
        cel.MergeArea.unmerge
    End If
Next
End Sub

Gaat wel even duren maar 't is de moeite.

Cobbe

 

[popipipo]

Bereik selecteren
Rechtermuis toets cel formaat
alignment
wraptext deselecteren.

Gaat veel sneller en je hebt het zelfde resultaat.