Excel 合并居中后无法自动换行

Excel 合并居中后无法自动换行

• 合并居中

Sub Macro2()

Range("A5:c5").Select
    With Selection
        .HorizontalAlignment = xlCenter	
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    Selection.EntireRow.AutoFit
    End With
End Sub

xlCenter以单元格为中心进行操作, 单元格的中心并不能自动行高,代码中的autofit是无效的

• 跨列居中

Sub Macro1()
Range("A5:c5").Select
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

跨列居中xlCenterAcrossSelection,跨选择区域操作,如果例子中B5,C5有值,A5,B5,C5会分别以自身单元格为中心居中,无值A5内容横跨到C5在A5:C5内居中,并自动行高