下面的代码选择工作表,但无法将单元格对齐到中心。
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
什么也没做。
我不要HorizontalAlignment :)
我发现该列的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