エクセルのマクロについて

質問

エクセルのマクロについて

C列の最後の全角２文字が『林檎』の場合、G列のどこかに『林檎』の文言が入っています。
もし入っていない場合のみメッセージを入れる。
こんなマクロできますか？

　　　C列　　 　　　 G列
5行目 ああああ林檎 いい林檎いいい
――――――――――――――――――
　　　C列 　　 　　　G列
6行目 いいいい林檎 いいいいい蜜柑
――――――――――――――――――
　　　C列　　　　　 G列
7行目 うううう林檎 林檎いいいいい
――――――――――――――――――
　　　C列　　　　 　 G列
8行目 うううう蜜柑 林檎いいいいい

↑この場合6行目G列に『林檎』の文言が入っていないので『6行目』とメッセージ
※8行目はC列の最後に『林檎』の文言がないので特にメッセージはなし。
列("5:65536")の範囲でお願いしますm(＞＜)m

回答No.2

merlionXX · ベストアンサー

> 毎回範囲が変わるのですが・・・。

#1のmerlionXXです。
65536行はエクセル2003までの行数で、2007からは違います。
データ最下行が変動するなら、最初からそう書いてくれればこう書いたのですが。
Ｃ列データの最下行を求め、5行目から最下行までを対象にするサンプルです。

Sub test02()
Dim i As Long
With ActiveSheet
For i = 5 To .Cells(Rows.Count, "C").End(xlUp).Row
If Right(.Cells(i, "C"), 2) = "林檎" Then
If InStr(.Cells(i, "G"), "林檎") = 0 Then
MsgBox i & "行目"
End If
End If
Next i
End With
End Sub

お礼

わがままな質問に答えてくれて有難うございましたm(__)m
範囲が変わってもそれに応じて対応させることもできるんですね。
マクロのことは全く分らず非常に助かりました。
自分でも少し勉強してみたいと思います。
(できるようになるか解らないけど)

回答No.1

merlionXX

ほんとうに65536行までやる必要があるなら

Sub test01()
With ActiveSheet
For i = 5 To 65536
If Right(.Cells(i, "C"), 2) = "林檎" Then
If InStr(.Cells(i, "G"), "林檎") = 0 Then
MsgBox i & "行目"
End If
End If
Next i
End With
End Sub

普通はデータのある範囲だけにすると思いますが。

補足

毎回範囲が変わるのですが・・・。
例えば200行までだったり1500行まであったり・・・。
そのような場合↓
65536までの範囲ならどんなときも対応できるかなとおもいまして・・・。
有難うございました！