EXCEL VBA で連想配列にデータがセットされない

連想配列にデータがセットされない

いつもお世話になっております。

またまたループ文でつまずいております。
本当に申し訳ございません。

先程皆様にアドバイス頂いて作った枠に、データを代入していきたいのですが、
データが取得できずこまっております。

やりたいこととしては
元データの

・・・・・・仕向・・・・・・・・ロケーション
CHI A1
CHI A1
CHI B1
TAI A1
TAI A1

という形式のデータを

ロケーション CHI TAI
A1 2 2
B1 1 0

という形で排出したいと考えております。

そこで下記のコードを書いてみたのですが、
データ取得の際のループ文で中に入らずNEXTも飛ばしてENDWITHにいってしまいます。

原因はどこにあるのかアドバイス頂けると大変助かります。
コードは下記になります。
宜しくお願い致します。

' 在庫データを読み込む
With Worksheets("元データ") ' 元データシート
For r = 2 To EndxRow ' 最終行
key = .Cells(r, 7).Value & .Cells(r, 16).Value ' 仕向とロケーション←ここにいかない
dicT(key) = dicT(key) + .Cells(r, 7).Value ' 個数
Next
End With

Worksheets("ロケーション別").Activate

' ロケーションシートへの書き出し
With Worksheets("ロケーション別") ' ロケーション別集計シート
For c = 3 To Smk + 2 ' 列
For r = 4 To 24 ' 行
key = .Cells(2, c).Value & .Cells(r, 1).Value ' 仕向とロケーション
.Cells(r, c) = dicT(key)
Next
Next
End With

No.1 回答者： nicotinism 回答日時： 2015/07/23 20:34

>For r = 2 To EndxRow ' 最終行

のEndxRowの値をステップ実行などで確認してみましょう。