エクセルmatch関数を使った日付の検索

質問

株価の表があり、項目は日付、初値、高値、安値、終値、出来高のA列からF列になっています。
もう一つデータの入ってない表があり、そちらにデータの入っている元の表から日付で検索して合致
するデータを持ってきたいのです。（呼び出し側の表の最後のデータから、日付を取り出して検索しています）
項目日付の書式は日付型になっています。
自分なりに調べて次のようにしました。

Sub sinkabuka()
Dim ken As Variant
Dim motorow As Integer
Dim sinrow As Integer
Dim han As Object
Dim a As Variant

motorow = Worksheets(2).Range("a65536").End(xlUp).row
sinrow = Worksheets(1).Range("a65536").End(xlUp).row
If sinrow = 1 Then
Exit Sub
End If
ken = Worksheets(1).Range("a" & sinrow).Value2
Worksheets(2).Activate
Worksheets(2).Select
Set han = Range("a2:f" & motorow)
a = Application.WorksheetFunction.Match(ken, han, 0)　＜ーエラーになります

match関数でアドレスをとれるようになったら、合致したデータの次のデータをとるようにしたいと
おもっています。
試しにvlookup関数を使ったらデータを返してくれました。
excel2010 windows7です。
アドバイスをお願いします。

回答No.2

mu2011 · ベストアンサー

VLOOKUPとMATCH関数では少し相違します。
MATCHの範囲は単一列、行としないと検索できませんので範囲を変更して下さい。
私見ですが、FINDメソッドの方が簡単と思いますが如何でしょうか。

お礼

回答ありがとうございます。
2日も悩んでいたのに一瞬で、できてしまった。
複数列だとだめなんですね。
データ型がだめなのかと思っていました。
ありがとうございます。
findメソッドも勉強いたします。

回答No.3

ki-aaa

こんにちわ
検索範囲が複数列だからエラーになったのかな?

Set han = Range("a2:f" & motorow)
　↓
Set han = Range("a2:a" & motorow)

お礼

回答ありがとうございます。
2日も悩んでいたのに一瞬で、できてしまった。
複数列だとだめなんですね。
データ型がだめなのかと思っていました。
ありがとうございます。

回答No.1

goota33

WorksheetFunctionでMatch関数を使用すると、
検索した範囲内で一致する項目がなかったら実行時エラーになるみたいですね。

なのでWorksheetFunction部分を削除して
Application.Matchと直したら実行時エラーにならなくなります。

詳細は以下のページを見てください。
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+201011/10110074.txt