Excel 合併 欄位 儲存格 的 快速鍵 巨集

Sub 合併欄()
‘
‘ 合併欄 Macro
‘ Paolong 在 2007/7/3 錄製的巨集
‘
‘ 快速鍵: Ctrl+q
‘
    Selection.Merge True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ReadingOrder = xlContext
    End With
End Sub