裏2から来ました。 雑炊さんはアクセス規制中のため、代理で投稿します。 ================================================ Set objDic8 = CreateObject("Scripting.Dictionary") Set objDic9 = CreateObject("Scripting.Dictionary") Set objDic10 = CreateObject("Scripting.Dictionary") Set objDic11 = CreateObject("Scripting.Dictionary") Set objDic12 = CreateObject("Scripting.Dictionary") Set objDic13 = CreateObject("Scripting.Dictionary") Set objDic14 = CreateObject("Scripting.Dictionary") CreateMultiDic End Sub