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

什么也没做.

我不想要Horizo​​ntalAlignment :)

我发现列的VerticalAlignment设置为xlCenter,但列下面的单元格没有将VerticalAlignment设置为xlCenter.

Answer 1

没有理由Select就不要也不要工作Selection.那是Recorder的东西.它读取时间更长,执行速度更慢,并且容易出错.

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

如果你需要做同样范围的几件事,那就用吧

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