EXCEL マクロ（２）

質問

EXCEL マクロ
Ｂ１セルからＦ１
Ｂ２セルからＦ２
Ｂ３セルからＦ３
までとに文字"Ｔ"のデータであるセルがあります。
(1) その数をカウントして各Ｇ１，Ｇ２，Ｇ３に入れる処理
をどのようにかけばいいですか。

回答No.3

ham_kamo · ベストアンサー

あえてマクロで書くと、以下のような感じでしょうか。

Sub Macro1()
　　Dim Row As Integer, Col As Integer, num As Integer
　　For Row = 1 To 3
　　　　num = 0
　　　　For Col = 2 To 6 'B列からF列
　　　　　　If Cells(Row, Col).Value Like "T*" Then
　　　　　　　　num = num + 1
　　　　　　End If
　　　　Next
　　　　Cells(Row, 7).Value = num 'G列に代入
　　Next
End Sub

お礼

求めたものが得られました。
ご回答どうもありがとうございました。

回答No.4

ham_kamo

No.3です。すみません、ちょっと勘違いがありました。

If Cells(Row, Col).Value Like "T*" Then
の行は、
If Cells(Row, Col).Value = "T" Then
に訂正します。

回答No.2

nobu555

>までとに文字"Ｔ"のデータであるセルがあります。
質問がいまいち解りづらいのですが、
とりあえず、“Ｔ”（一文字）と
入力されているセルの数をカウントするなら、
セルG1に下記を入力
=COUNTIF(B1:F1,"T")

マクロじゃなくても出来ますけど。
質問と違うところがありましたら、
補足願います。

回答No.1

siddhaartha

？？

マクロじゃなくてCountA関数なりの方が早いと思いますが・・・

補足

マクロの中でこういうこともしたいので。よろしく