Macro per unire le celle in una colonna se le stesse righe sono unite in una colonna diversa

Ho bisogno di aiuto per trovare una macro che possa unire le celle attraverso le righe di una colonna se le stesse righe sono già state unite in un'altra colonna. Di seguito è riportto uno screenshot di quello che ho adesso che mostra le celle che sono fuse nella colonna A

prima

Il seguente screenshot è quello che ho bisogno del foglio di calcolo per apparire dopo la macro; le celle corrispondenti nella colonna B sono fuse.

dopo

Questo è stato il più breve ansible. Ho provato con il tuo esempio e ha funzionato per me.

 Sub mergecolumn() Dim cnt As Integer Dim rng As Range Dim str As String For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 cnt = Cells(i, 1).MergeArea.Count Set rng = Range(Cells(i, 2), Cells(i - cnt + 1, 2)) For Each cl In rng If Not IsEmpty(cl) Then str = str + vbNewLine + cl Next If str <> "" Then str = Right(str, Len(str) - 2) Application.DisplayAlerts = False rng.Merge rng = str Application.DisplayAlerts = True str = "" i = i - cnt + 1 Next i End Sub