No.1ベストアンサー
- 回答日時:
各列一番上の1行目のセル(A1セル)には列のタイトルが記入してあって,実際のデータは2行目以下(A2以下)に記入されているとします。
ぐるぐる回して一個ずつ数えるとかの効率の悪いことはしないでみます。
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.2
- 回答日時:
No.3
- 回答日時:
>サンプルを頂けると助かります。
丸投げするのか。課題は簡単なことで自分で考えること。
(1)関数でも出来る
(2)ピボット操作でも出来る
ーー
(1)関数類似の方法でVBAでもCOUNTIF関数が使えるからそれを使う。
A,B、C,・・・の1セットが何処かの列にほしいが、これをVBAで作るのも1つに課題だ。
(2)少なければA,B、C・・ごとの配列を持って、該当の配列に+1し、足しこんで行く
(3)A列でソートして、Aの続く行の間は+1してゆき、変わったときに別シート(や別セル範囲)にAなどと件数を書き出す。
おわりの行まで繰返す(ソート法)。
(3)ピボットもVBAで実行できる
(4)アクセスならもっと簡単(ただし習得には時間がかかる)
>エクセルのマクロについて不慣れなためご
これはVBAコード云々の問題だけではない
こんな課題は関数でも出来るのに、VBAに首を突っ込んだから、VBAの勉強ですることに関心があるのだろうが、もっと別の面で勉強することがありそうに思う。それはロジック(データを扱う構想というべきか)というもので、どういう考えで処理していくかを組み立てる力だ。
わかりやすさ(略等しい=コード行数も少ない)と、処理時間に無駄が無いか(無駄な繰り返しをしてないか)どうかが良いかどうかの決め手。
特に前後関係・連続関係を処理するロジックは上記(3)が有効。
これは割合、使用する言語に左右されない場合が多い。これの習得は経験を積むしかない。常時これに興味を持って居ないと、課題をやろうとするときに間に合わない。
ご回答ありがとうございます。
いつも関数で処理したりしてたのですが今回何とかVBAって頭が一杯でした。
VBAだけなぜか苦手意識があって・・
今後の為に常に興味をもって頑張ります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Visual Basic(VBA) VBA。壁の間隔Xミリの中に、5種類の異なる巾の板を敷き詰め、X以下でXに近い板の組み合わせを算出 6 2023/04/23 21:33
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) Activesheet.Pasteで困っています 1 2023/01/22 07:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでセル内の数式は残し値だ...
-
条件に応じて特定の行を非表示...
-
Excelで連続印刷をするマクロ
-
wordのvbaでハイパーリンク設定...
-
Excel2007で、太字にした行のみ...
-
100行のセルの高さを一括で調整...
-
Excel2007 セルを右方向に削除...
-
EXCEL マクロで「キーワード入...
-
エクセルで全ての数字間にカン...
-
Excel にて非表示行を探すワー...
-
値貼り付けをしても書式も貼り...
-
エクセル2000でこんなマク...
-
並べ替えのマクロで対象行の範...
-
エクセルで、行ごとの並び替え...
-
VBA コピーを有効行までループ...
-
yyyy/mm/ddの日付に一括変換す...
-
エクセルで色のついたセルを数...
-
エクセルで同じ行中にある先頭...
-
Excelで同じシートのコピーを一...
-
EXCEL:同じセルへどんどん足し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
(Excel2003)すぐ左の最後の行...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
エクセルで、行ごとの並び替え...
-
エクセル2003でマクロをおこな...
-
excel ある部分だけをコピペし...
-
行の入れ替えってどうするの?
-
Excelで周期的に列を削除する方法
-
整数行を残し小数点の行を削除...
-
EXCEL マクロで「キーワード入...
-
VBA コピーを有効行までループ...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
おすすめ情報