Scripting.Dictionaryと言う奴を使えばできるそうです。MSDNの説明にPerlのハッシュと同じと書いてあって男らしいと思いました。 Dim hash As Object Set hash = CreateObject("Scripting.Dictionary") hash("key1") = "unko" hash("key2") = Array("aaa", "hogehoge") If hash.exists("key1") Then ... End If みたいに使えます ちなみに、 Dim hash As New Scripting.Dictionaryこんな感じで宣言して使うには、エクセルの方で参照設定→「Microsoft Scripting Runtime」にチェックという前準備が必要で、配布した先で動く保証が無くて恐ろしいんですが、上の例のように Dim