- ベストアンサー
エクセル縦データを横に分ける方法
- エクセルで縦方向に並んでいるデータを横方向に分ける方法を紹介します。
- 手作業でデータを分けるのは大変ですが、マクロを使わずに簡単に行う方法があります。
- 月ごとにデータを横方向に並べることで、効率的にデータの整理ができます。
- viyamin
- お礼率96% (587/610)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは！ ＞マクロを使わずに、楽に出来るやり方は無いでしょうか？ とありますが、関数でやるとなるとすでに回答されているようにかなり面倒な数式になると思います。 質問内容がマクロ向きのような感じがしますので、 敢えてお望みでないマクロでやってみました。 一例です。 Sheet1の2行目以降にデータがあるとして、Sheet2に表示するようにしてみました。 画面左下のSheet1のSheet見出し上で右クリック → コードの表示 → VBE画面に ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 （Alt＋F8キー → マクロ → マクロ実行です） Sub test() 'この行から Dim i, j As Long Dim str As String Dim ws As Worksheet Set ws = Worksheets("Sheet2") Application.ScreenUpdating = False ws.Cells.Clear Columns(1).Insert For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If WorksheetFunction.CountA(Rows(i)) = 1 And Cells(i, 2) Like "*月" Then str = Cells(i, 2) ws.Cells(1, Columns.Count).End(xlToLeft).Offset(, 3) = str Else Cells(i, 1) = str End If Next i ws.Columns("A:C").Delete For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 1 To ws.Cells(1, Columns.Count).End(xlToLeft).Column Step 3 If Cells(i, 1) = ws.Cells(1, j) Then Range(Cells(i, 2), Cells(i, 4)).Copy Destination:= _ ws.Cells(Rows.Count, j).End(xlUp).Offset(1) End If Next j Next i Columns(1).Delete Application.ScreenUpdating = True End Sub 'この行まで ※ 関数の場合はデータ変更があるたびにすぐに反映されますが、 マクロの場合は、データ変更のたびにマクロを実行する必要があります。 参考にならなかったら無視してください。m(_ _)m
お礼
回答ありがとうございます。 わざわざマクロの作成ありがとうございました。 今回の質問の主旨からは外れますが、今後の参考とさせていただきます。
お礼
回答ありがとうございます。 office2003にて 式を入力すると =IF(COUNTIF(Sheet1!$D:$D,ROUNDUP(COLUMN(A1)/3,0)*1000+ROW(A1)-1)=0,"",IF(AND(ROW(A1)=1,MOD(COLUMN(A1),3)=1),INDEX(Sheet1!$A:$A,MATCH(ROUNDUP(COLUMN(A1)/3,0)*1000,Sheet1!$D:$D,0)),IF(AND(ROW(A1)=1,MOD(COLUMN(A1),3)<>1),"",IF(ROW(A1)>1,IF(INDEX(Sheet1!$A:$C,MATCH(ROUNDUP( この続きのCOLUMNが黒色に反転して、エラーが有ると警告が出てしまいます。
補足
（お礼の後から記述しました。） 回答ありがとうございます。 office2010で試したところ、エラーは出ず、期待通りの動作をしました。 大変すばらしいと思いました。