VBAサンプル集
「セルの結合」をショートカットに登録（OnKey）

Private Sub Workbook_Open()
　　Application.OnKey "^m", "CellMerge"
　　Application.OnKey "^M", "CellMerge2"

End Sub

Sub CellMerge()
　　Dim myRange As Range
　　Dim blnMerge
　　On Error Resume Next
　　blnMerge = False
　　For Each myRange In Selection
　　　　If myRange.MergeCells = True Then
　　　　　　blnMerge = True

　　　　　　Exit For
　　　　End If
　　Next
　　If blnMerge = True Then
　　　　With Selection
　　　　　　.HorizontalAlignment = xlGeneral
　　　　　　.VerticalAlignment = xlCenter
　　　　　　.WrapText = False
　　　　　　.Orientation = 0
　　　　　　.AddIndent = False
　　　　　　.IndentLevel = 0
　　　　　　.ShrinkToFit = False
　　　　　　.ReadingOrder = xlContext
　　　　　　.MergeCells = True
　　　　　　.UnMerge
　　　　End With
　　Else
　　　　With Selection
　　　　　　.HorizontalAlignment = xlCenter
　　　　　　.VerticalAlignment = xlCenter
　　　　　　.WrapText = False
　　　　　　.Orientation = 0
　　　　　　.AddIndent = False
　　　　　　.IndentLevel = 0
　　　　　　.ShrinkToFit = False
　　　　　　.ReadingOrder = xlContext
　　　　　　.MergeCells = False
　　　　　　.Merge
　　　　End With
　　End If
End Sub
Sub CellMerge2()
　　 Dim myRange As Range
　　Dim blnMerge
　　On Error Resume Next
　　blnMerge = False
　　For Each myRange In Selection
　　　　If myRange.MergeCells = True Then
　　　　　　blnMerge = True
　　　　　　Exit For
　　　　End If
　　Next
　　If blnMerge = True Then
　　　　Selection.UnMerge
　　Else
　　　　Selection.Merge
　　End If
End Sub