동일한 행이 다른 열에 병합 된 경우 특정 열의 셀을 병합하는 매크로

Question

동일한 행이 이미 다른 열에 병합되어있는 경우 특정 열의 행간에 셀을 병합 할 수있는 매크로를 찾는 데 도움이 필요합니다. 아래는 내가 지금 이미 열 A. 스크린 샷 아래

에 병합 세포를 기반으로 병합 할 필요가 열 B의 세포를 보여줍니다 무슨의 스크린 샷은 내가 스프레드 시트를 필요로하는 무슨이다 ... 매크로

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