Copilotでクロス表を縦持ちデータに変換

ここまでは「ChatGPTは仕事に使うだけじゃない」シリーズでしたが、ここからは実業務で実際にやりとりしたプロンプトの内容を紹介させていただきます。

1 今回の業務内容と課題
2 実際のCopilotとのやり取り
- 2.1 利用者 → Copilot
- 2.2 Copilot → 利用者
3 まとめ
4 リンク

今回の業務内容と課題

今回扱うのは、経済産業省の公開データである「第３次産業活動指数【月次】業種別原指数」です。

元データは典型的なクロス表になっています。

・縦：品目
・横：年月
・中身：数値

この形式は「見る」には便利ですが、
データベースとして使うには不便です。

例えばこんな問題が出ます。

・ピボットが組みにくい
・Power BIに入れにくい
・抽出条件が増えると処理が面倒

なので今回は、

クロス表 → 縦持ちデータ（正規化）

に変換します。

しかも手作業ではなく、CopilotにVBAを書かせます。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

■■■スポンサーリンク■■■

実際のCopilotとのやり取り

利用者 → Copilot

Excel VBAで、クロス表を縦持ちデータに変換するマクロを作成してください。

■元データ（dataシート）
・1行目：ヘッダー（3列目以降は年月：例 2018/1 など）
・2行目以降：データ
・A列：品目番号
・B列：品目名称
・C列以降：各年月の数値

■出力先（data2シート）
A列：品目番号
B列：品目名称
C列：年月
D列：原指数

■仕様
・dataシートの内容をdata2シートに展開
・data2シートは処理前にクリアする
・最終行はA列から取得
・最終列は1行目から取得
・空白データも含めてすべて展開

可読性を重視し、コメント付きで作成してください。

Copilot → 利用者

以下に、指定された条件に基づいてクロス表を縦持ちデータに 
変換するExcel VBAコードを示します。

Option Explicit

Sub ConvertCrossToLong()

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

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

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

'--------------------------------------------
'【4】元データの最終行・最終列を取得
' ・最終行：A列から取得
' ・最終列：1行目から取得
'--------------------------------------------
Dim lastRow As Long
Dim lastCol As Long
lastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row
lastCol = wsSrc.Cells(1, wsSrc.Columns.Count).End(xlToLeft).Column

'--------------------------------------------
'【5】ループ用の変数定義
'--------------------------------------------
Dim r As Long ' 行ループ（品目）
Dim c As Long ' 列ループ（年月）
Dim outRow As Long ' 出力行番号
Dim itemNo As String ' 品目番号
Dim itemName As String ' 品目名称
Dim ym As String ' 年月

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

'--------------------------------------------
'【6】クロス表 → 縦持ちデータへ展開
' ・3列目以降のすべての年月列を展開
' ・空白データも含めて出力
'--------------------------------------------
For r = 2 To lastRow

    itemNo = wsSrc.Cells(r, 1).Value
    itemName = wsSrc.Cells(r, 2).Value

    For c = 3 To lastCol

        ym = wsSrc.Cells(1, c).Value ' 年月（1行目）

        wsDst.Cells(outRow, 1).Value = itemNo
        wsDst.Cells(outRow, 2).Value = itemName
        wsDst.Cells(outRow, 3).Value = ym
        wsDst.Cells(outRow, 4).Value = wsSrc.Cells(r, c).Value

        outRow = outRow + 1

    Next c
Next r

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

End Sub

ここで一度完成していますが、実務ではこのまま終わりません。

その続きはまた次回に・・・

まとめ

今回のような「クロス表 → 縦持ちデータ変換」は、
Excel業務で非常によく出てくる処理です。

これを毎回手作業でやっていると、時間もかかるしミスも出ます。

Copilotを使えば、
・数分でコード作成
・修正も対話で完了
・再利用も簡単

という状態に持っていけます。

特に重要なのは、「最初の指示の出し方」と「修正のさせ方」です。

AIは万能ではありませんが、
正しく使えば“作業者の代わりに手を動かす存在”になります。

今回のようなパターンを一度体験しておくと、
今後のExcel業務がかなり楽になります。

まずは小さな業務から、Copilotに任せてみてください。
そこから一気に世界が変わります。

次回は「修正のさせ方」をご紹介させていただきます。

■■■スポンサーリンク■■■

リンク

■■■スポンサーリンク■■■