Excel：表の内容と列を入れ替えたい

Question

前提・実現したいこと

Excelで次の形の表（例としての表を提示しています。実際は、約1万件ぐらいデータがある表です。）を、
|名前|1月|2月|3月|
|:--|:--:|--:|
|A|1月1日||3月4日|
|B||2月1日||
|C|1/3（臨時）|||
|D|1月1日|||
|D|1月2日|||
|D|1月3日|||
|E|||3月15日|

以下の表の形に作成し直したいと考えています。
|日付|名前|備考|名前|備考|名前|備考|
|:--|:--:|--:|
|1月1日|A||D|
|1月2日|D|||
|1月3日|C|臨時|D|

発生している問題・エラーメッセージ

手入力で作成し直すと、時間がかかる上、ミスが発生する恐れがあるので、自動的に行われるようにしたいと思いました。
そこで、ネットで方法を調べてみようとしているのですが、
「行と列を入れ替える」
といった情報しか調べることができず、
他にどのような検索ワードで調べたらよいか、自分でなかなか思いつかず、煮詰まっています。
何かこの作業を細分化した検索ワードや検索ワードの発想法をアドバイスいただければ幸いです。
超初心者の質問で恐縮です。
どうぞよろしくお願いいたします。

Comments

[K_3578]

表の内容が全然違うんだから手打ちするしかないんじゃないっすかね。

この程度の内容なら2分ぐらいで作り直せそうですけど、
例としてミニマムな表を提示しているだけで実際はもっと膨大な表なんですかね？

[archiver]

K_3578さんと同意見。表が表そうとしている「主体」が完全に変わっているので、自動的にするのは困難。
それに、これだけだと情報が足りない。例えば、
・元の表で言えば、「〇さんは１月には何日に□する」みたいになっているけど、これは各月とも１日だけ？複数日が入ることは無い？仮に複数日入ることがあるとしたら、どのような記述？
・変えたい形にする際、同日に複数人入ることは無い？入るとしたら、どのように表に入れる？
と、実態知らない人間がパッと表の体裁を見ただけでも、これだけ疑問点が出る。

どうしても自動化したいなら、変更前から変更後に至る所での整理すべき点を挙げた方が良いのでは。

[yarukkyanai]

追記・修正依頼ありがとうございます。

＞例としてミニマムな表を提示しているだけで実際はもっと膨大な表なんですかね？
＞＞はい、例として表を提示しました。実際は、約1万件ぐらいデータがある表です。

[yarukkyanai]

＞・元の表で言えば、「〇さんは１月には何日に□する」みたいになっているけど、これは各月とも１日だけ？複数日が入ることは無い？仮に複数日入ることがあるとしたら、どのような記述？
＞＞各月には、1日だけでなく複数日入ることあります。その場合、表には、行を複数日分別に設けて入力されています。（1日分1行）

[yarukkyanai]

＞・変えたい形にする際、同日に複数人入ることは無い？入るとしたら、どのように表に入れる？
＞＞複数人入ることあります。その場合、名前と備考の列を右に追加挿入して入力していく表になっています。

[K_3578]

私が聞きたかったことはarchiverさんが殆ど聞いてくれてるので控えますが、
自動化は諦めて手打ちを楽に進める方向でやるのがマシかなぁと思います。

[archiver]

やっぱりそれだけの要件があったわけですね。これだと質問欄に例示している情報では表し切れていないですので、質問欄を編集して情報を追加してください。

[yarukkyanai]

ありがとうございます！
自分ではわからなかった、疑問点や方向性等教えていただき、大変助かりました。
質問欄に情報追加いたします。

Answer 1

VBAを使った対応を考えるよりパワークエリを使った対応を考えるほうがよいかと思います。

少し試してみましたが、パワークエリのピボット解除の操作をするだけでも目的に近い表を作成することができました。

100％の回答でなく申し訳ありませんが、解決策の一つとして見ていただければと思います。

Comments

[yarukkyanai]

ありがとうございます！
すばらしい！このような機能があること初めて知りました！
また、どのように細分化して表の作り替えを行えばよいか、考え方も学ぶことができありがたいです。
パワークエリについても調べてみて、わからなければまた質問させていただくかもしれませんが、よろしくお願いいたします！

Answer 2

こんな感じでどうでしょうか。

Sub sample()

    Dim moto As Worksheet
    Set moto = Worksheets("元")
    Dim saki As Worksheet
    Set saki = Worksheets("先")
    
    Dim dicRow 'As Scripting.Dictionary
    Set dicRow = CreateObject("Scripting.Dictionary")
    Dim dicCol 'As Scripting.Dictionary
    Set dicCol = CreateObject("Scripting.Dictionary")
    
    Dim c As Range
    For Each c In saki.UsedRange.Columns(1).Cells
        dicRow(c.Text) = c.Row
        dicCol(c.Text) = 2
    Next
    
    Dim d As String
    For Each c In moto.Cells.SpecialCells(xlCellTypeConstants)
        d = Format(Split(c.Text, "（")(0), "m月d日")
        If dicRow.Exists(d) Then
            saki.Cells(dicRow(d), dicCol(d)) = moto.Cells(c.Row, 1)
            If InStr(c.Text, "臨時") > 0 Then saki.Cells(dicRow(d), dicCol(d) + 1) = "臨時"
            dicCol(d) = dicCol(d) + 2
        End If
    Next
End Sub

Comments

[yarukkyanai]

ありがとうございます！
なんと素敵です！自動化できる可能性もあるのですね！
自分がVBA慣れていないので間違っている可能性が大きいと思うのですが、残念ながら、うまく実行できませんでした。
VBAを使用すれば、表の作り替えも可能なのですね。一番は入力・転記ミスといったエラーを防ぎたいので実現できればとても助かります。

[jinoji]

シート名をご自身の環境に合わせていただく必要があるのと、転記先シートの見出し列（ 1月1日、1月2日、、、）はご自身であらかじめシートに入力いただいてからVBAを実行する前提で書いています。
まずはそこをご確認ください。
その他、うまくいかない状況を具体的に書いていただければ、もう少し的確なアドバイスもできると思います。

[yarukkyanai]

ありがとうございます！
なかなかうまく実行できない場合、また質問させていただくと思いますが、よろしくお願いいたします！

Answer 3

自動化は困難だと思うので、手動で組み替えるとして、少しでも楽になりそうな手段を挙げてみます。

表にフィルター掛けてしまえばある程度絞り込めると思うので、その後COUNTA関数使うなりして、
数えれば手打ちするにしても多少は楽になるんじゃないでしょうか。