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
12345678910111213141516xlCenter以单元格为中心进行操作, 单元格的中心并不能自动行高,代码中的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 1234567891011121314
跨列居中xlCenterAcrossSelection,跨选择区域操作,如果例子中B5,C5有值,A5,B5,C5会分别以自身单元格为中心居中,无值A5内容横跨到C5在A5:C5内居中,并自动行高
