[[20190624192930]]　『ピボットテーブル』（a）　ページの最後に飛ぶ

『ピボットテーブル』（a）

診療科 X Y Z
内科 3:10 4:10 5:10
耳鼻科 ⋮ ⋮ ⋮

⋮

上のように診療科とX,Y,Zにかかった時間が並んだ表があります。
診療科ごとにX,Y,Zにかかった時間の平均値を求め、そのグラフを作成したいです。
ピボットテーブルを使って、行ラベルに診療科を入れ、値にX,Y,Zの平均値を入れると平均値は求まりましたが、ピボットグラフを作るとX,Y,Zの平均値の全てが一つのグラフに表示されてしまいます。私が作りたいのは、診療科ごとのXの平均値のグラフ、Yの平均値のグラフ、Zの平均値のグラフの三つのグラフです。フィルターを使ってみようと試みましたがうまくできません。どうすればいいですか。

 宜しくお願い致します。

＜使用 Excel：Office365、使用 OS：MacOS9 ＞

元データを並べ替えることはできないのでしょうか

         -A-     -B-      -C-
 1	診療科   XYZ     時間
 2      内科      X      3:10
 3      耳鼻科    X      2:00
 4      内科      Y      4:00
 5      耳鼻科    Y      1:00
 6      内科      Z      5:00
 7      耳鼻科    Z      1:40

（マナ） 2019/06/24(月) 21:07

データの数が膨大なので厳しいです。
それ以外の方法はないでしょうか泣
（a） 2019/06/24(月) 21:24

＞データの数が膨大

どの程度ですか

（マナ） 2019/06/24(月) 21:35

手作業でも、コピペの繰り返しでできそうですが
マクロで並べ替えるものありです。

 Option Explicit

 Sub test()
    Dim r As Range
    Dim n As Long
    Dim ws As Worksheet
    Dim k As Long

    Set r = Range("A1").CurrentRegion
    Set r = Intersect(r, r.Offset(1))
    n = r.Rows.Count
    Set ws = Worksheets.Add

    ws.Range("A1:C1").Value = Array("診療科", "項目", "時間")
    For k = 2 To r.Columns.Count
        With ws.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(n)
            r.Columns(1).Copy .Columns(1)
            r.Cells(0, k).Copy .Columns(2)
            r.Columns(k).Copy .Columns(3)
        End With
    Next

 End Sub

（マナ） 2019/06/24(月) 22:09

ありがとうございます。
並び替えました！値に “時間”を入れると個数になってしまうのですがどうすればいいのでしょうか？
（a） 2019/06/24(月) 22:17

それは、ピボットテーブルの基本操作に関することです。
すぐに質問しないで、まずは検索してください。

（マナ） 2019/06/24(月) 22:25

そうなんですか？！初心者で瀕死状態ですが、検索してみます。
（a） 2019/06/24(月) 22:31

並び替えするものを間違えていました。
もう一度やり直します。
（a） 2019/06/24(月) 23:27

できました！ありがとうございました。
（a） 2019/06/24(月) 23:51

コメント返信：

[ 一覧(最新更新順) ]

[[20190624192930]] 『ピボットテーブル』（a） ページの最後に飛ぶ

[[20190624192930]]　『ピボットテーブル』（a）　ページの最後に飛ぶ