如果在不同列中合併相同行中的宏，合併特定列中的單元格

Question

如果這些行已經合併到另一列中，我需要幫助查找可合併特定列中行的單元格的宏。下面是什麼，我現在已經顯示在列B需要合併基於被已經合併列A

下面的截圖細胞的細胞截圖正是我所需要的電子表格看起來像宏運行後

Answer 1

nixda已回答了...

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