エクセル マクロ 検索
お世話になります。
範囲がA2からK221までの表があります。
検索して検索されたセルの左のセルを表示するマクロを組みたいのですが、検索する文字（数値）はE1に、検索結果はK1に表示するようにするにはどのようにしたらいいでしょうか？
Sub FIND_DATA1()
' FIND_DATA1 Macro
' マクロ記録日 : 2006/9/1 ユーザー名 : '
Cells.Find(What:=Range("E1").Value, After:=ActiveCell, lookAt:=xlWhole).Activate
End Sub
Sub Data_Find3()
Dim 対象セル As Range
Dim 最初のセル番地 As String
Dim 検索件数 As Long
Cells.Interior.ColorIndex = xlNone
If Range("E1").Value = "" Then
Exit Sub
End If
Set 対象セル = Cells.Find(What:=Range("E1").Value, After:=ActiveCell, lookAt:=xlWhole)
最初のセル番地 = 対象セル.Address
Do
対象セル.Interior.ColorIndex = 37
検索件数 = 検索件数 + 1
Set 対象セル = Cells.FindNext(対象セル)
Loop While 対象セル.Address <> 最初のセル番地
MsgBox "検索件数は" & 検索件数 - 1 & " 件です"
End Sub
本を見たり調べたりでここまでできたんですがこれだと検索件数、検索結果が色付きになるだけで使い勝手がいまいちです。
よろしくお願いします。
お礼
ありがとうございました。やってみましたが、直りませんでした。