タイプの不一致が配列

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

編集は、特定の形式で日付の値を戻します

ティム・ウィリアムズはすでに、あなたのrngValues配列が2Dで言ったように1

次のようにコーディングできる1次元配列としてそれを持っている：

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