Question

我有一个自定义Excel函数，该函数应该具有一定的范围并计算值的数量，其中某些单元格可能包含多个由/分隔的值，每个值必须进行计数。功能如下：

Option Explicit

Public Function COUNT_RACKS(rack_range As Range) As Integer
    Dim total As Integer
    Dim cell As Range
    Dim split_str As Variant
    Dim len_str As Integer
    total = 0
    For Each cell In rack_range.Cells
        If Len(cell.Value) > 0 Then
            If InStr(cell.Value, "/") <> 0 Then
                split_str = Split(cell.Value, "/")
                len_str = Len(split_str)
                total = total + len_str
            Else
                total = total + 1
            End If
        End If
    Next cell
    COUNT_RACKS = total
End Function

问题在于，它引发了#VALUE!个错误。在调试器中逐步执行该功能时，似乎len_str = Len(split_str)行存在问题。我之所以这样说，是因为每当我到达调试器中的这一行时，它都会立即停止调试并执行F5。显然，我的代码中存在一个或多个错误，但是如果我的调试器不愿意向我展示错误，该如何调试呢？

代码有什么问题？

查找VBA阵列的长度

0 个答案: