ル = WorksheetFunction.VLookup(Cells(1, 4).Value, Range("A:C"), 3, 0) このよに.Valueを指定した場合、日付としては正しく検索されません。 変数・ル = WorksheetFunction.VLookup(Cells(1, 4).Value2, Range("A:C"), 3, 0) このよに、数値で検索することも可能ですが、.Value...