Excel VBAで、ある文字を含むセルの行数を知りたいときなどなど。。。

　ちょっとメモメモ。

　たとえば、現在アクティブになっているシートのＡ桁に、"ウィリアムのいたずら"という言葉を含む行番号を返したい

Sub Macro1()
Dim kekka As Integer

kekka = ActiveSheet.Columns("A:A").Find(What:="ウィリアムのいたずら", LookAt:=xlPart).Row
MsgBox kekka

End Sub

くわしくはここ
条件に当てはまるセルを検索する(Find/FindNext/FindPreviousメソッド)
http://www.moug.net/tech/exvba/0050116.htm