|
▼kobasan さん:
それからmomomiさん:今晩は
momomiさんのテーマで色々と発展した質問が出ていて驚いています。
momomiさん
結果から判断するとkobasanさんのコードが一番使い易そうですね。
完成度が抜群と思いますが。でも小生のように61歳の手習いには、一寸難しくって
理解できないところがありますが。
また、小生は勘違いをしていました。一挙に集計するのではなく、商品別に
集計するのだと思っていました。失礼しました。
でも。momomiさんが最初書かれているように2000件のデータで50商品の分類ですと
むしろ商品別に検出するマクロもいるのでは?っと思ったり…しましたが。
kobasanありがとうございました。勉強にはなりましたが、小生には少し難しいです。
肝心の部分だけでもコメントいただければありがたいのですが…
以下の部分です。
> '-----品名の無重複データ作成
> With Sheets(1)
> n = 0
> For Each c In Range("B2", Sheets(1).Cells(65535, 2).End(xlUp))
> If Application.CountIf(.Range("B2", c), c.Value) = 1 Then
> n = n + 1
> ReDim Preserve X(1 To n) >>ここが特に理解できません。
> X(n) = c.Value >>ここが特に理解できません
> End If
> Next
> End With
>
今後ともよろしくお願いします。
|
|