エクセルで横に格納されたデータを縦に変換

Question

現在エクセルで横に格納したデータを縦に変換する処理を行っています。
ネット上で自分なりに検索して処理を作っているのですが、うまくいかず原因を探ろうにも知識不足過ぎるので、なにかしらアドバイス等をもらえればありがたいです。
データ（今後増える予定あり）

作った処理

Set st1 = Sheets("TRAN_QUALIFICATION_HIST")
Set st2 = Sheets("TRAN_QUALIFICATION_HIST")
For i = 1 To st1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To st1.Cells(i, Columns.Count).End(xlToLeft).Column
For k = 3 To st1.Cells(i, Columns.Count).End(xlToLeft).Column
n = n + 1
st2.Cells(n, 1) = st1.Cells(i, 1)
st2.Cells(n, 2) = st1.Cells(i, j)
st2.Cells(n, 3) = st1.Cells(i, k)
Next
Next
Next
End Sub
コード

結果

理想

Comments

[mdj]

別のシートにコピーする方法が良いんじゃないかなと思います。
A1→A1　B1→A2　C1→A3
A2→B1　B2→B2　C2→B3
イメージはこういう風にすることを指します。

[tokumeikibou162]

そうですね別のシートにコピーしたほうがよさそうですね
ちょっと調べてみます。

Answer 1

Sub test2()
    Dim wsFrom As Worksheet
    Dim wsTo As Worksheet
    Dim ixRow As Long
    Dim ixCol As Long
    Dim ixRow2 As Long
    Dim ixCol2 As Long
    Dim n As Long
    
    Set wsFrom = Sheets(1)
    Set wsTo = Sheets(2)
    
    ixRow2 = 1
    For ixRow = 1 To wsFrom.Cells(wsFrom.Rows.Count, "A").End(xlUp).Row
        For ixCol = 1 To wsFrom.Cells(ixRow, wsFrom.Columns.Count).End(xlToLeft).Column
            ixCol2 = ixCol2 + 1
            If ixCol2 > 3 Then
                ixCol2 = 1
                ixRow2 = ixRow2 + 1
            End If
            wsTo.Cells(ixRow2, ixCol2).Value = wsFrom.Cells(ixRow, ixCol).Value
        Next
    Next
End Sub

こんな感じでしょうか？
変数名を意味が分かるように命名すると、
混乱が少ないかもです。
あとは、ステップインで1行ずつ実行しながら、
ローカルウィンドウで変数の中身が意図したように変化確認するとともに、
画面上の変化も確認するとよいかと思います。

考え方としては、
元の列番号が変化するごとに、
書き込みセルの行番号や列番号が変化するときは、
ixCol2 = ixCol2 + 1
のようにカウントアップしてやります。
また3列ひと塊なら、
１からカウントアップして3を超えたときに、
行番号を増やし、列番号は初期値1に戻るので、
「3を超えたとき」を、条件に特別な計算をしてやるといいかと思います。

Comments

[tokumeikibou162]

わかりやすい解説まで、ありがとうございます。