こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

下のようなエクセルがあり、特定の文字ごとに加算してその横のセル数値を入れて表示するマクロを作りたいのですがうまくいきません。
xxxxの数や、その項目数は注文によって数が違うのでうまくいきません
解決策がわかる方いらっしゃいましたらご協力よろしくお願い致します。


◆注文
xxxxx
xxxx
xxx
xxxx
◆注文
xx
xxx
xxxx
xxxx
xx
◆注文
xxx
xxxxx
xx
xxx

 この表を


 ◆注文
1  xxxxx
1  xxxx
1  xxx
1  xxxx
 ◆注文
2  xx
2  xxx
2  xxxx
2  xxxx
2  xx
◆注文
3  xxx
3  xxxxx
3  xx
3  xxx

という風にしたいです。どうかよろしくお願いします。

投稿日時 - 2013-12-13 21:35:13

QNo.8385154

困ってます

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

こんばんは!

データは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

投稿日時 - 2013-12-13 22:24:10

お礼

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

投稿日時 - 2013-12-14 02:24:29

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問