Excel 入荷日時の集計の仕方

日 / 時間 8時 12時 15時
1 日 りんご みかん 柿
2 日 みかん りんご 柿
3 日 柿 りんご 柿
5 日 みかん 柿 柿
･
･
･
このような日付、時間、商品の表があります。

時間と商品を基準に何日に入荷したか、下記のように集計したいです。
Excel関数を教えてください。

商品 / 時間 8時 12時 15時
りんご 1、 2、3
柿 3、 5、 1、2、3、5、
みかん 2、5 1、

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/03/19 15:27

こんにちは！

VBAになりますが一例です。
↓の画像のように元データはSheet1にあり、Sheet2に表示するとします。
尚、両シートとも1行目項目は入力済みで、Sheet2のA列の商品名も入力済みだとします。
標準モジュールにしてください。

Sub Sample1() '//この行から//
Dim i As Long, j As Long, k As Long, lastRow As Long
Dim wS As Worksheet, myStr As String
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
Range(.Cells(2, "B"), .Cells(lastRow, "D")).ClearContents
For j = 2 To 4 '//B列～D列まで//
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
For k = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
If wS.Cells(k, j) = .Cells(i, "A") Then
myStr = myStr & wS.Cells(k, "A") & ","
End If
Next k
If myStr <> "" Then
.Cells(i, j) = Left(myStr, Len(myStr) - 1)
myStr = ""
End If
Next i
Next j
.Columns.AutoFit
End With
End Sub '//この行まで//

これで画像のような感じになります。m(_ _)m

この回答へのお礼

ありがとうございます。簡単に集計が出来ました。

お礼日時：2017/03/21 20:01