
エクセルで横に並んでいるセルを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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUP FALSEのこと
-
空白のはずがSUBTOTAL関数でカ...
-
同じ名前(重複)かつ 日本 ア...
-
【マクロ】数式を入力したい。...
-
if関数の複数条件について
-
excel
-
Excelで4択問題を作成したい
-
エクセルシートの見出しの文字...
-
表計算ソフトでの様式の呼称
-
空白処理を空白に
-
【マクロ 画像あり】Exact関数...
-
エクセルでフィルターした値を...
-
【マクロ】既存ファイルの名前...
-
勤怠表について ABS、TEXT関数...
-
【マクロ】実行時エラー '424':...
-
Excel 複数のセルが一致すると...
-
Excel 日付の表示が直せません...
-
【マクロ画像あり】❶1つの条件...
-
【マクロ】【画像あり】4つの...
-
【マクロ】【相談】Excelブック...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでフィルターした値を...
-
if関数の複数条件について
-
エクセルシートの見出しの文字...
-
excel
-
エクセルの文字数列関数と競馬...
-
VLOOKUP FALSEのこと
-
同じ名前(重複)かつ 日本 ア...
-
表計算ソフトでの様式の呼称
-
エクセルに写真が貼れない(フ...
-
【マクロ】数式を入力したい。...
-
【マクロ】実行時エラー '424':...
-
【画像あり】オートフィルター...
-
Office2021のエクセルで米国株...
-
【画像あり】【関数】指定した...
-
エクセルのVBAで集計をしたい
-
【マクロ】【画像あり】4つの...
-
【関数】3つのセルの中で最新...
-
【マクロ】excelファイルを開く...
-
LibreOffice Clalc(またはエク...
-
エクセルのライセンスが分かり...
おすすめ情報
tom04さん
ありがとうございます。
日付はバラバラなんです。。。