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

Question

我对合并的单元格感到厌倦。他们只是不工作。

因此，当我只需要将文本跨多列居中时，便找到了一种避免水平合并单元格的方法。那是：Range("A1:C1").HorizontalAlignment = xlCenterAcrossSelection。

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

我天真地以为您可以在垂直方向上执行相同的操作，以使文本在多行中居中。类似于：Range("A1:A3").VerticalAlignment = xlCenterAcrossSelection。

但是a，那是行不通的。

我是在这里遗漏了什么吗，还是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