• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：vbaで特定の文字を加算して項目に数値を表示したい）

vbaで特定の文字を加算して項目に数値を表示したい

このQ&Aのポイント
  • vbaを使用して、特定の文字ごとに加算し、項目に数値を表示したいです。
  • 注文によって数が異なるxxxxという文字を加算して、表の形を作りたいです。
  • 解決策をご存知の方、ご協力をお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.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

ayahumohumo
質問者

お礼

本当にありがとうございます。 お陰で詰まっていたところが進み順調に終わらせることができました。本当にありがとうございました　。

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

注目のQ&A

カテゴリ

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

職業から探して質問する
質問する