エクセルで別のブックに入っているデータを今日の日付が入っている行にコピーする、あるいはその行から貼り付けるマクロを教えてください。
具体的には例えば、
1)日付が順番にBook1 A列に縦に並んでいます。
Book 2にあるA1:D1のデータをBook1のA列にある本日の日付の横、例えばA10にあるとすればB10:E10にコピー・貼り付けしたい。
2)同様に日付が順番にA列に縦に並んでいて、本日の日付がA10にあり、B10:E10のデータをそのひとつ下のB11:E11にコピー・貼り付けしたい。
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
2)に回答します。
Set FIND_CELL = Range("A:A").Find(Date)
GYO = FIND_CELL.Row
Range("B" & GYO & ":E" & GYO).Copy
Cells(GYO + 1, 2).PasteSpecial
ありがとうございます。できました。
1)もいただいた回答の応用で組んでみたらできるようになりました。
毎日この単純作業で時間をとられていたので、大変助かります。
No.2
- 回答日時:
VBA勉強中の者です。
1)だけですが、練習と思ってなんとか作ってみました。
エラーハンドリングなどはしていないので、もしうまく動かなかったらすみません。
"Book2.xls"や"Sheet1"などのブック名、シート名が実際には別の名前の場合は同様に実態に即して書き換えてください。
Sub CopyToday()
Dim Gyou As Integer
Gyou = Range("Sheet1!A:A").Find(Date).Row
Workbooks.Open "Book2.xls"
Workbooks("Book2.xls").Activate
Range("Sheet1!A1:D1").Copy
Workbooks("Book1.xls").Activate
Range("Sheet1!B" & Gyou & ":E" & Gyou).PasteSpecial
End Sub
ありがとうございます。
試してみたところ、以下のエラーメッセージが出てしまいました。
「オブジェクト変数またはwithブロック変数が設定されていません」
No.1の方の回答でうまくいったのですが、こちらで出たエラーの原因は何でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
本日の日付とマッチした列の値を抽出
Excel(エクセル)
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
-
4
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
5
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
8
指定したセルと同じ日付の入ったセルを選択するVBA
その他(Microsoft Office)
-
9
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
12
VBA 今日の行にあるセル コピー 別シートへ
Excel(エクセル)
-
13
excel vbaで日付一致の行にデータ転記
Excel(エクセル)
-
14
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
17
VBA 日付一致で転記
Visual Basic(VBA)
-
18
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
19
今日の日付のデータをすばやく抽出するには・・
Excel(エクセル)
-
20
エクセルで昨日までの日付データ行を非表示するVBAについて!
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLサーバで和暦から西暦に変換...
-
エクセル 日付による並べ替え...
-
Excelの並び替え(先頭の文字以...
-
今日の日付が入った行のデータ...
-
ExcelのSUMPRODUCTで日付の範囲...
-
SQL/Loaderでの年月日時分秒の...
-
Oracle10gのsql分についての質...
-
指定した年月までのデータを取...
-
SELECT結果の縦と横の入れ替え
-
oracle 文字列 01:45 を時間に...
-
特定の日付が第何週目にあるか...
-
SQLで部分的にGROUP BYしたいとき
-
WHERE句にて「30日前から今日ま...
-
23時59分59秒までのデータを抽...
-
バイナリファイルからの文字列抽出
-
エクセル上の8桁の数字を一括し...
-
Accessの数値から時間に変換す...
-
日数算出SQL
-
エクセルと日付の関数と並び替え
-
最新日付のデータを取得したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessの数値から時間に変換す...
-
今日の日付が入った行のデータ...
-
SQLで部分的にGROUP BYしたいとき
-
SQLサーバで和暦から西暦に変換...
-
14桁の日付(YYYYMMDDHHMMSS)を...
-
エクセル 日付による並べ替え...
-
テーブルの主キーをdate型...
-
重複するIDのデータを1行にま...
-
oracle 文字列 01:45 を時間に...
-
日付型なら変数の先頭になん...
-
指定した年月までのデータを取...
-
Excelグラフの日付軸の日付がず...
-
日付書式に変換でこまっています!
-
エクセルVBA 今日の日付行...
-
wordの差し込み印刷での日付表示
-
日付の切り出し方法について
-
yyyy/M/dをyyyy/MM/ddに変換
-
SQL ブレーク処理について
-
23時59分59秒までのデータを抽...
-
WHERE句にて「30日前から今日ま...
おすすめ情報