Typ Mismatch in Array

Question

Ich habe diesen Code, um die Werte des ausgewählten Bereichs in einem Array zu speichern.

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 

Nach einige Änderungen mit der Säule zu tun, muss ich es zurück an den column.Can fügen Sie bitte helfen Sie mir dies herauszufinden?

Answer 1

Edited Datumswerte in bestimmten Format

zurückzukehren Als Tim Williams schon gesagt, Ihr rngValues ​​Array ein 2D ein

zu haben, ist es als ein 1D-Array können Sie Code wie folgt:

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