excel 抽出およびその数のマクロについて

質問

A列　　　　　　　　　　　B列　　　　　　　C列
　　　　　　　　　　(A列の同じ国名を除く) 　 その数
アメリカ　　　　　　　　　アメリカ　　　　　　　6
インド　　　　　　　　　　インド
ブラジル　　　　　　　　　ブラジル
中国　　　　　　　　　　　中国　　　　　　　　　6
中国　　　　　　　　　　　カンボジア
カンボジア　　　　　　　　日本　　　　　　　　　6
日本　　　　　　　　　　　ベトナム
中国　　　　　　　　　　　シンガポール
ベトナム　　　　　　　　　マレーシア
シンガポール　　　　　　　オーストラリア
アメリカ　　　　　　　　　韓国　　　　　　　　　3
マレーシア　　　　　　　　タイ　　　　　　　　　2
日本　　　　　　　　　　　ドイツ
日本
アメリカ
オーストラリア
韓国
アメリカ
日本
中国
日本
日本
タイ
アメリカ
タイ
中国
韓国
韓国
スリランカ
中国
ドイツ
アメリカ

　A列について同じ国名のセルを除いてB列のようにあらわすにはどのようにすれば良いですか。また、同じ国名の数、たとえばこの場合は「アメリカ」は６（C列）になりますが、これをあらわすにはどのような関数を使用すれば良いでしょうか。ご教示のほどお願いいたします。

　上の質問に対して３人の方からご回答をいただきました。（http://okwave.jp/qa/q9068971.html）本当に有り難うございました。感謝しております。

　ただ、このような重複削除、そして国数という同じ作業が１５０ほどあります。いわゆるA、B、C列の３列のまとまりが１５０ほどあるということです。
　A、B、Cでひとまとまり、D、E、Fでひとまとまり、G、H、I、でひとまとまりという感じで、それがA列～PC列くらいまであります（A、D、Gには国名（最高で２５くらい）、B、E、Hには重複削除した国名、C、F、Iには国数です）。
　一つ一つ手作業で行うのは面倒ですので、マクロで行いたいと思いますが、その組み方を出来ればご教示をお願いしたいと思います。どうぞ宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

一回ＢＣ列に式を入れたら、あとはちゃっちゃっとコピーするだけだと書いておきましたが全部がスルーみたいで。

sub macro1()
　dim c as long
　for c = 1 to cells(1, columns.count).end(xltoleft).column step 3

　　columns(c + 1).clearcontents
　　columns(c).copy destination:=cells(1, c + 1)
　　columns(c + 1).removeduplicates columns:=1, header:=xlno

　　columns(c + 2).clearcontents
　　range(cells(1, c + 2), cells(cells(65536, c + 1).end(xlup).row, c + 2)).formular1c1 _
　　　= "=IF(RC[-1]="""","""",IF(COUNTIF(C[-2],RC[-1])>1,COUNTIF(C[-2],RC[-1]),""""))"
　next c
end sub

そういえばご利用のエクセルのバージョンも不明のご相談でしたね。
マクロを使いたいなら特に、ご利用のバージョンとか「正確な」セルの配置とかも正しく詳細に情報提供するように気を付けて下さい。次回以降のご参考に。

お礼

「Ｃ列を適宜コピーして増殖する。」とは、D列以下にもコピーしていくことを意味しているとはまったく分かりませんでした。気分を害して申し訳ありませんでした。
　ところで、標題のマクロをご教示して頂き感謝しております。本当に有り難うございました。
　マクロを教えて頂く場合、WindowsとExcelのバージョンおよびセルの配置など詳細な情報をしめす必要があるというのはごもっともなことです。以後気をつけたいと思います。