vba - Excel VBA : Determine if range is horizontal or vertical

Question

我想创建一个函数，其中包括一个范围作为输入。这个范围将是 1 行？列或 1 列？行。换句话说，它将是“一维的”- 水平或垂直。

根据是H还是V，会进行一定的计算。如何判断传递的范围是水平还是垂直？

Answer 1

这个怎么样:

Function RangeIsVertical(rng As Range) As Boolean
    RangeIsVertical = IIf(rng.Columns.Count = 1, 1, 0)
End Function

Sub Test()
    Debug.Print RangeIsVertical(Range("A1")) //True
    Debug.Print RangeIsVertical(Range("A1:A10")) //True
    Debug.Print RangeIsVertical(Range("A1:B2")) //False
End Sub