excel - 如何避免在 Excel 中垂直合并单元格？

Question

我厌倦了合并单元格。它们就是不起作用。

因此，当我只需要文本在多列中居中时，我找到了一种避免水平合并单元格的方法。即:Range("A1:C1").Horizo​​ntalAlignment = xlCenterAcrossSelection。

它就像一个魅力。这是完美的。这正是我所需要的。

我天真地认为你可以垂直地做同样的事情，将多行文本居中。类似:Range("A1:A3").VerticalAlignment = xlCenterAcrossSelection。

但是可惜，这不起作用。

我是否在这里遗漏了一些东西，或者 Excel 开发人员是否真的认为，虽然跨列居中是一种常见的做法，但以行居中却是一个愚蠢的想法，没有人会这样做，所以为什么还要麻烦呢？

Answer 1

你可以试试这个:

Sub VerticalAlign()
ThisWorkbook.Sheets(1).Cells(Round((WorksheetFunction.CountA(Range("A1:A6")) + WorksheetFunction.CountBlank(Range("A1:A6"))) / 2, 0), "A") = "Your Value Here"
End Sub

您需要更改正在计数的范围及其所引用的列，但这应该就可以了。不过，有一点警告:VBA 的舍入方式与 Excel 的舍入方式不同。不过，它应该始终在一位数之内。您可以在这里阅读更多相关信息:http://support.microsoft.com/kb/194983