スキルアップ・問題解決なら、モーグにおまかせ！

ダウンロードしたcsv形式のファイルから必要列を指定してコピーで別ファイルにペーストしています。
ペーストしたデータの日付データの表示形式では[*2012/3/14]になっています。
またそのデータと照合する表では、日付を初日をセル[D4]に[=date(年,月,1)]で作成し、2日目以降を
[=D4+1]の形式で[AH4]迄作成し、表示形式を[d]に設定しています。
そしてダウンロードしたデータを照合するため次のように構文を作成しました。
日 = Sheets("DLデータ").Cells(i + 1, 1).Value
a = Application.WorksheetFunction.Match(日, Range("D4:AH4"), 0)
実行したところ、取得できませんのメッセージが出てしまいます。
尚、ステップを踏んで確認してみるとダウンロードしたデータが[2023/6/1]の場合[日]のところにマウスポインタを持っていくと[2023/06/01]になっています。
ネットでいろいろ調べたが解決できません。
どのようにしたらよろしいでしょうか、ご教示ください。

＞日 = Sheets("DLデータ").Cells(i + 1, 1).Value
  日 = Sheets("DLデータ").Cells(i + 1, 1).Value2
                                            ↑
　　　　　　　　　　　　　　　　　　　　　にしてください。

変数 【日】 のデータ型が判りませんが
 
Application.WorksheetFunction.Match(日*1, Range("D4:AH4"), 0)
で、どうでしょうか。
 
ネットで調べたら・・すぐ出ましたよ。

Suzu様ありがとうございました。
[日*1]でできました。
 
＞変数 【日】 のデータ型が判りませんが
Dim 日 As Date
にしてあります。
 
半平太様
[Value2]ではダメでした。