[[20161206061457]] 『ピポットテーブルの分解』(あつまる) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ピポットテーブルの分解』(あつまる)

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

ピボットテーブルなら、
元になっているデータはどんな形式のものですか?
おそらく、ですか。
確認してからのほうがよくないですか?
(γ) 2016/12/06(火) 08:12

>おそらくピポットで作成されたエクセルかとおもいます

ピボットテーブルなら元の表があるはずですが、
コピペとかしてピボットテーブルになってない普通の表になっているんですよね?

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


>すみません参考となる列を増やそうと思いA4からデータがある場合

A2 → A4

なら、A2と書いてあるところをA4にしないとダメじゃないですか?
少しは、書いてあることの意味を理解しようとされているのかなぁ。。。

(まっつわん) 2016/12/07(水) 19:24


いやいやA2をA4にしてみても同じように商品名がコピーされてしまいました
商品名の数だけコピーされてしまう
(あつまる) 2016/12/08(木) 00:21

いやいや?、数量が0(未記入含む)のものを除外するように、
あなたが追加すればいいじゃないですか。
少しは手を動かしてみては?

(γ) 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.