- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：vbaで特定の文字を加算して項目に数値を表示したい）
vbaで特定の文字を加算して項目に数値を表示したい
このQ&Aのポイント
- vbaを使用して、特定の文字ごとに加算し、項目に数値を表示したいです。
- 注文によって数が異なるxxxxという文字を加算して、表の形を作りたいです。
- 解決策をご存知の方、ご協力をお願いします。
- ayahumohumo
- お礼率100% (2/2)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは！ データはB列の1行目からあり、A列に表示させるとします。 Sub Sample1() Dim i As Long, cnt As Long For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row If InStr(Cells(i, "B"), "注文") > 0 Then cnt = cnt + 1 End If If Cells(i, "B") <> "" Then If InStr(Cells(i, "B"), "注文") = 0 Then Cells(i, "A") = cnt End If End If Next i End Sub こんな感じでよろしいのでしょうかね？m(_ _)m
お礼
本当にありがとうございます。 お陰で詰まっていたところが進み順調に終わらせることができました。本当にありがとうございました 。