下面的代码选择工作表,但无法将单元格对齐到中心。

                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。

最佳答案

不要无故使用Select,也不要使用Selection。那是Recorder的东西。它读取时间更长,执行速度较慢,并且容易出错。
wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter更好。

如果您需要在相同范围内做几件事,请使用

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

09-27 06:39