excel - VBA Excel VerticalAlignment = xlCenter 不工作

Question

下面的代码选择了工作表，但未能将单元格对齐到中心:

wb.Sheets(1).Columns("A:L").Select
With Selection
    .VerticalAlignment = xlCenter
End With

wb.Sheets(1).Activate
wb.Sheets(1).Columns("A:L").Select
With Selection
  .VerticalAlignment = xlCenter
End With 

选择整个工作表，但不会将垂直对齐方式更改为居中。

wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter

什么也没做。
我不想要水平对齐 :)
我发现该列已将 VerticalAlignment 设置为 xlCenter，但该列下方的单元格没有将 VerticalAlignment 设置为 xlCenter。

Answer 1

不要Select并且不要使用 Selection没有理由。那是录音机的东西。读取时间较长，执行速度较慢，并且容易出错。wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter好多了。
如果你需要在相同的范围内做几件事，那么使用 With

with wb.Sheets(1).Columns("A:L")
      .VerticalAlignment = xlCenter
      .somethingElse
End with