HorizontalAlignment VerticalAlignment

    VBA里面的Range对象的HorizontalAlignment属性和VerticalAlignment属性，分别是用来控制单元格对齐方式的，前者为为水平对齐，后者为垂直对齐方式。下面重点给大家介绍这两个属性的用法。
    水平对齐方式的值(默认值=xlGeneral)，当然，还有其它的对齐方式如下：
    常量 水平位置
    xlGeneral 标准
    xlLeft 靠左
    xlCenter 中央
    xlRight 靠右
    xlFill 填充
    xlJustify 调节对齐
    xlCenterAcrossSelection 选择范围内中央对齐
    xlDistributed 平均对齐
    而垂直对齐方式的值(默认值=xlCenter)，同样，它也有其它的对齐方式如下：
    常量 垂直位置
    xlTop 靠上
    xlCenter 中央
    xlBottom 靠下
    xlFill 填充
    xlJustify 调节对齐
    xlDistributed 平均对齐
    ①例子
    Dim range1 As Range
    Set range1 = Range("A1")
    range1.HorizontalAlignment = xlCenter
    range1.VerticalAlignment = xlTop
    ②例子
    Range("A1:C4").Value = "文言文"
    Range("A1:C1").HorizontalAlignment = xlLeft
    Range("A2:C2").HorizontalAlignment = xlCenter
    Range("A3:C3").HorizontalAlignment = xlRight
    Range("A4:C4").HorizontalAlignment = xlDistributed
    Range("A1:A4").VerticalAlignment = xlTop
    Range("B1:B4").VerticalAlignment = xlCenter
    Range("C1:C4").VerticalAlignment = xlBottom