LBound массивов, хранящихся внутри варианта

Question

В этом question Мне был дан ответ, который решил мою проблему, но поскольку я прошел через свой код, я заметил что-то странное. Когда я назначаю 3 массива варианту массивов, я вижу в окне locals, что LBound варианта начинается с 0 (как и ожидалось), однако отдельные массивы LBound начинаются с 1, хотя я написал Option Base 0 в верхней части модуль. Это верно?

Код для заполнения массива

Public Sub FillArray(ByRef data As Variant, 
        sRange As String) 
data = oCurrentWs.Range(sRange) End Sub 

Answer 1

это потому, что присвоение Range к Variant всегда в результате получается массив с 1 нижним пределом, независимо от настройки Option Base.

, как вы можете видеть с этим тестом:

Public Sub FillArray(ByRef data As Variant, sRange As String) 
     With oCurrentWs.Range(sRange) 
      ReDim data(0 To .Rows.Count - 1, 0 To .Columns.Count - 1) '<--| this dims 'data' as a 0-based array 
      data = .Value '<--| this redims 'data' as a 1-based array 
     End With 
    End Sub 

так что если вы действительно необходимо иметь 0 на основе массивов вы должны кодировать как следующим образом:

Public Sub FillArray(ByRef data As Variant, sRange As String) 
    Dim i As Long, j As Long 
    With oCurrentWs.Range(sRange) 
     ReDim data(0 To .Rows.Count - 1, 0 To .Columns.Count - 1) '<--| dim 'data' as a zero-based array 
     For i = 1 To .Rows.Count '<--| loop through referenced range rows 
      For j = 1 To .Columns.Count '<--| loop through referenced range columns 
       data(i - 1, j - 1) = .Cells(i, j) '<--| fill each array element individually 
      Next 
     Next 
    End With 
End Sub 

Answer 2

Вариантные массивы являются динамические массивы типа Variant они инициализируются с помощью "= Array()".

Преимущество

как они инициализируются с помощью «= Array()», LBound и UBound функции работают с ними, даже если они не имеют элементов:

Dim varr As Variant 

    varr = Array() 

    Debug.Print LBound(varr) 'Prints 0 
    Debug.Print UBound(varr) 'Prints -1 

Теперь мы можем также добавить элемент без проверки для UBound failure

Excel Диапазоны использования Base 1

Когда массив заполняется прямо из диапазона массив начинается с 1, а не 0.

Для получения дополнительной информации обратитесь к Cells & Ranges > Working With Arrays