[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ピポットテーブルの分解』(あつまる)
A2列に商品名、B2列に商品番号、C1列からAZ1列まだ日付があり、数値がはいっている集計表がございます。この集計表から
商品名 商品番号 日付 数量のデータに分解したいです。
マクロを教えて頂けないでしょうか
< 使用 Excel:Excel2013、使用 OS:Windows8 >
(γ) 2016/12/06(火) 07:24
12/1. 12/2 . リンゴ. 001. 1. 2. みかん. 002. 3. 1. (あつまる) 2016/12/06(火) 08:04
ピボットテーブルなら元の表があるはずですが、
コピペとかしてピボットテーブルになってない普通の表になっているんですよね?
Sub test()
Dim ws As Worksheet Dim rngTable As Range Dim c As Range Dim ixRow As Long
Set ws = Sheets("Sheet1") With ws.Range("A2").CurrentRegion Set rngTable = Intersect(.Cells, .Offset(1, 2)) End With ixRow = 2
For Each c In rngTable With Sheets("Sheet2") .Cells(ixRow, 1).Value = ws.Cells(c.Row, 1).Value .Cells(ixRow, 2).Value = "'" & ws.Cells(c.Row, 2).Value .Cells(ixRow, 3).Value = ws.Cells(1, c.Column).Value .Cells(ixRow, 4).Value = c.Value End With ixRow = ixRow + 1 Next End Sub
※3列目は意図的にシングルクォーテーションを追加してます。
不要なら外してください。
(まっつわん) 2016/12/06(火) 11:55
すみません参考となる列を増やそうと思いA4からデータがある場合
マクロを走らせると商品名 商品番号が商品名分最初
できてた後、分解されたデータになりました
行をずらした場合どうしたらいいでしょうか。
(あつまる) 2016/12/07(水) 18:16
A2 → A4
なら、A2と書いてあるところをA4にしないとダメじゃないですか?
少しは、書いてあることの意味を理解しようとされているのかなぁ。。。
(まっつわん) 2016/12/07(水) 19:24
(γ) 2016/12/08(木) 00:42
>すみません参考となる列を増やそうと思いA4からデータがある場合
>マクロを走らせると商品名 商品番号が商品名分最初
>できてた後、分解されたデータになりました
頭が悪いのか、何回読んでも意味が解りません^^;
>いやいやA2をA4にしてみても同じように商品名がコピーされてしまいました
>商品名の数だけコピーされてしまう
結局、マクロを実行したらどうなって欲しいか、シートのイメージを書いてもらえませんか?
(まっつわん) 2016/12/08(木) 06:29
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.