なぜ条件分岐になっているのか。

Question

結論から申し上げます。
後述するコードにおいて、
単純に引数のデータを変数に入れているだけなのに、なぜ条件分岐になっているのでしょうか。

'重複しない地域名を取得
myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)

これがどうして重複していない地域名の取得になるのでしょうか。
式の意味は、「myDicに追加しろ、引数はKeyとItemだ」
という単純な内容ですよね。
デバッグしてみるとなぜか、重複していなければ、
'売上金額を加算
のプログラムコードのルートを通りません。

しかし、重複データすなわち2件目の同じデータが見つかると、
プログラムコードのルートを通ります。
なぜでしょうか。
そして、どこでどのように重複データを削除しているのでしょうか。
挙動が上手く掴めません。

（※ちなみに、条件分岐に関してはJavaのイメージが先行しています。）

【実際のプログラムコード】

以下

Sub 重複データを削除し合計を合算()

Dim myDic As Object

Dim myKey As Variant

Dim myItem As Variant

Dim myList As Variant

Dim i As Long


    Set myDic = CreateObject("Scripting.Dictionary")

    'A列,B列のデータを配列に格納
    myList = Range("A2", Range("A" & Rows.Count). _
                     End(xlUp)).Resize(, 2).Value

    '連想配列にデータを格納
    For i = 1 To UBound(myList, 1)

        '地域名が空欄かチェック
        If Not myList(i, 1) = Empty Then
            If Not myDic.exists(myList(i, 1)) Then

                '重複しない地域名を取得
                myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)
            Else

                '売上金額を加算
                myDic(myList(i, 1)) = myDic(myList(i, 1)) + myList(i, 2)
            End If
        End If
    Next

    '[都道府県] 重複していないリストを格納
    myKey = myDic.keys

    '[売上]   各都道府県の合計を格納
    myItem = myDic.items

    'リストを出力
    For i = 0 To UBound(myKey)
        Cells(i + 2, 5).Value = myKey(i)
        Cells(i + 2, 6).Value = myItem(i)
    Next

    '開放
    Set myDic = Nothing

End Sub```

Comments

[neconekocat]

ごく普通にIfで分岐してませんかね
あとDictionaryについて調べれば重複については解決しますよ

[meg_]

コードが読みにくいので、｢コードの挿入｣で記入してください。
質問のコードはどこかからの引用でしょうか？

[退会済みユーザー]

恐れ入りますが、
その「ごく普通」が分かりません。

myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)

これが条件式の部分に記述している事はわかります。
しかし、先述した通り、
式の意味は、「myDicに追加しろ、引数はKeyとItemだ」
という意味であり、Yes or Noに当たる意味ではない様に思います。
私の解釈に誤りがあるのでしたらご訂正願います。

ありがうございます。
Dictionaryを調べると良かったのですね。
ぜひ調べさせて頂きます。

[neconekocat]

myDicに存在しないキーならキーと値を追加する
存在しているキーなら値を加算する
ごく普通のIf文です

[退会済みユーザー]

なるほど…
myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)
は条件が通った後の処理内容ですね。
ありがとうございます。

存在するキーすなわち重複しているキーかどうかという事ですね
ありがとうございます

Answer 1

For～Nextの中身を、意味ごとにインデントを付けて書き直すと、以下のようになります。

For i = 1 To UBound(myList, 1)
  '地域名が空欄かチェック         
  If Not myList(i, 1) = Empty Then             
    If Not myDic.exists(myList(i, 1)) Then
      '重複しない地域名を取得                 
      myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)             
    Else
      '売上金額を加算                 
      myDic(myList(i, 1)) = myDic(myList(i, 1)) + myList(i, 2)
    End If         
  End If     
Next

「売上金額を加算」のElseはIf Not myDic.exists(myList(i, 1))に対するものですので、「重複しない地域名を取得」へ進んだ場合には通りません。

Answer 2

myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)

これが条件式の部分に記述している事はわかります。

いいえ、

If Not myDic.exists(myList(i, 1)) Then
    myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)
Else
    myDic(myList(i, 1)) = myDic(myList(i, 1)) + myList(i, 2)
End If

とありますので
Not myDic.exists(myList(i, 1))であれば
myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)を実行します。

Comments

[退会済みユーザー]

データが空ではなかった場合、
myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)を実行すると思うのですが、
その後にあるコードはEnd if ではなくElseです。
従って、
myDic.Add Key:=myList(i, 1), Item:=myList(i, 2)
が実行できなければ、
'売上金額を加算
myDic(myList(i, 1)) = myDic(myList(i, 1)) + myList(i, 2)
に行くと思います。
しかし、この内容はYes or No の内容ではない為、必ず通るはずです。
これより、
重複しないデータの場合はなぜかEnd if に飛び、
重複しているデータは売上金額を加算のコードに入ります。
なぜですか。

問題の本質を解決したく思います

[maisumakun]

> しかし、この内容はYes or No の内容ではない為、必ず通るはずです。

そんなことはありません。If Not myDic.exists(myList(i, 1))の条件が成立しなかった場合「だけ」Elseの中身が実行されます。

このElseはIf Not myList(i, 1) = Emptyに対応するものではなく、If Not myDic.exists(myList(i, 1))に対応するものです。