エクセル重複セルについて

質問

例えば
　　　Ａ　　　Ｂ
１　 品名 数量

２　みかん　 ２
３　りんご　　２
４　みかん　　１
５　いちご　　１
６　りんご　　１　　とあるとして、

他のセルに
　　　Ｃ　　　Ｄ
１　 品名　　個数

２　 みかん　 ３
３　 りんご　 ３
４　 いちご　 １　　のように

重複セルを削除し、なおかつ
個数もまとめるというようなことは
エクセルでできないでしょうか？
宜しくお願いします。

回答No.4

imogasi · ベストアンサー

#3 です。
＞コマンドボタンで１発で結果を表示させたいのです
ＶＢＡになりますが、下記を自分のケースに合わせて改造できますか。
下記は＃３の関数をＶＢＡに置き換えた考えで、作ってあります。
Ｓｈｅｅｔ１にコマンドボタンを１つ貼り付けます。
そのクリックイベントに、（ボタンをダブルクリックして出てくる
Private Sub CommandButton1_Click()

End Sub
の間に）
Private Sub CommandButton1_Click()
d = Range("A65536").End(xlUp).Row '最下行を求む
j = 2 '結果スタート行
'----
For i = 2 To d
'---ＣＯＵＮＴＩＦの実行
c = WorksheetFunction.CountIf(Range(Cells(2, "A"), Cells(i, "A")), Cells(i, "A"))
If c = 1 Then
Cells(j, "J") = Cells(i, "A")
'---ＳＵＭＩＦの実行
Cells(j, "K") = WorksheetFunction.SumIf(Range(Cells(2, "A"), Cells(d, "A")), Cells(i, "A"), _
Range(Cells(2, "B"), Cells(d, "B")))
j = j + 1
Else
End If
Next i
End Sub
の最初、最後行を除いた中身をを貼り付けます。
編集状態を脱する（鉛筆と定規のアイコンをクリックする）。
これでボタンをクリックすると、結果がＪ，Ｋ列に出ます。
結果のスタート行は２行目からです。上記コードで、この３つを決めているところを変えれば、Ｓｈｅｅｔ１内の好きなところへ表が作れます。
データのスタート行が２行目以外の場合は、上記コード内で
For i = 2 To d
とＣＯＵＮＴＩＦ、ＳＵＭＩＦの式の中で、２になっているところを
いじくってください。
上記コードは、エクセル関数を使って判りやすく、行数を少なくしてあります。

お礼

ありがとうございました。
なんとか上手くいきました。

回答No.5

noname#262398

何故コマンドボタンが必要なのでしょうか。
データの追加をした時に、いちいちボタンクリックしなければならないので、
もしクリックし忘れたら集計データが間違ったままになってしまいます。

データの追加・変更が無いとしても、マクロを記述したら単に実行すれば済むのでボタンは不要です。

C列のような集計は[データ]-[フィルタ]-[フィルタオプションの設定]で、
簡単に抽出できます。
VBAならAdvancedFilterメソッドでループ処理もいりません。
関数なら
C2 =INDEX($A$2:$A$6,SMALL(IF(MATCH($A$2:$A$6,$A$2:$A$6,0)=ROW($A$1:$A$5),ROW($A$1:$A$5)),ROW(A1)))
配列数式なので　Ctrl + Shift + Enter　下へフィルコピー
配列数式が不慣れなら作業列を使ったほうがいいですし、作業列がジャマなら列を非表示に。
D列はSUMIF関数ですね。

とにかく、コマンドボタンにこだわる理由は無いと思います。

お礼

ありがとうございます。
いろいろと勉強になります。

回答No.3

imogasi

＞エクセルでできないでしょうか
エクセルのどういう機能を頭においているのか
ピボット
関数
ＶＢＡ
Ｄｓｕｍ（ちょっと違うが、結果は同じ）
などでできる。
関数でやってみます。
例データ
Ｓｈｅｅｔ１のＡ２：Ｂ９に（（）内の数字はＤ列で式の結果の数字です）
みかん 2 （1）
りんご 2 （2）
みかん 1
いちご 1 （3）
りんご 1
みかん 3
いちご 2
ぶどう 4 （4）
とする。作業列をＤ列として、Ｄ２に
=IF(COUNTIF($A$2:A2,A2)=1,MAX($D$1:D1)+1,"")
と入れてＤ９まで式を複写。
結果は、果物名の初出の行に連番が触れます。
Ｇ２に=INDEX($A$2:$A$100,MATCH(ROW()-1,$D$2:$D$100,0),1)と入れてＧ４まで式を複写。
Ｈ２に=SUMIF($A$2:$A$100,G2,$B$2:$B$100)　といれて、Ｈ４まで
式を複写。
結果
みかん 6
りんご 3
いちご 3
ぶどう 4
です（imogasi方式）
＄１００の部分は最下行数で、データがなくても、余裕をみて多めの行分にしてもよい。
結果をＳｈｅｅｔ２に出すことも少しの変更でできる。Ｓｈｅｅｔ１！をつけるだけ。

補足

回答ありがとうございます。
質問の意味がわかりにくくて申し訳ありません。　　Ｄ列の初出の行に連番を表示させずに
コマンドボタンで１発で結果を表示させたいのです。
わがままで申し訳ありません。

回答No.2

cockerel

ピボットテーブルを使用すれば簡単にできます。
元となる表内のいずれかのセル選択して、データ＞ピボットテーブルレポートを選択します。あとはウィザードに従ってテーブルを作成したら、行のところに品名を、データのところに数量をドラッグすれば完了です。

補足

早々の回答ありがとうございます。
ピボットテーブルを使用しないで、
行うことは無理でしょうか？
コマンドボタンをおせば数量の合計を
表示する。みたいな感じにしたいのですが…。
ややこしくて申し訳ありません。

回答No.1

gontiti

ピポットテーブルを使うとできますよ。

セルも選べます。

メニューから「ピポットテーブル」を選んでいただき
ちょっといじればすぐ理解できるようになると思います。

がんばってください。

お礼

早々の回答ありがとうございます。
マクロで質問のような作業はできないでしょうか？