Excel VBA：確定範圍是水平還是垂直

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 

Answer 2

如果Range.Columns.Count=1那麼它是垂直的。如果Range.Rows.Count=1，它是水平的（假設，如你所說，你只有行或列）。