エクセルのマクロでどうすればいいか悩んでいます

質問

エクセルのマクロでどうすればいいか悩んでいます　
毎月月初めに年間のデータシートから前月の競馬の成績をまとめて別のファイルに転記していこうと思っています
問題は1月分のデータをどうやって判断ささせるかで　いま考えてるのは
月初めと月終わりに印の代わりとなる物例えば◯とかを入力しておいて
その範囲だけ転記しようと思っているのですが　a～j;列までデータがあるので
range(a10000)
Selection.End(xlUp).Select
でデータの最終行を求めるところまではできてますが
そこからk列を選択する構文はどう書けばいいかわからなくて困っています
わかりにくくすいませんがお願いします

回答No.1

keithin

そもそもデータがどういう配置になってるのかによっても、具体的なマクロの段取りは当然変わってきます。

たとえば
Ａ列に年月日をだらっと漏れなく繰り返し列記、各行に１行ずつレースの結果がずらずらと並んでいる
といった具合に上手にリストを作成してあれば

作成例：
Ａ列にオートフィルタを設置する
先月の１日以上、今月の１日未満で絞り込む
丸ごとコピーして、目的のセルに貼り付けて完成

といった具合で一番簡単に作成できます。
オートフィルタを取り付ける・絞り込む・コピーする・貼り付けるなどの要素要素は、すべて「新しいマクロの記録」で具体的なすぐに使えるサンプルマクロを入手できます。
あとは入手できたマクロの「～日以上」「～日未満」の部分を、具体的にどのように日付をマクロに指示したいのかに応じてちょこっと手直したら完成です。

＃サンプルマクロの一つも書いて欲しいんでしょうけど
　どのブックのなんていう名前のシートのどこ列に何を記入してあって
　どこのブックのどこのシートのどこのセル番地に貼り付けたいのか
そういったあなたのエクセルの具体的に目に見える姿の情報が何一つ無いんで、サンプルの書きようもありません。
あなたもゼロから説明するのはメンドクサイでしょうから、その代わりに上述したように「新しいマクロの記録」を使い、ご自分でお手本を入手してください。

補足

マクロの記録をしてみたところ
Sub つき()
'
' つき Macro
'

'
Selection.AutoFilter
ActiveSheet.Range("$A$2:$P$1048575").AutoFilter Field:=1, Criteria1:= _
xlFilterLastMonth, Operator:=xlFilterDynamic
Range("A1:P1048575").Select
Range("A3").Activate
Selection.Copy
End Sub
と記録されました後は貼り付け先でいいですか