1. Home » 
2. Excelの基本操作の目次 » 
3. ピボットテーブル » 
4. クロス集計をピボットテーブルウィザードを使ってリストに変更する

クロス集計をピボットテーブルウィザードを使ってリストに変更する：Excelの基本操作

クロス集計表と作成するリストの状態　　topへ

• 下表のようなクロス集計表をピボットテーブルウィザードを使ってリストに変更する方法を説明します。
  
  ↓
  
• 下表のクロス集計表を使用しています。
  このデータはピボットテーブルの練習用データとして、各県の一部の市町村のデータを抜き出したものです。
  各県の総人口と一致しませんのでご注意ください。
  

  	B	C	D	E	F
  2	都道府県	市町村	女	男	総計
  3	熊本県	熊本市	390,891	349,147	740,038
  4		西区	48,526	42,702	91,228
  5		中央区	99,686	88,489	188,175
  6		東区	99,403	89,587	188,990
  7		南区	68,741	61,133	129,874
  8		八代市	66,786	58,070	124,856
  9		北区	74,535	67,236	141,771
  10	宮崎県	延岡市	63,629	56,953	120,582
  11		宮崎市	211,531	187,391	398,922
  12		小林市	23,937	20,648	44,585
  13		都城市	85,803	76,185	161,988
  14		日向市	31,786	28,726	60,512
  15		日南市	27,410	24,351	51,761
  16	鹿児島県	姶良市	35,571	32,797	68,368
  17		薩摩川内市	45,105	40,924	86,029
  18		鹿屋市	49,105	45,675	94,780
  19		鹿児島市	278,066	275,413	553,479
  20		出水市	24,449	22,707	47,156
  21		霧島市	59,683	55,253	114,936
  22	総計		1,784,643	1,623,387	3,408,030

クロス集計表を加工する　　　topへ

1. リストを作成するのに都合がいいように、クロス集計表を加工します。
   B3:B9セルを選択して、[Ctrl]+[D] でB3セルをコピーします。
   
2. B10:B15、B16:B21セルも同様に [Ctrl]+[D] で県名を空いたセルにコピーします。
   
3. 都道府県と市町村を1つの文字列につなぎます。
   D列に新しい列を挿入します。「作業列」としました。
   D3セルに　=B3&"_"&C3　と入力して、[Ctrl]+[Enter] で入力を確定して、フィルハンドルをダブルクリックして数式を下方向へコピーします。
   区切り文字に _(半角のアンダーバー)を使いました。
   

ピボットテーブルウィザードを使ってリストに変更する　　　topへ

1. [Alt] [D] [P] とキーを順番に押して、ピボットテーブルウィザードを表示します。
   これはアクセスキーと呼ばれるものです。
   ピボットテーブルウィザード 1/3　で「複数のワークシート範囲」にチェックを入れて[次へ]ボタンをクリックします。
   
2. ピボットテーブルウィザード 2/3　で「指定」にチェックを入れて[次へ]ボタンをクリックします。
   
3. ピボットテーブルウィザード 2b/3　が表示されます。
   範囲にカーソルを表示して、D2:F21セルを選択します。
   [追加]ボタンをクリックして、範囲一覧へ範囲を追加します。
   [次へ]ボタンをクリックします。
   
4. ピボットテーブルウィザード 3/3　で「新規ワークシート」にチェックが入っているのを確認して[完了]ボタンをクリックします。
   
5. 新たなシートにピボットテーブル レポートが作成されました。
   右下の総計 D24セルをダブルクリックします。
   
6. 新たなシートにテーブルが作成されました。
   データリストが作成されました。
   

テーブルを加工する　　　topへ

1. 作成されたテーブルを加工します。
   A列の文字列を分割するために、B列に新しい列を挿入します。
   
2. A2:A39セルを選択して、[データ]タブのテータツール グループの[区切り位置]をクリックします。
   
3. 区切り位置指定ウィザード 1/3　で「コンマやタブなどの区切り文字によってフィールドごとに区切られたデータ」にチェックを入れて、[次へ]ボタンをクリックします。
   
4. 区切り位置指定ウィザード 2/3　で「その他」にチェックを入れ、_(半角のアンダーバー) を入力します。
   データのプレビューに文字列がアンダーバーの位置で区切られるのが表示されます。
   [次へ]ボタンをクリックします。
   
5. 区切り位置指定ウィザード 3/3　で表示先が　$A$2　となっているのを確認します。
   [完了]ボタンをクリックします。
   
6. 期待したリストが作成できました。
   

マクロで処理する　　　topへ

• 下図のようなクロス集計表をリストに戻すのをマクロで書いた例です。
  
  ↓
  
• コードの例
  

  Sub test2() Dim myData As Variant Dim i As Long, j As Long Dim cn As Long, myNo As Long Dim myRow As Long, myCol As Long With Worksheets("Sheet3") 'クロス集計表のシート 　　myRow = .Cells(Rows.Count, 1).End(xlUp).Row 'クロス集計表の最終行 　　myCol = .Cells(1, Columns.Count).End(xlToLeft).Column 'クロス集計表の最終列 　　myData = .Range(.Cells(1, 1), .Cells(myRow, myCol)).Value 'クロス集計表の範囲 End With myNo = UBound(myData) * UBound(myData, 2) Dim myTable() As Variant ReDim myTable(1 To myNo, 1 To 4) As Variant With Worksheets("Sheet8") 'リストを書き出すシート 　　cn = 1 　　For i = 2 To UBound(myData) 'myDataの配列の最大値 　　　　'県名と市名を除くので　-2 　　　　For j = 1 To UBound(myData, 2) - 2 　　　　cn = cn + 1 　　　　myTable(cn - 1, 1) = myData(i, 1) 　　　　myTable(cn - 1, 2) = myData(i, 2) 　　　　If j Mod 2 = 1 Then 　　　　　　myTable(cn - 1, 3) = "女" 　　　　Else 　　　　　　myTable(cn - 1, 3) = "男" 　　　　End If 　　　　myTable(cn - 1, 4) = myData(i, j + 2) 　　　　Next j 　　Next i 　　.Range("A2").Resize(myNo, 4).Value = myTable End With End Sub