EXCELの関数での処理をおしえてください。

A5：A45に名前
H2に今日の日付
J2に今月始
K2に今月末
E5：AI45に日付（将来的に6ヶ月ごとの日付）が表示されています。
E5：AI45から今月中のひとの名前を
J3から右へ表示させたいのです。
よろしくお願いいたします。

質問者からの補足コメント

• 様式が会社仕様なので変更できません。過去から将来まで表示されているようです。
  日付は=EDATE(M7,6）の数式が入っています。
  入社日を基準にして数式が入っています。
  イメージは添付していただいた画像の通りです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/06/12 22:12

No.2 ベストアンサー 回答者： zongai 回答日時： 2022/06/12 22:58

こちらのマクロをお試しください。

Sub sample()
　　Dim gyou As Long
　　Dim retu As Long
　　Dim kinyu As Long
　　
　　kinyu = 10　'記入列（J列）
　　Range(Cells(3, kinyu), Cells(3, Columns.Count)).ClearContents　 '表示してる名前をクリア
　　　　
　　For gyou = 5 To 45 '行範囲
　　　　For retu = 5 To 35 'E列～AI列
　　　　　　If DateSerial(Year(Cells(gyou, retu)), Month(Cells(gyou, retu)), 1) = Range("J2") Then
　　　　　　　　　　'日付の「1日」が、今月始（J2セル；1日と想定）と同じなら…
　　　　　　　　Cells(3, kinyu) = Cells(gyou, 1)　　'3行目の記入列に名前を書き出す
　　　　　　　　kinyu = kinyu + 1　 '記入列を右にずらす
　　　　　　　　Exit For　　'次の行へ
　　　　　　End If
　　　　Next
　　Next
End Sub

この回答へのお礼

ありがとうございます。
表の形式を変えずに名前を記入することができました。

お礼日時：2022/06/12 23:34

No.1 回答者： zongai 回答日時： 2022/06/12 21:36

「日付」と書かれているのはセルの書式で【日付】なのか？【文字列】なのか？

E5：AI45が6ヶ月ごとの日付なら、
E5が2022/6/12なら、AI5は2037/6/12という15年に渡るスケジュール表？

具体的どういう挙動にしたいのか、
補足でイメージの画像を添付していただけないでしょうか。
（テキトーに作ってみたけど添付画像みたいなものなのかな。ちょっとボケててすみません。）

マクロを使えば簡単にできそうだとは思います。