質問: 代入する値 Then (1)件数を追加 Elseif 指定セルの値 <> 代入する値 Then (2)この行は無視して次の行を調べる EndIf と考えているのですが、これだと指定セルが空白かつ今まで代入してきた値と被ってなかったら代入(件数も追加)を毎回行う方法がありません。というか正直わかりませんでした・・・ 納期は今日中までということで、上司はいかなる手段を使ってもいいからクリアしてみなさいということで、teratailに投稿して皆さまのお力をお借りした所存です。 以上、よろしくお願い致します。
回答: なんとなくわかってきました 処理イメージはこんな感じでしょうか !イメージ とすると、ざっくりとした処理の流れはこんな感じになると思います ``` For CSVファイルの終わりまで 'ループA 'CSVから1行取り込む '分解して【種類】を取り出す For i = 1 to 検索セルの終わりまで 'ループB If 検索セル(i,1)の値が空白 Then '新しいレコードの追加 検索セル(i,1) = 種類 検索セルの件数(i,3) = 1 Exit For 'ループBを抜ける else if 検索セル(i,1)と種類が一致 Then '既存レコード件数の加算 検索セルの件数(i,3) = 検索セルの件数(i,3)+1 End if Next i 'ループB Next 'ループA ``` 考え方をそのままコードにしただけなので、具体的にどのようにVBAで書けばよいかはがんばってみてください どこか認識違いがあるようでしたら、「このあたりが実はこうなんです」と補足いただければと思います