> Set levelCd = CreateObject("Scripting.Dictionary")

CompareMode プロパティが未設定なので、キー比較は BinaryCompare モードのままですね。


> Dim test_csv() As level_Data

> test_csv.levelName  = Worksheets("Sheet1").Cells(i, "A")
> test_csv.levelCd  = levelCd.Item(keyChk)

これは文法的に不自然ではありませんか?

test_csv.levelName ではなく、
test_csv(i).levelName とかであればまだ分かりますが、
それにしたって ReDim 等が必要なはず…。


> 数値はキーとして設定できないのでしょうか？
いいえ、数値もキーにできます。
しかし、キーのデータ型がブレるのは、あまりお勧めしません。
キーは常に同じ型に揃えておいた方が無難です。

特に数値型や Empty が渡される可能性がある場合はなおのこと。


たとえば
　Key:="KEY_" & Worksheets("Sheet1").Cells(i, "A").Value
のように、固定のプレフィックスなどを付けるとか、
　Key:=CStr(Worksheets("Sheet1").Cells(i, "A").Value)
のように、キーを明示的に String 型に揃えておくなどです。

Excel の場合、未入力セルは Empty 値を返す点にも注意が必要です。

' 空文字列と 数値 0 は区別される 

Set x = CreateObject("Scripting.Dictionary")

x.Add ""   , "A"

x.Add 0    , "B"



' Empty は、空文字列や数値 0 と合致してしまう 

x.Add Empty, "C"  '実行時エラー '457': このキーは既にこのコレクションの要素に割り当てられています。 

Set y = CreateObject("Scripting.Dictionary")

y.Add Empty, "D"

y.Add ""   , "E"  '実行時エラー '457': このキーは既にこのコレクションの要素に割り当てられています。 

Set z = CreateObject("Scripting.Dictionary")

z.Add Empty, "F"

z.Add 0    , "G"  '実行時エラー '457': このキーは既にこのコレクションの要素に割り当てられています。 

Dim a As Variant: a = 0

Dim b As Variant: b = ""

Dim c As Variant: c = #12:00:00 AM# '「1899/12/30 00:00:00」 

Dim d As Variant: d = False

Dim e As Variant: e = Empty



Debug.Print "a="; TypeName(a)   'Integer 

Debug.Print "b="; TypeName(b)   'String 

Debug.Print "c="; TypeName(c)   'Date 

Debug.Print "d="; TypeName(d)   'Boolean 

Debug.Print "e="; TypeName(e)   'Empty 



Debug.Print "*** 下記は False となる(空文字列は、数値ゼロとは別の値)"

Debug.Print b = a   '"" は 0 ではない 

Debug.Print b = c   '"" は 正子 ではない 

Debug.Print b = d   '"" は False ではない 



Debug.Print "*** 下記は True となる(Empty は、空文字列と数値ゼロの両方と同一視される)"

Debug.Print e = a   'Empty は 0 と等しい 

Debug.Print e = b   'Empty は "" と等しい 

Debug.Print e = c   'Empty は 正子 と等しい 

Debug.Print e = d   'Empty は False と等しい 



Debug.Print "*** 下記は True となる(正子、False、数値 0 は、いずれも同一値とみなされる)"

Debug.Print a = c

Debug.Print a = d

Debug.Print a = e

Debug.Print c = d

Debug.Print c = e

Debug.Print d = e