前提・実現したいこと
A列に日付が書いてあり、
そこから「特定日」を取得して、
その特定日が何行目にあるかを記載したい。
基礎的なご質問で恐縮ですが、
躓いており、困っております。。
エラー内容: 2日(5/2)、5日(5/5)だけが何故か「特定日:1日(5/1)」と 認識されてしまい、間違った行を返してしまっている状況。 (2日目、5日目以外は正しく行数を返している)
該当のソースコード
Sub 特定の日付を取得() Dim r As Long Dim dd As Long Dim fd As Range For r = 9 To 39 '9行目が5/1です dd = Day(Cells(r, 1).Value) If dd = 2 Then Set fd = Range("A:A").Find(what:=dd, LookIn:=xlValues) Cells(9, 5) = fd.Row End If Next End Sub
試したこと
(1)LookIn:=xlValuesを追記したが、エラーのまま
(2)A列に記載した日付の表示形式を統一
補足情報(FW/ツールのバージョンなど)

バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/05/20 02:37