[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