Excelの表の配列変更に関する質問です。

> サンプルデータとして、不変の列データ（アルファベット1文字の箇所）は1列のみとしておりましたが、例えばこれが5列の場合は、どの値をどのように変更すれば、よいでしょうか？

次のように変更してもらえばいいと思います。

コメントを記入してある箇所を変更すれば不変の列の数が変わっても対応できます。

Option Explicit

Sub hatena()

Dim i As Long
Dim r As Long
Dim c As Long
Dim y As Long
Dim wsOUT As Worksheet
Dim wsDATA As Worksheet

Set wsDATA = Worksheets("Sheet1")
Set wsOUT = Worksheets("Sheet2")

y = 1
For r = 1 To wsDATA.Cells(Rows.Count, 1).End(xlUp).Row
    ' 固定列数 + 1
    c = 6
    Do While wsDATA.Cells(r, c) <> ""
        ' 固定列数
        For i = 1 To 5
            wsOUT.Cells(y, i) = wsDATA.Cells(r, i)
        Next
        wsOUT.Cells(y, 6) = wsDATA.Cells(r, c)
        c = c + 1
        y = y + 1
    Loop
Next

End Sub

http://dummy/

Option Explicit

Sub hatena()

Dim i As Long
Dim r As Long
Dim c As Long
Dim y As Long
Dim wsOUT As Worksheet
Dim wsDATA As Worksheet

Set wsDATA = Worksheets("Sheet1")
Set wsOUT = Worksheets("Sheet2")

y = 1
For r = 1 To wsDATA.Cells(Rows.Count, 1).End(xlUp).Row
    c = 6
    Do While wsDATA.Cells(r, c) <> ""
        wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)
        wsOUT.Cells(y, 2) = wsDATA.Cells(r, 2)
        wsOUT.Cells(y, 3) = wsDATA.Cells(r, 3)
        wsOUT.Cells(y, 4) = wsDATA.Cells(r, 4)
        wsOUT.Cells(y, 5) = wsDATA.Cells(r, 5)
        wsOUT.Cells(y, 6) = wsDATA.Cells(r, c)
        c = c + 1
        y = y + 1
    Loop
Next

End Sub

まず

c = 2

は 固定行数＋１なので ここでは ６をセットします。

次に 固定行数の反映箇所

と

変動行数の反映箇所を変更します。

wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)

wsOUT.Cells(y, 2) = wsDATA.Cells(r, c)

の

wsOUT.Cells(y, 1) = wsDATA.Cells(r, 1)

は 固定の分だけ

５行なら ５行にします。

wsOUT.Cells(y, 2) = wsDATA.Cells(r, c)

のy, 2は、固定＋１なので y,6に変えます。

それが 上記のソースになります。

http://q.hatena.ne.jp/1280991348