売上管理から購入者の購入サイクルを出す方法が知りたい

質問

Excel2007を利用しております。
毎日の売り上げを下記の表の様に売り上げ管理をしています。「フィルタ」や「ピポット」で購入者別、商品別を出しております。下記の様な表で『購入サイクル』を出せれば…と言うのが教えて頂きたい事なのです。1/15に田中様がりんご１０個お買求め頂き、２回目は3/9に同じお買いもの、３回目に5/7に同じお買いもの。この場合約56.5日という購入サイクルが出ますが、この様なものを出したい場合どの様な方法がベストでしょうか？　　関数を使って出来れば何よりで、ピポットで可能なのか、VBAでなければ無理なのか、アクセスを使うのがよいのか（未使用ソフトです）？もしもVBAであれば申し訳ありませんがコードを教えて下さい

　Ａ　　　　　　　Ｂ　　　　　　　Ｃ　　　　　　　Ｄ
購入日　　　購入者　　　　商品名　　　　 数量
１/15　　　　 田中様　　　　りんご　　　　 １０
・　　　　　　 ・　　　　　 ・　　　　　　・
３/２　　　　 鈴木様　　　　みかん　　 　　２０
３/９　　　　 田中様　　　　りんご　　 　　　５
・　　　　　　 ・　　　　　 ・　　　　　　・
・　　　　　　 ・　　　　　 ・　　　　　　・
５/７　　　　 田中様　　　　りんご　　 　　　５
・　　　　　　 ・　　　　　 ・　　　　　　・
８/２　　　　 鈴木様　　　　みかん　　 　　２０
８/２　　　　 阿部様　　　　みかん　　 　　２０

購入者は約２５０名～３００名程、商品アイテムは３０種程です。

回答No.4

n-jun · ベストアンサー

ANo.2です。

>しかし重ねて申し訳ないのですが、「購入日、購入者、商品名、数量」の列を変更するにはどの部分を変えればよいでしょうか?
>表の詳細を申しますとＡ列には「日付」Ｂ列には「地域」Ｃ列には「購入者」Ｄ列には「商品名」、Ｅ列には「数量」となっております。

Sub　try2()
　Dim　Dic　As　Object
　Dim　i　As　Long,　j　As　Long
　Dim　n　As　Long
　Dim　st　As　String
　Dim　v,　w,　x,　key

　Set　Dic　=　CreateObject("Scripting.Dictionary")

　With　Worksheets("Sheet1")
　　　　　　v　=　.Range(.Range("A2"),　.Cells(Rows.Count,　4).End(xlUp)).Value2
　End　With

　For　i　=　1　To　UBound(v,　1)
　　　　　st　=　v(i,　3)　&　"_"　&　v(i,　4)
　　　　　If　Not　Dic.exists(st)　Then
　　　　　　　　Dic(st)　=　Array(v(i,　1),　0,　0,　1)
　　　　　Else
　　　　　　　　n　=　Dic(st)(0)
　　　　　　　　w　=　Array(v(i,　1),　Dic(st)(1)　+　(v(i,　1)　-　n),　Dic(st)(3))
　　　　　　　　Dic(st)　=　Array(w(0),　w(1),　w(1)　/　w(2),　w(2)　+　1)
　　　　　End　If
　Next

　ReDim　x(1　To　Dic.Count,　1　To　3)

　For　Each　key　In　Dic.keys
　　　　　j　=　j　+　1
　　　　　x(j,　1)　=　Split(key,　"_")(0)
　　　　　x(j,　2)　=　Split(key,　"_")(1)
　　　　　x(j,　3)　=　Dic(key)(2)
　Next

　With　Worksheets("Sheet2")
　　　　　　.Range("A1:C1").Value　=　Array("購入者",　"商品名",　"購入サイクル")
　　　　　　.Range("A2").Resize(Dic.Count,　3).Value　=　x
　End　With

　Set　Dic　=　Nothing
　Erase　v,　w,　x
End　Sub
こうゆう事でしょうか。

補足

