在制作报表的时候，会遇到要调整单元格或者区域的对齐方式，用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 | 跨列居中。 |
| xlhaligndistributedxlhalignfill | -4117 | 分散对齐。 |
| xlhaligngeneral | 5 | 填充。 |
| xlhalignjustify | 1 | 按数据类型对齐。 |
| xlhalignleft | -4130 | 两端对齐。 |
| xlHAlignLeft | -4131 | 靠左。 |
| xlHAlignRight | -4152 | 靠右。 |
https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlhalign