如果数组已由 Range 分配，则 LBound 和 Ubound 冲突

Question

代码

    height = objExcel1.Application.WorksheetFunction.CountA(ob3.Columns(1))
    'MsgBox(height)
    ReDim dataArray(height - 2, 0) ' -1 for 0 index, -1 for the first row as header row, excluded
    str = ""
    dataArray = ob3.Range(ob3.Cells(2, 1),ob3.Cells(height, 1)).Value
    Set d = CreateObject("scripting.dictionary")
    'MsgBox(LBound(DeletArr) & ":" & UBound(DeletArr))
    For i = LBound(DeletArr) To UBound(DeletArr)
        If Not d.exists(DeletArr(i)) Then
            d(DeletArr(i)) =  0
        End If
    Next
    MsgBox(LBound(dataArray,1) & ":" & UBound(dataArray,1))
    For i = LBound(dataArray, 1)  To UBound(dataArray, 1) - 1

        If d.exists(dataArray(i, 1)) Then

            str = str & (i+1) & ":" & (i+1) & ","
            'ob3.Range(i & ":" & i).Delete

        Else
            'found = False
        End If

    Next

VBScript 数组是基于 0 的。但是为什么LBound(dataArray,1) 给出的起始下标是1，为什么不是0？ Ubound 给出了数字 - 我有点困惑是数组的最后一个下标还是大小？

谢谢，

Answer 1

默认情况下，VBA 数组的下标/索引从 0 开始（这称为数组的下限）并一直运行到您在 Dim 语句中指定的数字（这称为数组的上限） .如果您希望数组索引号从 1 开始，请在模块顶部包含以下语句。

Option Base 1

但是，当使用Transpose 方法由Range 对象填充数组时，即使您处于默认Zero baed 模式，数组下限也会设置为1。因此数组变为基于 1。

例如以下数据使用Transpose方法添加。

Array(1) = "Hola"
Array(2) = "Bonjour"
Array(3) = "Hello"
Array(4) = "Wei"

好消息是这个数组UBound 告诉你元素的数量 (4) = UBound。与从零开始不同，元素数 = Ubound + 1。

UBound(Array) --> 4
LBound(Array) --> 1

在当前基于 1 的场景中，Ubound 指的是元素的总数。因此，在这种情况下，您需要修改代码以跟踪数组的LBound、UBound 属性中的数据，以避免数据丢失。

顺便说一句，通过添加 Option Base 0 并不会阻止数组被基于 Transpose 方法的 1 提及。这使我的第一条评论无效。