[VBA] 셀 병합 (바로 위아래 셀, 한행 떨어진 셀)

자막 정리를 좀 하다보니 바로 위아래 셀 병합을 해야 하는 경우와

한글과 영문이 쌍으로 되어 있어서 한행 아래것과 셀병합을 해야 하는 경우가 있다.

현재 행과 아래행을 병합할 때

Sub Cell_Merge()    '// 위아래 셀 병합
    Dim r&, h&, C As Range
    Set C = Selection
    If C.Count < 2 Then Exit Sub
    If C.Columns.Count > 1 Then MsgBox "열은 합칠 수 없습니다.", 16, "규정위반": Exit Sub
    
    With Selection
        h = .Rows.Count - 1
        For r = 1 To h Step 1
             .Cells(1) = .Cells(1) & " " & .Cells(r + 1)
        Next
        .Cells(2).Resize(h).Delete Shift:=xlUp
    End With
    ActiveCell.Select
End Sub

현재 행과 한칸 아래 행을 병합할 때

Sub subtitle_merge()    '// 한칸 아래셀과 병합
    Dim r&, h&
    With Selection.Resize(, 1)
        If .Rows.Count Mod 2 = 0 Then
            h = .Rows.Count - 2
            If h < 1 Then MsgBox "최소 4개행을 선택해야 합니다", 16, "규정위반": Exit Sub
            For r = 1 To h Step 2
                .Cells(1) = .Cells(1) & " " & .Cells(r + 2)
                .Cells(2) = .Cells(2) & " " & .Cells(r + 3)
            Next
            .Cells(3).Resize(h).Delete Shift:=xlUp
        Else
            MsgBox "홀수행 선택은 안됩니다", 16, "규정위반": Exit Sub
        End If
    End With
    ActiveCell.Select
End Sub