Excel VBA自定义GetArrayLength函数失效，求问题原因及解决办法

• 返回值类型溢出
  原函数返回Integer类型，VBA中Integer是16位有符号整数，最大值仅为32767。如果数组长度超过这个数值，会直接触发溢出错误。
  修复：将返回类型改为Long（32位整数，最大值2147483647）：

  Function GetArrayLength(arr As Variant) As Long
      If IsEmpty(arr) Then
          GetArrayLength = 0
      Else
          GetArrayLength = UBound(arr) - LBound(arr) + 1
      End If
  End Function
  

• 传入非数组类型（如单个单元格/值）
  如果直接把单个单元格（比如在单元格中输入=GetArrayLength(A1)）或单个数值/字符串传入函数，IsEmpty(arr)会返回False，但UBound仅能用于数组，会直接抛出"无效的过程调用或参数"错误。
  修复：先判断传入对象是否为数组，再执行后续逻辑：

  Function GetArrayLength(arr As Variant) As Long
      If IsEmpty(arr) Then
          GetArrayLength = 0
      ElseIf Not IsArray(arr) Then
          ' 单个值视为长度为1的虚拟数组
          GetArrayLength = 1
      Else
          GetArrayLength = UBound(arr) - LBound(arr) + 1
      End If
  End Function
  

• 多维数组的维度处理问题
  Excel中通过Range赋值得到的数组默认是二维数组（即使是单行/单列区域），原函数仅计算第一维的长度。比如A1:A5赋值的数组，第一维是行（长度5），第二维是列（长度1），若你需要的是总元素数或其他维度，结果会不符合预期。
  修复：添加可选参数指定要计算的维度，默认处理第一维：

  ' 可选参数dimension指定计算的维度，默认值为1
  Function GetArrayLength(arr As Variant, Optional dimension As Integer = 1) As Long
      If IsEmpty(arr) Then
          GetArrayLength = 0
      ElseIf Not IsArray(arr) Then
          GetArrayLength = 1
      Else
          GetArrayLength = UBound(arr, dimension) - LBound(arr, dimension) + 1
      End If
  End Function
  

• 未初始化的动态数组
  如果传入的是未分配空间的动态数组（比如仅声明Dim arr() As Variant但未执行ReDim），IsEmpty(arr)会返回False，调用UBound会触发"下标越界"错误。
  修复：添加错误捕获处理未初始化的数组情况：

  Function GetArrayLength(arr As Variant) As Long
      If IsEmpty(arr) Then
          GetArrayLength = 0
      ElseIf Not IsArray(arr) Then
          GetArrayLength = 1
      Else
          On Error Resume Next
          Dim lenArr As Long
          lenArr = UBound(arr) - LBound(arr) + 1
          If Err.Number <> 0 Then
              ' 未初始化的动态数组，返回长度0
              GetArrayLength = 0
          Else
              GetArrayLength = lenArr
          End If
          On Error GoTo 0
      End If
  End Function
  

内容的提问来源于stack exchange，提问作者roman123