엑셀 VBA 선택 영역 병합, 현재 cell로부터 특정 영역 병합

Sub 선택병합()
'
' 선택병합 매크로
' 선택된 영역을 병합
'
' 바로 가기 키: Ctrl+Shift+D
'
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub

Sub 셀병합_2비트()

'

' 셀병합_2비트 매크로

' 현 위치부터 +1개 셀을 병합

'

' 바로 가기 키: Ctrl+a

'

    startcell = ActiveCell.Address

    endcell = ActiveCell.Offset(0, 1).Address

    

    range(startcell & ":" & endcell).Select

    Selection.Merge

End Sub

Sub 셀병합_4비트()

'

' 셀병합_4비트 매크로

' 현재 셀부터 +3까지의 셀을 병합

'

' 바로 가기 키: Ctrl+Shift+W

'

    startcell = ActiveCell.Address

    endcell = ActiveCell.Offset(0, 3).Address

    

    range(startcell & ":" & endcell).Select

    Selection.Merge

End Sub

Sub 셀병합_8비트()

'

' 셀병합_8비트 매크로

' 현재 셀부터 +7까지의 셀을 병합

'

' 바로 가기 키: Ctrl+Shift+E

'

    startcell = ActiveCell.Address

    endcell = ActiveCell.Offset(0, 7).Address

    

    range(startcell & ":" & endcell).Select

    Selection.Merge

End Sub

Sub 셀병합_16비트()

'

' 셀병합_16비트 매크로

' 현재 라인 1줄을 병합

'

' 바로 가기 키: Ctrl+Shift+A

'

    startcell = "C" & ActiveCell.Row

    endcell = "R" & ActiveCell.Row

    

    range(startcell & ":" & endcell).Select

    Selection.Merge

End Sub

Sub 셀병합_32비트()

'

' 셀병합_32비트 매크로

' 현재 SFR의 2 줄을 모두 병합

'

' 바로 가기 키: Ctrl+Shift+S

'

    If (ActiveCell.Row Mod 2) = 0 Then

        startrow = ActiveCell.Row

        endrow = ActiveCell.Row + 1

    Else

        startrow = ActiveCell.Row - 1

        endrow = ActiveCell.Row

    End If

    

    startcell = "C" & startrow

    endcell = "R" & endrow

    

    range(startcell & ":" & endcell).Select

    Selection.Merge

End Sub