vbaループ処理の方法について

Question

初めまして22歳新卒のkaoriと申します。

今回研修としてvbaのプログラミングを学んでいるのですが
考えてもわからない点がございましたので、先輩方の知識を貸していただきたく投稿致しました。

【内容】
複数の値を指定セルに入れていく際の分岐について質問です。

⓵ if 指定セルが空白ならそのまま代入
⓶ if 値が入っていて、今回入れる値と同じなら その値の件数を + 1
⓷ if 値が入っていて、今回入れる値と同じではないなら、次の行セルにフォーカスが飛び
  ⓵⓶と繰り返す

ただこれだけなのですが、ループする方法の発想が思いつきません・・・

今のところ
if 指定セルの値が空白なら Then
   代入
Elseif 指定セルの値 = 代入する値 Then
   (1)件数を追加
Elseif 指定セルの値 <> 代入する値 Then
   (2)この行は無視して次の行を調べる
EndIf

と考えているのですが、これだと指定セルが空白かつ今まで代入してきた値と被ってなかったら代入(件数も追加)を毎回行う方法がありません。というか正直わかりませんでした・・・

納期は今日中までということで、上司はいかなる手段を使ってもいいからクリアしてみなさいということで、teratailに投稿して皆さまのお力をお借りした所存です。

以上、よろしくお願い致します。

Accepted Answer

なんとなくわかってきました

処理イメージはこんな感じでしょうか
![イメージ](6f2042501a77951b45675115edd9d1d2.png)

とすると、ざっくりとした処理の流れはこんな感じになると思います
```

For CSVファイルの終わりまで 'ループＡ
  'CSVから1行取り込む
  '分解して【種類】を取り出す

  For i = 1 to 検索セルの終わりまで 'ループＢ

    If 検索セル(i,1)の値が空白 Then 
       '新しいレコードの追加
       検索セル(i,1) = 種類
       検索セルの件数(i,3) = 1
       Exit For  'ループＢを抜ける
    else if 検索セル(i,1)と種類が一致 Then
       '既存レコード件数の加算
       検索セルの件数(i,3) = 検索セルの件数(i,3)+1
    End if

  Next i 'ループＢ

Next 'ループＡ
```

考え方をそのままコードにしただけなので、具体的にどのようにVBAで書けばよいかはがんばってみてください

どこか認識違いがあるようでしたら、「このあたりが実はこうなんです」と補足いただければと思います

Answer

（これは個人的な意見ですが）
「いかなる手段を使ってでも」という手段を選択する中で、「オープンな掲示板で質問する」という選択肢の前に「今行き詰っていることを上司に相談し、アドバイスをもらう」ということの方が先にあるべきかなと思います。

抱えている問題を独力で解決する能力も身に着けていかなければなりませんが、現時点で独力で解決できない問題を上司や同僚に的確に伝え・相談し・解決に導くコミュニケーション能力は、社会人に必要な能力で、評価に値するものと思いますので。
（既に相談したうえでの質問でしたらすみません。）

---
質問に対するアドバイスですが、「指定セル」と「代入する値」、「調べる行」、これらがどう変わっていくのかが分からないためアドバイスが難しいです。
これらの関係性を補足してもらえると回答がしやすいです。
※処理前のシートのイメージと、処理後のイメージがあるとうれしいです。

---
追記
---
修正依頼コメントへの回答からおおよその処理が把握できましたので、追記します。

```VBA
'CSV取得ループ
Do
   'CSV取得処理
   '～ここは割愛～
   
   'ここから今回のチェック
   strKind = 種類    'CSVから取得した【種類】
   
   '種類チェックループ
   iRow = 1
   Do
      If Cells(iRow, 1) = "" Then
          '①空セルまでに同じ種類が見つからなった場合、新規に種類作成・件数=１
          Cells(iRow, 1) = strKind     'A列に種類をセット
          Cells(iRow, 2) = 1           'B列に件数1をセット
          'ループを抜ける
          Exit Do
      ElseIf Cells(iRow, 1) = strKind Then
          '②同じ種類が既にある場合、件数＋１
          Cells(iRow, 2) = Cells(iRow, 2) + 1    'B列の件数を+1
          'ループを抜ける
          Exit Do
      Else
          '①でも②でもなかった場合（空セルでないが種類も違う場合）、次のセルをチェック
          iRow = iRow + 1
      EndIf
   Loop
   
Loop
```

こんな感じでどうでしょう？

Answer

一応これで対応可能かと思いますが
 Cellの値は、X
代入の値は、Yとします
件数を、Zとします
'-------------------
Yがループ条件とし、1から10だと
Z = 0
Y = 1
Do While Y < 11
    Select Case X
        Case ""
            X = Y
        Case X
            Z = Z + 1
        Case Else
            X = X
    End Select

    Y = Y + 1
Loop

追記

関連した質問