Copilotでクロス表を縦持ちデータに変換｜実務仕上げ編

ご要望の修正内容を反映した、実務向けのコードを以下に提示します。

Option Explicit

Sub ConvertCrossToLong()

'--------------------------------------------
'【1】シートの定義
'--------------------------------------------
Dim wsSource As Worksheet ' 元データ：data シート
Dim wsOutput As Worksheet ' 出力先：data2 シート
Set wsSource = Worksheets("data")
Set wsOutput = Worksheets("data2")

'--------------------------------------------
'【2】出力先シートの初期化
'--------------------------------------------
wsOutput.Cells.ClearContents

'--------------------------------------------
'【3】出力先のヘッダー設定
'--------------------------------------------
wsOutput.Range("A1").Value = "品目番号"
wsOutput.Range("B1").Value = "品目名称"
wsOutput.Range("C1").Value = "年月"
wsOutput.Range("D1").Value = "原指数"

'--------------------------------------------
'【4】元データの最終行・最終列を取得
'--------------------------------------------
Dim lastDataRow As Long
Dim lastDataCol As Long
lastDataRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
lastDataCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column

'--------------------------------------------
'【5】ループ用の変数定義
'--------------------------------------------
Dim rowIndex As Long ' 行ループ（品目）
Dim colIndex As Long ' 列ループ（年月）
Dim outputRow As Long ' 出力行番号
Dim itemCode As String ' 品目番号
Dim itemName As String ' 品目名称
Dim yearMonth As Variant ' 年月（元データ）

outputRow = 2 ' 出力開始行（2行目）

'--------------------------------------------
'【6】クロス表 → 縦持ちデータへ展開
'--------------------------------------------
For rowIndex = 2 To lastDataRow

    itemCode = wsSource.Cells(rowIndex, 1).Value
    itemName = wsSource.Cells(rowIndex, 2).Value

    For colIndex = 3 To lastDataCol

        yearMonth = wsSource.Cells(1, colIndex).Value ' 年月（1行目）

        ' 出力
        wsOutput.Cells(outputRow, 1).Value = itemCode
        wsOutput.Cells(outputRow, 2).Value = itemName

        ' 年月を yyyy/m 形式に統一
        If IsDate(yearMonth) Then
            wsOutput.Cells(outputRow, 3).Value = Format(yearMonth, "yyyy/m")
        Else
            wsOutput.Cells(outputRow, 3).Value = yearMonth
        End If

        ' 原指数（数値）をカンマ区切りに設定
        wsOutput.Cells(outputRow, 4).Value = wsSource.Cells(rowIndex, colIndex).Value
        wsOutput.Cells(outputRow, 4).NumberFormatLocal = "#,##0"

        outputRow = outputRow + 1

    Next colIndex
Next rowIndex

'--------------------------------------------
'【7】列幅を自動調整
'--------------------------------------------
wsOutput.Columns.AutoFit

'--------------------------------------------
'【8】処理完了メッセージ
'--------------------------------------------
MsgBox "クロス表の縦持ち変換が完了しました。", vbInformation

End Sub