[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『2つの表から1つの表を作りたい』(光)
北海道 東京 大阪 3 2 1 4 5 4
北海道 東京 大阪 20% 40% 15% 13% 22% 90%
というような2つの表があるとき
北海道 東京 大阪 1 15% 2 40% 3 20% 4 13% 90% 5 22%
という表を作るにはどうしたら良いでしょうか?
1つ目の表の値+1行のところに2つ目の表の値を入れたいということです。
よろしくお願いします。
< 使用 Excel:Excel2019、使用 OS:unknown >
(マナ) 2022/01/19(水) 12:29
・1つめの表をテーブル設定 ・データの取得と変換/テーブルまたは範囲から ・インデックス列の追加 ・ピボット解除 ・閉じて次に読み込む/接続の作成のみ ・2つめの表をテーブル設定 ・データの取得と変換/テーブルまたは範囲から ・インデックス列の追加 ・ピボット解除 ・クエリのマージ ・マージしたレーブルを展開 ・インデックス列を削除 ・列のピボット ・閉じて読み込む
(マナ) 2022/01/19(水) 18:32
Dim sht As Worksheet, i As Long, 表1 As Range, 表2 As Range Set 表1 = Sheets("Sheet1").Range("A1:C3") '表題を含む表1の範囲を指定 Set 表2 = Sheets("Sheet2").Range("A1:C3") '表題を含む表2の範囲を指定 Sheets.Add After:=Sheets(Sheets.Count) Set sht = Sheets(Sheets.Count) With sht For i = 1 To 表2.Count If IsNumeric(表1(i)) Then 表2(i).Copy .Cells(表1(i).Value + 1, 表1(i).Column) Else 表2(i).Copy .Cells(1, 表1(i).Column) End If Next i End With End Sub (mm) 2022/01/20(木) 13:03
mmさん
求めていた表ができました。
大変ありがとうございました。
(光) 2022/01/20(木) 17:11
追加した[インデックス]列を選んだ状態で、
「その他の列のピボット解除」です。
(マナ) 2022/01/20(木) 17:56
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.