エクセルマクロについて

質問

お世話になります。
エクセルのマクロについて不慣れなためご質問させてください。
下のような表がありこれを集計して新しく表にしなおしたいと思っています。

1列目　2列目
A　　　　XXXX
B　　　　XXXX
C　　　　XXXX
A　　　　XXXX
A　　　　XXXX
B　　　　XXXX

1列目の同じ文字列を数えて表を作りなおしたいのです。

1列目　　2列目
A　　　　　３　　　←数えた回数を入れたいと思います
B　　　　　２
C　　　　　１

初めの表はマクロで作成出来たのですが2つめの表を作成する
エクセルマクロを作成したいと思っています。
サンプルを頂けると助かります。

回答No.1

keithin · ベストアンサー

各列一番上の１行目のセル（Ａ１セル）には列のタイトルが記入してあって，実際のデータは２行目以下（Ａ２以下）に記入されているとします。
ぐるぐる回して一個ずつ数えるとかの効率の悪いことはしないでみます。

sub macro1()
　worksheets("Sheet1").range("A:A").advancedfilter _
　　action:=xlfiltercopy, _
　　copytorange:=worksheets("Sheet2").range("A1"), _
　　unique:=true

　with worksheets("Sheet2")
　　.range("B1") = "個数"
　　with .range("B2:B" & .range("A65536").end(xlup).row)
　　　.formula = "=COUNTIF(Sheet1!A:A,A2)"
　　　.value = .value
　　end with
　end with
end sub

お礼

ありがとうございます。
参考書とつきあわせながら確認させて頂きました。
お礼が遅くなり申し訳ありません。

ご回答ありがとうございました。

回答No.3

imogasi

＞サンプルを頂けると助かります。
丸投げするのか。課題は簡単なことで自分で考えること。
（１）関数でも出来る
（２）ピボット操作でも出来る
ーー
（１）関数類似の方法でＶＢＡでもＣＯＵＮＴＩＦ関数が使えるからそれを使う。
Ａ，Ｂ、Ｃ，・・・の１セットが何処かの列にほしいが、これをＶＢＡで作るのも１つに課題だ。
（２）少なければＡ，Ｂ、Ｃ・・ごとの配列を持って、該当の配列に＋１し、足しこんで行く
（３）Ａ列でソートして、Ａの続く行の間は＋１してゆき、変わったときに別シート（や別セル範囲）にＡなどと件数を書き出す。
おわりの行まで繰返す（ソート法）。
（３）ピボットもＶＢＡで実行できる
（４）アクセスならもっと簡単（ただし習得には時間がかかる）
＞エクセルのマクロについて不慣れなためご
これはＶＢＡコード云々の問題だけではない
こんな課題は関数でも出来るのに、ＶＢＡに首を突っ込んだから、ＶＢＡの勉強ですることに関心があるのだろうが、もっと別の面で勉強することがありそうに思う。それはロジック（データを扱う構想というべきか）というもので、どういう考えで処理していくかを組み立てる力だ。
わかりやすさ（略等しい＝コード行数も少ない）と、処理時間に無駄が無いか（無駄な繰り返しをしてないか）どうかが良いかどうかの決め手。
特に前後関係・連続関係を処理するロジックは上記（３）が有効。
これは割合、使用する言語に左右されない場合が多い。これの習得は経験を積むしかない。常時これに興味を持って居ないと、課題をやろうとするときに間に合わない。

お礼

ご回答ありがとうございます。
いつも関数で処理したりしてたのですが今回何とかVBAって頭が一杯でした。
VBAだけなぜか苦手意識があって・・
今後の為に常に興味をもって頑張ります。

回答No.2

FEX2053

そう言う集計はマクロなんぞ使わなくても、ピボットテーブルで一発で可能なんですけど・・・？
http://hamachan.info/excel/piboto.html

お礼

確かにピボットテーブルで可能ですよね。
マクロで実行することしか頭になかったもので、すみません。

ご回答ありがとうございます。