改行のあるセルをFindで検索したい

質問

エクセルです。

A1セルに
「あああ」と入力して、ALT+Enterで改行し、「いいい」と入力しました。

ＶＢＡで
Sub test()
MsgBox Cells.Find(What:="あああ" & Chr(13) & "いいい", LookAt:=xlWhole).Address
End Sub
として、セル番地を取得したいのですが
オブジェクト変数または With ブロック変数が設定されていません。(Error 91)
と言うエラーが返ってきてしまいます。

$a$1が返ってきてほしいのですが。

Sub test()
Debug.Print Cells.Find(What:="あああ*", LookAt:=xlWhole).Address
End Sub
で、$a$1が返ってきますが、
できれば改行含む検索ができるようになりたいです。

回答No.1

keithin · ベストアンサー

セル内改行はchr(13)ではありません。

MsgBox Cells.Find(What:="あああ" & Chr(10) & "いいい", LookAt:=xlWhole).Address

あるいは

MsgBox Cells.Find(What:="あああ" & vblf & "いいい", LookAt:=xlWhole).Address

お礼

Chr(10)かvbLfを使えばいいのですね。
試してみたらうまくできました。
ありがとうございました。