Excel 将 2d 范围转换为 1d 范围以用于函数

Question

令人惊讶的是，在 Google 和这个网站上搜索答案，并没有找到明显的答案，所以我想我会发布它。

我正在尝试创建一个宏（可能是 UDF），它将二维单元格范围（如 A1:C3）转换为一维范围（一列或一行，如 A1: A10)。当需要二维数组时，这将用于诸如MATCH() 之类的函数，例如在 A1:C3 中查找特定值。但我希望该功能具有通用性，以便我可以将它围绕任何 2D 数组拍打以使其成为 1D。喜欢=INDEX(ARRAYDIMENSION(A1:C1),4) 或=MATCH("hello",ARRAYDIMENSION(A1:C1),0)

我已经想出了一个讨厌的方法；我将数组的每一列（对于A1:C3，即A1:A3，B1:B3，C1:C3）在一个新工作表中的彼此下方（因此A2被复制到新工作表的A2，C3被复制到A9，B1到A4等）

然后我返回我的新数组的引用 (Sheet2!A1:A9) 所以 MATCH() 或 INDEX() 或者现在看起来在那里的任何东西。

它有效，但有一些明显的缺陷；添加新工作表对于宏而言既耗时又丑陋，将各个列相互堆叠并不是最有效的方法。但特别是，宏编辑工作表，因此不能是 UDF（我不认为），这意味着我必须将它用作 Worksheet_Calculate Sub，它比仅仅将它放入任何需要它的公式中更少自包含。

---

我认为这比较清楚，请帮助/建议最好的方法，我只做了几个星期的 VBA，所以我还不是超级圆滑。

Answer 1

这会让你开始：

Function ArrayDim(rn As Range, dir As Integer)
Dim test() As Variant
Dim rng() As Variant
Dim cell As Range
Dim i As Long
rng = rn.Value
ReDim test(1 To UBound(rng, 1) * UBound(rng, 2))
i = 1

If dir = 0 Then
    For r = 1 To UBound(rng, 1)
        For c = 1 To UBound(rng, 2)
            test(i) = rng(r, c)
            i = i + 1
        Next c
    Next r
Else
    For c = 1 To UBound(rng, 2)
        For r = 1 To UBound(rng, 1)
            test(i) = rng(r, c)
            i = i + 1
        Next r
    Next c
End If

ArrayDim = test
End Function

第二个标准是排序的方法：

0 = 逐行 1 = 逐列

Answer 2

大概是这样的吧？

Function OneDimArray(rng As Excel.Range) As Variant()

Dim v() As Variant
Dim b As Boolean
Dim a() As Variant
Dim irow As Integer
Dim icol As Integer
Dim r As Range

Set r = Range("a1:c2")
v = r.Value

ReDim a(0)

For icol = 1 To r.Columns.Count
    For irow = 1 To UBound(v)
        a(UBound(a)) = v(irow, icol)
        ReDim Preserve a(UBound(a) + 1)
    Next irow
Next icol

OneDimArray = a

End Function