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

解決済みの質問

VBAで文字列のカウントがうまくいかない・・・です

Dim cnt As Long
Dim i As Long
Dim lastRow As Long

For i = 1 to 20 step 2
lastRow = Cells(65536, i).End(xlUP).Row

cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております")cnt = cnt + cnt
Next

Excelのセルを1列ずつ飛ばして列に「お世話になっております」が含まれたら件数をカウントしています。
そのカウント数が何故かリセットされてしまいます。
カウント数を足していきたいのですが・・・考え方自体が違うのでしょうか?

投稿日時 - 2009-01-19 23:29:50

QNo.4644454

すぐに回答ほしいです

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

> cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております")

cnt = cnt + WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております")
として

cnt = cnt + cnt
はコメントアウトするか削除しましょう
cnt = cnt + cntでは cntを2倍しているだけですよ

投稿日時 - 2009-01-19 23:36:05

お礼

ありがとうございました!

投稿日時 - 2009-01-29 06:58:42

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

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

回答(1)

あなたにオススメの質問