関数は分からないのでマクロですが
左端のシートに結果を表示して、左から2番目から「数IIチャート」「物理精講」などのシートを並べてください。
数IIチャートなどのシートの日付はB列に
結果を表示するシートの日付はA列に記載してください。
日付は必ず日付データとしてください。
全てデータは1行目からあると考えています。
結果を表示するシートのタブを右クリックすると「コードの表示」があると思います、そこでで出てきた画面にコピペしてください。あとは適当なボタンを追加して関連付けてください。
実行すると一番最初に結果を表示するシートの過去のデータを消すためにB列からZ列までのデータをクリアします。
その後、数IIチャートのシートから順にシートを切り替えながらデータを選んで記載します。
Sub Test()
Dim i As Long, j As Long
Dim fRange As Range
Range("B:Z").ClearContents
For i = 2 To Worksheets.Count
With Worksheets(i)
For j = 1 To .Cells(Rows.Count, "B").End(xlUp).Row
Set fRange = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp)).Find(What:=.Cells(j, "B").Value, lookat:=xlWhole)
If Not fRange Is Nothing Then
Cells(fRange.Row, Cells(fRange.Row, Columns.Count).End(xlToLeft).Column + 1).Value = .Name & .Cells(j, "A").Value
End If
Next
End With
Next
End Sub
お礼
kkkkkm様、 早速の回答、ありがとうございました。 以前も、私、マクロでお世話になったことがあります。 本当に、いつも、いつもありがとうございます。 実際にマクロを埋め込み、動作させてみました。 一発で、私が欲しかった表が、一瞬で出来上がりました。 ちょっと感動ものです。 ずっと勉強計画表を、どうしようか悩んでいたのですが、一瞬で解決です 本当に重ね重ね、感謝いたします、ありがとうございました。