
エクセルで横に並んでいるセルを1列に対して1ユーザー1種類・1商品、購入日時で並べ直したいです。
添付の画像で説明すると
A1:鈴木さん B1:飲料 C1:ビール D1:2017/10/17
A2:鈴木さん B2:飲料 C2:ウーロン茶 D2:2017/10/17
A3:鈴木さん B3:お菓子 C3:チョコ D3:2017/10/17
・
・
A6 伊藤さん B6:飲料 C6:ビール D6:2017/10/17
というような感じです。
種類と商品は最大5つまでしか横に並んでいません。
実際には列がたくさんあるので、簡単にできる方法が知りたいです。
解決方法教えてください。
よろしくお願いいたします。

No.4ベストアンサー
- 回答日時:
Sheet2 において、
A1: =OFFSET(Sheet1!A$2,(ROW(A1)-1)/5,)
B1: =OFFSET(Sheet1!B$2,(ROW(A1)-1)/5,MOD((ROW(A1)-1)*2,10))&""
セル B1 をセル C1 にコピー&ペースト
D1: =IF(B1="","",OFFSET(Sheet1!L$2,(ROW(C1)-1)/5,))
範囲 A1:D1 を下方にズズーッとオートフィル
てのは如何?

No.3
- 回答日時:
続けておじゃまします。
No.2のコードで間違いがありました。
>Range(wS.Cells(2, "A"), wS.Cells(lastRow, "K")).ClearContents
を
>Range(wS.Cells(2, "A"), wS.Cells(lastRow, "L")).ClearContents
に変更してください。
Sheet2の最終列はK列ではなく、L列でしたね。
どうも失礼しました。m(_ _)m
No.2
- 回答日時:
No.1です。
>日付はバラバラなんです。。。
やっぱりそうだったんですかぁ~!
それでは手っ取り早くVBAでの一例です。
Sheet1のE列作業列は不要なので、削除してください。
↓のコードを標準モジュールに記載し、マクロを実行してみてください。
尚、質問文通り最大5種類とます。
Sub Sample1() '//この行から//
Dim myDic As Object
Dim myKey, myItem, myR, myAry, myAry2
Dim i As Long, k As Long, lastRow As Long
Dim myStr As String, wS As Worksheet
Set myDic = CreateObject("Scripting.Dictionary")
Set wS = Worksheets("Sheet2")
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(wS.Cells(2, "A"), wS.Cells(lastRow, "K")).ClearContents
End If
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "D"))
For i = 1 To UBound(myR, 1)
myStr = myR(i, 1) & "_" & myR(i, 4)
If Not myDic.exists(myStr) Then
myDic.Add myStr, myR(i, 2) & "_" & myR(i, 3)
Else
myDic(myStr) = myDic(myStr) & "_" & myR(i, 2) & "_" & myR(i, 3)
End If
Next i
End With
myKey = myDic.keys
myItem = myDic.items
For i = 0 To UBound(myKey)
myAry = Split(myKey(i), "_")
myAry2 = Split(myItem(i), "_")
wS.Cells(i + 2, "A") = myAry(0)
wS.Cells(i + 2, "L") = myAry(1)
For k = 0 To UBound(myAry2)
wS.Cells(i + 2, k + 2) = myAry2(k)
Next k
Next i
Set myDic = Nothing
wS.Activate
MsgBox "完了"
End Sub '//この行まで//
※ データ変更があるたびにマクロを実行する必要があります。
※ 日付順にソートが必要なのかもしれませんが、
今回は並び替えはしていません。m(_ _)m
No.1
- 回答日時:
こんばんは!
日付に1日だけなのでしょうか?
一例です。
元データはSheet1にあり、Sheet2に表示するとします。
↓の画像のようにSheet1に作業用の列を設けています。
(これはA列を重複なしに表示させるため)
作業列E2セルに
=IF(COUNTIF(A$2:A2,A2)=1,ROW(),"")
という数式を入れフィルハンドルでこれ以上データはない!という位まで下へフィル&コピーしておきます。
Sheet2のA2セルに
=IFERROR(INDEX(Sheet1!A:A,SMALL(Sheet1!E:E,ROW(A1))),"")
B2セルに
=IF($A2="","",IFERROR(INDEX(Sheet1!$B$1:$B$1000,SMALL(IF(Sheet1!$A$1:$A$1000=$A2,ROW($A$1:$A$1000)),INT(COLUMN()/2))),""))
配列数式なので、Ctrl+Shift+Enterで確定しておきます。
C2セルに
=IF($A2="","",IFERROR(INDEX(Sheet1!$C$1:$C$1000,SMALL(IF(Sheet1!$A$1:$A$1000=$A2,ROW($A$1:$A$1000)),INT(COLUMN(B1)/2))),""))
こちらも配列数式なので、Ctrl+Shift+Enterで確定!
B2・C2セルを範囲指定 → C2セルのフィルハンドルで右へ2列ずつコピー!
最後にA2~K2セルを範囲指定 → K2セルのフィルハンドルで下へコピーすると
画像のような感じになります。
※ 最初に書いたように1日のデータしかないのであれば
日付列は簡単なので、手を付けていません。
※ 日付がバラバラで日付ごとに分ける必要がある場合、
かなり面倒な数式になります。m(_ _)m

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCEL 行内のデータを2行に分けて、表を作り直したいのです。教えてください。 5 2023/06/25 14:00
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) ランダムに並んだ人の名前から、全種類の人を抜き出す関数 7 2022/07/08 08:06
- Excel(エクセル) エクセル シート内のボックスを縦並びから横並びに 7 2023/04/05 04:28
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- お酒・アルコール このビールのサブスク あまりメリットがない気がするのですが。 3 2022/09/01 18:05
- Excel(エクセル) エクセルを活用した受注表作成の中で関数・数式を教えてください。 3 2022/07/23 08:14
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
- Excel(エクセル) Excelグラフのラベルオプションの並べ替えは可能ですか。セルの値を最後にしたいのですが。 1 2022/06/05 10:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について
-
エクセルのリストについて
-
【マクロ】元データと同じお客...
-
エクセルの複雑なシフト表から...
-
【画像あり】オートフィルター...
-
【マクロ】【相談】Excelブック...
-
【マクロ】変数に入れるコード...
-
【マクロ】別ファイルへマクロ...
-
エクセルシートの見出しの文字...
-
【マクロ】数式を入力したい。...
-
Office2021のエクセルで米国株...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
【マクロ】左のブックと右のブ...
-
Amazonでマイクロソフトオフィ...
-
エクセルのVBAで集計をしたい
-
エクセル GROUPBY関数について...
-
【マクロ】オートフィルターの...
-
【マクロ】列を折りたたみ非表...
-
ページが変なふうに切れる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
9月17日でサービス終了らし...
-
エクセル
-
【マクロ】WEBシステムから保存...
-
エクセルの循環参照、?
-
エクセル ドロップダウンリスト...
-
エクセルのdatedif関数を使って...
-
特定のセルだけ結果がおかしい...
-
【マクロ】A列にある、日付(本...
-
【マクロ】EXCELで読込したCSV...
-
【マクロ】アクティブセルの時...
-
【エクセル】期限アラートについて
-
iPhoneのExcelアプリで、別のシ...
-
【関数】同じ関数なのに、エラ...
-
Excelの新しい空白のブックを開...
-
【マクロ】3行に上から下に並...
-
【マクロ】宣言は、何のために...
-
VBA チェックボックスをオーバ...
-
Excelについての質問です 並べ...
-
【マクロ】アクティブセルの2...
-
【関数】不規則な文章から●●-●●...
おすすめ情報
tom04さん
ありがとうございます。
日付はバラバラなんです。。。