DicMap1 = MakeDictionary(WPGL) "預り金検証用"
DicMap2 = MakeDictionary(WPGL_OWNER) "オーナーへの総金額検証用"
DicMap3 = MakeDictionary(WPGL_OWNER_BALANCE) "未送金残高検証用"

function MakeDictionary(sheets As Worksheet)
    Dim DicMap As Object
    Dim Buffer() As Object
    
    Set DicMap = CreateObject("Scripting.Dictionary")

    For rownum = 2 To lastrow
        ReDim Buffer(1)
        Value1 = sheets.Cells(rownum, "E1").Value
        Value2 = sheets.Cells(rownum, "G1").Value
        Buffer(0) = sheets.Cells(rownum, "F1").Value
        Buffer(1) = sheets.Cells(rownum, "S1").Value
        
        "建物管理番号　部屋番号 物件名　本体額 が同じかチェックして辞書に含まれていれば追加しない"
        If Not DicMap.Exists(Value1 + "_" + Value2) Then
            DicMap.Add Value1_Value2, Buffer
        End If
    Next

    "作成した辞書を戻り地として返す"
    MakeDictionary = DicMap
end function