質問: マクロについて質問です。
回答: Sheet1にあるリストの「月日」がシリアル値なのか、文字列なのか、そのあたりが曖昧です。 見たままの感じだと D2に「1月」のような「文字データ」 E2に「2」のように「数値データ」 に思えますが、そうだとすると現在のマクロを実行しても「2021/01/02」のようにはならないハズですし、、、 とりあえず、Sheet1のD列に日付が「シリアル値」で入っている前提です。 Sheet3 の書式設定やタイトル行設定は割愛してます。 D列の日付がシリアル値では無い場合「型が一致しません」といったエラーが出て止まると思います。 「Select Case文でまとめたい」という補足は、何を望まれているのか意味が解らないので、対応してません。 Sub Sample1() Dim ws1 As Worksheet, ws2 As Worksheet, r As Range Dim i As Long, m As Long Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet3") ws2.Rows("2:" & ws2.UsedRange.Rows.Count).ClearContents ws1.Range("B:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ws2.Range("A1:B1"), Unique:=True For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row Set r = ws2.Columns(2).Find(what:=ws1.Cells(i, 3).Value, LookIn:=xlValues, lookat:=xlWhole) m = Month(ws1.Cells(i, 4).Value) m = (m * 6) - (m - 1) r.Offset(, m - 2).Value = r.Offset(, m - 2).Value & vbCrLf & ws1.Cells(i, 4).Value Next i End Sub