
エクセルで以下のような「店の名前、果物名、個数、金額」が書かれた表のデータがあります。
| A | B | C | D
1|A店|りんご| 2 |400
2|A店|みかん| 3 |300
3|A店|バナナ| 4 |200
4|B店|りんご| 3 |600
5|B店|バナナ| 2 |100
これを別シートに次のようなかたちにしたいのですが、一つずつ移動する以外に方法はありますか?
| A | B | C | D | E | F | G | H | I | J
1|A店|りんご| 2 |400 |みかん| 3 | 300 | バナナ| 4 |200
2|B店|りんご| 3 |600 ||バナナ| 2 |100
エクセルの関数で処理し、できれば別シートにたいのですが、
良い方法を教えていただければ、幸いです。
なにとぞ、宜しくお願いいたします。
(別の方の質問で、果物と個数までの処理する回答がありましたが、
金額まで入れた3要素を集計する場合の関数が分かりませんでした。)
No.4ベストアンサー
- 回答日時:
こんばんは!
VBAでの一例です。
↓の画像のように元データはSheet1にあり、1行目は項目行になっているとします。
Sheet2に表示するようにしてみました。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から//
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.Clear
With Worksheets("Sheet1")
.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
Set c = wS.Range("A:A").Find(what:=.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
wS.Cells(c.Row, Columns.Count).End(xlToLeft).Offset(, 1). _
Resize(, 3).Value = .Cells(i, "B").Resize(, 3).Value
Next i
End With
wS.Rows(1).Delete
wS.Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous
wS.Columns.AutoFit
End Sub 'この行まで//
※ 関数でないのでデータ変更があるたびに
マクロを実行する必要があります。m(_ _)m

早々に、ご丁寧な回答をありがとうございます。
VBAは初めてだったのですが、ご指示通り操作すればできました。
実は、10000行強のデータだったのですが、時間は3分ほどかかりましたが、
見事に変換できました。
感動しました。
本当にありがとうございました。
No.3
- 回答日時:
関数よりも「ピボットテーブル」を使った方が良いと思います。
下の図のようになります。
※レイアウトなど凝ったことはしていないので、意図したものと異なるかと思います。

「ピボットテーブル」でのご提案ありがとうございます。
この手もあったのですね。
参考にして試してみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 建設業・製造業 見積作成(エクセル)について教えて下さい。 2 2023/05/10 13:47
- Excel(エクセル) エクセルのマクロで複数条件に当てはまるものを全て抽出したいです 7 2022/05/21 08:51
- Excel(エクセル) エクセルを活用して受注表を作成中ですが関数が分からなく困ってました。 1 2022/07/22 09:14
- Google Drive Googleスプレッドシートについて質問です。 今作っているデータで、 シート1→ベタ打ちでひたすら 2 2022/05/18 14:27
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) エクセル 2つの列にある値の完全一致を抜き出すVBA 15 2022/12/15 03:22
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) エクセルで割り振りをする方法 7 2022/08/02 14:02
- その他(パソコン・スマホ・電化製品) エクセル初心者です。 仕事でエクセルを使っていて、普段は素人でもできる簡単な関数を使ったことがある程 1 2022/05/25 11:17
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
モテ期を経験した方いらっしゃいますか?
一生に一度はモテ期があるといいますが、みなさんどうですか? いまがそう! という方も、「思い返せばこの頃だったなぁ」という方も、よかったら教えて下さい。
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
泣きながら食べたご飯の思い出
泣きながら食べたご飯の思い出を教えてください。
-
エクセルで横並びの複数データを縦のデータにしたい こんにちは。宜しくお願い致します。 A B C D
ソフトウェア
-
VBA横に並んでいるデータを縦に並ぶデータにしたいです。
Visual Basic(VBA)
-
VBA 縦のデータを横にするコード
IT・エンジニアリング
-
-
4
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
5
Excel VBAで、横並びのデータを縦並びにしたい
その他(Microsoft Office)
-
6
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
7
エクセルで縦に並んだデータを5行毎に横に並べたいです
Excel(エクセル)
-
8
エクセル 横並びの複数行データを縦1列にしたい
Excel(エクセル)
-
9
EXCELで「行と列を入れ替える」操作を何回も繰り返して自動実行する方法はないでしょうか?
Excel(エクセル)
-
10
エクセルで横データを縦に並べ変えたいです。
財務・会計・経理
-
11
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
12
エクセルで横並びの複数データを縦の一本のデータにしたい
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
16
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
17
VBA横のデータを縦にする方法
Excel(エクセル)
-
18
VBA横データを縦にしたいです
Visual Basic(VBA)
-
19
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
20
エクセル VBA 時系列に横一列に並んだデータを 縦に整頓するマクロを教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel・Word リサーチ機能を無...
-
Excel マクロでShearePoint先の...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
Excel_マクロ_現在開いているシ...
-
Excel マクロ VBA プロシー...
-
エクセルに張り付けた写真のフ...
-
マクロ実行時、ユーザーフォー...
-
エクセルで縦に並んだデータを...
-
TERA TERMを隠す方法
-
ExcelのVBA。public変数の値が...
-
エクセルVBAでNAVITIMEを使って...
-
エクセルで別のセルにあるふり...
-
VBAにて別ワークブック上の実行...
-
エクセル VBA実行中のApplicati...
-
【Excel】複数のマクロをまとめ...
-
組んだマクロをメールで送る
-
ソース内の行末に\\
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
一つのTeratermのマクロで複数...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
Excel マクロでShearePoint先の...
-
エクセルに張り付けた写真のフ...
-
Excel_マクロ_現在開いているシ...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
マクロ実行時、ユーザーフォー...
-
ExcelVBAでPDFを閉じるソース
-
Excel VBAからAccessマクロを実...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
【EXCEL VBA】オートシェイプを...
-
エクセルで縦に並んだデータを...
-
マクロで空白セルを詰めて別シ...
-
wordを起動した際に特定のペー...
おすすめ情報