本当に本当にありがとうございました。
お陰様で100％完璧に理想通りのことができました。
本当にありがとうございました。

回答No.3

hallo-2007

作業列使った関数案です。
Ａ　　　　　　　Ｂ　　　　　　　Ｃ　　　　　　　Ｄ　　　　E
作業列　　　　購入日　　　購入者　　　　商品名　　　　 数量
=B2&C2　　　　１/15　　　　 田中様　　　　りんご　　　　 １０
とＡ列に井列挿入して、=B2&C2　を下までコピィしておきます。
F列に
=VLOOKUP(A2,A3:B$100,2,FALSE)
と範囲をひとつ下の行から最後のデータまでにして、下までコピィ
次に購入した日付がでますので、
次購入までの期間は
G列に　＝E2-B2で出ます。（1個単位で計算なら　=(G2-B2)/E2も良いかも）
後はピボットテーブルなどで、平均値にしてみてはいかがでしょうか？

補足

回答ありがとうございます。
現在、No1,No2さんからの回答を採用させていただいており「hallo-2007」さんの方法まで着手出来ておりません。しかし、必ず回答を利用させて頂き役立てさせて頂きます。
解り易い説明をありがとうございました。

回答No.2

n-jun

Sheet１のデータを基にSheet２に書き出します。
（シート名は適宜修正して下さい。）

Sub　try()
　Dim　Dic　As　Object
　Dim　i　As　Long,　j　As　Long
　Dim　n　As　Long
　Dim　st　As　String
　Dim　v,　w,　key

　Set　Dic　=　CreateObject("Scripting.Dictionary")

　With　Worksheets("Sheet1")
　　　　　　v　=　.Range(.Range("A2"),　.Cells(Rows.Count,　3).End(xlUp)).Value2
　End　With

　For　i　=　1　To　UBound(v,　1)
　　　　　st　=　v(i,　2)　&　"_"　&　v(i,　3)
　　　　　If　Not　Dic.exists(st)　Then
　　　　　　　　Dic(st)　=　Array(v(i,　1),　0,　0,　1)
　　　　　Else
　　　　　　　　n　=　Dic(st)(0)
　　　　　　　　w　=　Array(v(i,　1),　Dic(st)(1)　+　(v(i,　1)　-　n),　Dic(st)(3))
　　　　　　　　Dic(st)　=　Array(w(0),　w(1),　w(1)　/　Dic(st)(3),　Dic(st)(3)　+　1)
　　　　　End　If
　Next

　ReDim　w(1　To　Dic.Count,　1　To　3)

　For　Each　key　In　Dic.keys
　　　　　j　=　j　+　1
　　　　　w(j,　1)　=　Split(key,　"_")(0)
　　　　　w(j,　2)　=　Split(key,　"_")(1)
　　　　　w(j,　3)　=　Dic(key)(2)
　Next

　With　Worksheets("Sheet2")
　　　　　　.Range("A1:C1").Value　=　Array("購入者",　"商品名",　"購入サイクル")
　　　　　　.Range("A2").Resize(Dic.Count,　3).Value　=　w
　End　With

　Set　Dic　=　Nothing
　Erase　v,　w
End　Sub
こうゆう感じのことでいいのかな。
購入者の並べ替えはしてないですけど。

補足

ありがとうございます。本当に大感謝いたします。
まさに願ったとおり、希望通りの結果が出ます。
しかし重ねて申し訳ないのですが、「購入日、購入者、商品名、数量」の列を変更するにはどの部分を変えればよいでしょうか?表の詳細を申しますとＡ列には「日付」Ｂ列には「地域」Ｃ列には「購入者」Ｄ列には「商品名」、Ｅ列には「数量」となっております。

回答No.1

n-jun

別の日に田中様が”みかん”を購入したら、それは”りんご”とは違うサイクル
と言う事でしょうか。

補足

「同じ商品をどのくらいのサイクルで購入されているか？」を知りたいです
”みかん”は”みかん”のサイクルを”りんご”は”りんご”のサイクルを知るため可能な方法をお願いします。