Excel의 "선택 범위 내에서 중앙"을 ON/OFF하는 매크로

모든 업무에서 활용되고 있는 미워 Excel.
조금 들어간 테이블을 만들 때 "셀을 결합하여 중앙 정렬"하면
셀 복사 및 붙여넣기 및 정렬 시

"이 작업은 병합된 셀에는 사용할 수 없습니다."
"이 작업에는 동일한 크기의 조인 셀이 필요합니다."
"복사 영역과 붙여넣기 영역의 크기가 다르므로 붙여넣을 수 없습니다."
라는 오류가 나올 수 있다.

그 경우에 추천하는 「선택 범위 내에서 중앙」이라고 하는 서식 설정.
셀 서식 > 배치 탭 > 가로 위치에서 선택 범위 내에서 가운데를 선택하면,
말한 바와 같이, 복수의 셀의 중앙에 값을 배치할 수 있다.

B ~ F 열을 선택하여 "선택 범위 내에서 중앙"을 설정.


다음과 같이 마치 결합되어있는 것처럼 보이지만 셀은 독립적으로 유지됩니다.


불행히도이 서식에는 바로 가기가 없으며,
일부러 「셀의 서식 설정」을 열지 않으면 안 된다.

라는 이유로 매크로의 차례.
다음 매크로를 만들고 Ctrl+Shift+C 당 할당하면 OK.

Sub CenterAcrossSelection()
'
' CentarAcrossSelection Macro
' 選択範囲内で中央 ON/OFF
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    If Selection.HorizontalAlignment = xlCenterAcrossSelection Then
        Selection.HorizontalAlignment = xlGeneral
    Else
        Selection.HorizontalAlignment = xlCenterAcrossSelection
    End If

End Sub

사용법은 다음과 같습니다.
1. 「선택 범위 내에서 중앙」의 설정을 (하고 싶은/제외하고 싶은) 셀을 기점으로, 복수의 범위를 선택
2. 매크로 실행