VBA_对齐方式_HorizontalAlignment

在制作报表的时候，会遇到要调整单元格或者区域的对齐方式，用Range.HorizontalAlignment 属性就可以

代码片段

Sub HorizontalAlignment()
Dim r As Range
Set r = Range("A1:E1")

With r
'写入文本到第一个单元格
.Cells(1, 1).Value = "HorizontalAlignment"
'设置对齐方式
.HorizontalAlignment = xlHAlignCenterAcrossSelection
End With

Set r = Nothing

End Sub

几种对齐方式:

Specifies the horizontal alignment for the object.

　　

名称	值	说明
xlHAlignCenter	-4108	居中。
xlHAlignCenterAcrossSelection	7	跨列居中。
xlHAlignDistributed	-4117	分散对齐。
xlHAlignFill	5	填充。
xlHAlignGeneral	1	按数据类型对齐。
xlHAlignJustify	-4130	两端对齐。
xlHAlignLeft	-4131	靠左。
xlHAlignRight	-4152	靠右。

https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlhalign