![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
初めまして、エクセル初心者です。
以下のマクロを、自動記録でやろうとすると、うまくいきません。
類似質問を検索してみたものの、初心者のためアレンジがきかず・・・
他力本願な質問になり、大変申し訳ないのですが、
どなたかお手すきのときに教えていただけると、
とてもうれしいです。
【やりたいこと】
(1)Book1のファイルで、
オートフィルタでデータを抽出後、
抽出したデータのBからDのセルをコピーし、
別ファイル、Book2のファイルの、
*BからDに「値」で貼り付けたい。
*Book2のBからDは、
上段までデータが入力してある状態で、
そのすぐ下段(空白)のBからDへ貼り付けたい。
(2)Book1(コピー元ファイル)のEのセルに
本日の日付を入れたい。
(3)Book2(コピー先ファイル)のFにも
本日の日付を入れたい。
(4)マクロ終了後、カーソルは、Book2(コピー先のファイル)
のGのセルに置いておきたい。
【補足】
抽出されるデータは一行のみです。
日中、上記の作業を手作業で繰り返していると、
頭がむず痒くなってくるもので、
何か良い方法はないものかと質問させていただきました。
以上、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
>類似質問を検索してみたものの、初心者のためアレンジがきかず・・・
>他力本願な質問になり、
>日中、上記の作業を手作業で繰り返していると、
>頭がむず痒くなってくるもので、
こういう書き込みはしない方がよいですよ
よく考えてください、勉強もしない、やる気も無い人に
赤の他人がアドバイスすると思いますか?
質問も中途半端
>以下のマクロを、自動記録でやろうとすると、うまくいきません。
何処がうまく行かないの?
やりたい事を書くのはよいが、マクロの質問なら
Excelのバージョン、コピー元、先のシート名
抽出もマクロでやるなら
どの列どのようなデータから何を抽出するのか
表の構成もあると回答がしやすい
Sub test()
Dim Rng As Range
With Workbooks("book1").Worksheets("sheet1")
.Range("a1").AutoFilter Field:=1, Criteria1:="3"
Set Rng = .Range("b2", .Range("b65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
.Cells(Rng.Row, 5).Value = Date
Workbooks("book2").Worksheets("sheet2").Range("b65536").End(xlUp).Offset(1, 4).Value = Date
Rng.Resize(1, 3).Copy Workbooks("book2").Worksheets("sheet2").Range("b65536").End(xlUp).Offset(1)
End With
Workbooks("book2").Worksheets("sheet2").Activate
Range("b65536").End(xlUp).Offset(, 5).Select
End Sub
以上、示されていない所は適当に決めたので
このままでは、希望の結果はでないと思います
自分の環境に合わせてアレンジしてください
これを機に勉強されては如何かと思います
厳しいことを書きましたが、社会人として節度のある書き込みをすれば
識者の有用な回答が複数得られると思います
hige_082様、はじめまして、こんばんは。
まずは、お詫びをさせてください。
ご指摘の件はごもっともですね、すみませんでした。
にもかかわらず、ご親切にマクロを教えてくださり、
ありがとうございました。
さっそく試してみましたら、希望通りの結果となり、
感激いたしました!
ただ、せっかく教えていただいたこのマクロ、
今回はドンピシャで活用させていただきますが、
今後似たような作業をするさいに、
自分でアレンジできないのは、もったいないなぁ、と思いました。
hige_082様のアドバイスどおり、これを機に勉強をしてみます。
また、質問の仕方などへのアドバイスも、
なるほどなぁと、大変勉強になりました。
どうもありがとうございます。
今後ともぜひ、よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excel2007で、太字にした行のみ...
-
エクセル VBA 小数点を含む数字...
-
Excelでセル内の数式は残し値だ...
-
「マクロ」の足し算の式を教え...
-
Excel 2013 文字列内の文字重複...
-
エクセルで全ての数字間にカン...
-
VBA コピーを有効行までループ...
-
エクセルで、行ごとの並び替え...
-
Excel(VBA)データ入力に応じて...
-
wordのvbaでハイパーリンク設定...
-
Excelで連続印刷をするマクロ
-
エクセルの複数シートの保護を...
-
Accessのスプレッドシートエク...
-
複数のシートの同じセルに入力...
-
エクセルでファイルを開いたと...
-
エクセルのシート名をリスト化...
-
Excelのシートを、まとめて表示...
-
エクセルでファイル保存時に複...
-
別シートの最終行に貼り付けす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excel2007で、太字にした行のみ...
-
Excelでセル内の数式は残し値だ...
-
「マクロ」の足し算の式を教え...
-
Excelで連続印刷をするマクロ
-
エクセル VBA 小数点を含む数字...
-
Excel(VBA)データ入力に応じて...
-
値貼り付けをしても書式も貼り...
-
エクセルで全ての数字間にカン...
-
Excel にて非表示行を探すワー...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
-
並べ替えのマクロで対象行の範...
-
エクセルで、行ごとの並び替え...
-
Excelで周期的に列を削除する方法
-
行の入れ替えってどうするの?
-
整数行を残し小数点の行を削除...
-
Excelで更新日を自動的に入れたい
-
エクセル2003でマクロをおこな...
-
yyyy/mm/ddの日付に一括変換す...
おすすめ情報