Excelの表形式のデータをVBAで整列したい

Question

表形式のデータをVBAで整列したい

画像の左側のような表を右側のように整列したいです。
VBAの「配列」を使えばできるのではないかと考えているのですが、
どこを配列して、どこをループすればいいのかの考え方から分からずつまづいています。。。

VBA初心者で不躾な質問かと思いますが、
ご教授いただければ嬉しいです！！！

宜しくお願いいたします。

Answer 1

えっと、とりあえず、マクロで処理するのは1回限りですか？
それとも、継続的に使い回したいですか？
その時氏名の増減や、科目の増減にも対応したいですか？
科目が増えたとき、同じ形の表を増やしますか？（列の増減はある？）
各表の間に、空白行を挿入することは可能ですか？（これからずっと運用するにあたって）
表の中でA2、A10、A18は、結合されて無くて、空欄ですか？

継続的に使いまわしたいです。
科目（列）や氏名が増えることはないと思いますので、そこは対応なくて構いません。
各表の間に空白行を挿入することは可能です！
列の整列の処理の後は、表の部分は削除する処理を入れようと考えておりました。

A2～は空欄です。整列後の1行目には「日付」「科目」‥‥自動で入るようにしたいと思っています。

---

遅くなりました。
表の間に1行空白行が入っているものとします。

Sub test()
    Dim rngTarget As Range
    Dim rngData As Range
    Dim rngResults As Range
    Dim a As Range
    Dim c As Range
    Dim ixRow As Long
    Dim rngItemV As Range
    Dim rngItemH As Range
    
    Set rngTarget = ActiveSheet.Range("A:F").SpecialCells(xlCellTypeConstants)
    Set rngResults = ActiveSheet.Range("I1")
    ixRow = 1
    
    rngResults(ixRow, 1).Resize(, 5).Value = Split("日付,科目,点数,氏名,備考", ",")
    
    For Each a In rngTarget.Areas
        With a
            Set rngData = .Resize(.Rows.Count - 3, .Columns.Count - 1).Offset(2, 1)
        End With
        
        For Each c In rngData.Cells
            Set rngItemH = Intersect(rngData, c.EntireRow)
            Set rngItemV = Intersect(rngData, c.EntireColumn)
            
            ixRow = ixRow + 1
            rngResults(ixRow, 1).Value = rngItemV(-1, 1).Value
            rngResults(ixRow, 2).Value = rngItemV(0, 1).Value
            rngResults(ixRow, 3).Value = c.Value
            rngResults(ixRow, 4).Value = rngItemH(1, 0).Value
            rngResults(ixRow, 5).Value = rngItemV(6, 1).Value
        Next
    Next
End Sub

ごめんなさい。
動作確認してません。
こんな感じとかで出来ると思いますが、
分かりますでしょうか？
解らないところは聞いて下さい。
（あまり時間が取れないので返事が遅くなります。）

他の方の回答が付きませんね。
質問が丸投げになっているので、敬遠されているかもです。
（僕が変な回答をしたせいかも？）
いずれにしても、わからないなりに、どんなことをしてみたけど、
上手く行かなかったということを説明して、
やりとりしながら、解決の方向を目指してください。
いまから勉強していくのですから、一朝一夕で解決するとは思わない方がよいです。

Comments

[tanakahanako]

回答くださってありがとうございます！！
継続的に使いまわしたいです。
科目（列）や氏名が増えることはないと思いますので、そこは対応なくて構いません。
各表の間に空白行を挿入することは可能です！
列の整列の処理の後は、表の部分は削除する処理を入れようと考えておりました。

A2～は空欄です。整列後の1行目には「日付」「科目」‥‥自動で入るようにしたいと思っています。

[Y.H.]

mattuwanさん。
記載の内容は回答じゃないので「追記・修正依頼」に記載いただけたらと思います。

[mattuwan]

んー。なんだろ。。。。いろいろ思うところはあるけど、
とりあえず、了解です。＞Y.H.さん