VBAを用いて、下記のような処理をしたいのですが、上手くできません。 恐縮ですが、どなたかご教示のほどお願い致します。
VBAを用いて、下記のような処理をしたいのですが、上手くできません。 恐縮ですが、どなたかご教示のほどお願い致します。 ・シート上の範囲（D6:AA100）に文字列"A"が不規則に複数あるとして、文字列"A"の一つ下のセルの文字列が"X"の場合に、その”X”の数をカウントして、セル(3,3)にカウントした数をいれる。 ※"A"以外の文字列の一つ下のセルにも"X"がある場合があり、それはカウントしない。
Visual Basic・71閲覧・100
ベストアンサー
添付図の結果で良いのでしょうか。 Sub 検索件数() Dim n0 As Integer Dim r0 As Integer 'リセット Cells(3, 3).Value = "" For n0 = 6 To Cells(Rows.Count, 4).End(xlUp).Row - 1 For r0 = 4 To Cells(6, Columns.Count).End(xlToLeft).Column If Cells(n0, r0).Value Like "*" & "A" & "*" = True Then If Cells(n0 + 1, r0).Value Like "*" & "X" & "*" = True Then Cells(3, 3).Value = Cells(3, 3).Value + 1 End If End If Next Next End Sub
質問者からのお礼コメント
ありがとうございます。 結果の添付図までつけていただいて、非常にわかりやすかったです。 参考にさせていただきました。
お礼日時：5/25 23:06
