VBA Excel VerticalAlignment = xlCenter不工作

下面的代码select工作表，但未能将单元格居中。

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 

select整个工作表，但不会将垂直alignment更改为居中。

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

什么也没做。

我不想Horizo​​ntalAlignment 🙂

我发现该列已将VerticalAlignment设置为xlCenter，但该列下面的单元格没有将VerticalAlignment设置为xlCenter。

Answer 1

不要Select ，没有理由不使用Selection 。 这是录音机的东西。 读取时间较长，执行较慢，容易出错。

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

如果你需要用相同的范围做几件事情，那就用

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

Answer 2

这是新学习Excel对象模型的常见错误。 每个工作表必须具有当前选定范围，但“ Selection始终指向活动工作表上选定的范围。 您必须.Activate该工作表上所选范围的工作表才能成为Selection对象。

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

或者你可以改变你的代码不依赖于Selection对象：

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

Answer 3

用.HorizontalAlignment = xlCenterreplace.VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter 。