Тип Несоответствие в массиве

Question

У меня есть этот код для хранения значений выбранного диапазона в массиве.

dim lRow, i as Integer 
dim rngValues() as Variant 

rngValues = thisworkbook.Sheets(2).Range("C2:C" & lRow) 


For i = LBound(rngValues) To UBound(rngValues) 
    Debug.Print rngValues(i) ' this lines returns Type Mismatch error. 
Next i 

После выполнения некоторой модификации с колонкой, я должен вставить его обратно в column.Can, пожалуйста, помогите мне понять это?

Answer 1

Edited возвращать значения даты в определенном формате

Как Тим Уильямс уже сказал, ваш rngValues ​​массив является 2D один

Чтобы иметь его как массив 1D можно закодировать следующим образом:

dim lRow A Long, i as Long '<--| expliciltly declare each variable and use Long for row index ones since they can exceed Integer capacity 
dim rngValues as Variant '<--| declare rngValues as a Variant instead as an array of Variant 

rngValues = Application.Transpose(ThisWorkbook.Sheets(2).Range("C2:C" & lRow).Value) '<--| transpose the "columned" values to "rowed" ones suitable for a 1D array 

For i = LBound(rngValues) To UBound(rngValues) 
    Debug.Print Format(rngValues(i),"yyyy/mm/dd") 
Next