ある文字が含まれているセルの個数を結果表示

質問

いつもお世話になっております。
また詰まってしまいましたので質問させてください。

Ｓ列に「test」という文字が入っているセルの個数を集計し結果を
セル「ＡＣ１」に表示したいのですがうまくいかずにおります。
なお、Ｓ列には様々な文字が入っているのでワイルドカードで検索しております。
データ数は変動します。

Sub Macro1()

Dim c As Long
Dim ans As Integer
Dim i As Integer

ans = 0

With ActiveSheet
For i = Cells(65536, c).End(xlUp).Row To 1 Step -1
If Range("S" & i) = "*test*" Then
ans = ans + 1
End If
Next i
Range("AC1") = ans
End With

End Sub

環境　Excel2003

以上、宜しくお願いします。

回答No.3

kagakusuki · ベストアンサー

Excel2003を所有していないため、動作確認が出来ておりませんが、おそらく次の様なVBAのマクロで大丈夫だと思います。

Sub Macro1()

Dim ans As Long
ans = Application.WorksheetFunction.CountIf(Columns("S:S"), "*test*")
Range("AC1").Value = ans

End Sub

回答No.2

noname#212058

EXCEL の COUNTIF 関数を使うのではだめでしょうか？
これならワイルドカードも使えますし。
http://www.pursue.ne.jp/Document_xls/xls0022.htm

どうしても VBA で処理したいのであれば
WorksheetFunction.CountIf メソッドとか。
http://www.happy2-island.com/excelsmile/smile03/capter01404.shtml

お礼

サイトのご提示ありがとうございました。
本来の状態では、結構大がかりなＶＢＡになっておりまして…
実際のデータ数も100程度から万単位の場合もありまして
ＶＢＡでという希望でした。
素人にちょっぴり毛が生えたレベルの自分にはなかなか難しい事が多いですが
ご提示いただいたサイト等も活用させていただきます。

回答No.1

noname#203218

2003ユーザーではありませんが、Likeでワイルドカード比較出来る思います。

変数は全部Longに統一しました。
for～nextは最終行から行う必要はありませんので１行目からとしています。
ｉｆは今回分岐が無いので１行で可能です。

Sub Macro1()

Dim Maxrow, i, ans As Long

ans = 0

With ActiveSheet

Maxrow = Range("S" & Cells.Rows.Count).End(xlUp).Row

For i = 1 To Maxrow
If Range("S" & i).Value Like "*test*" Then ans = ans + 1
Next i

Range("AC1") = ans

End With

End Sub

お礼

よく下から上がってをやっているせいで、固定観念にとらわれておりました…
もっと柔軟に考えられるようにしないといけませんね。
ご教授ありがとうございました。