エクセルで別のブックに入っているデータを今日の日付が入っている行にコピーする、あるいはその行から貼り付けるマクロを教えてください。
具体的には例えば、
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
本日の日付とマッチした列の値を抽出
Excel(エクセル)
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
-
4
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
5
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
VBA 今日の行にあるセル コピー 別シートへ
Excel(エクセル)
-
9
excel vbaで日付一致の行にデータ転記
Excel(エクセル)
-
10
VBA 日付一致で転記
Visual Basic(VBA)
-
11
指定したセルと同じ日付の入ったセルを選択するVBA
その他(Microsoft Office)
-
12
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
13
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
14
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
今日の日付のデータをすばやく抽出するには・・
Excel(エクセル)
-
17
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
TODAY()で設定したセルの日付が変わったらマクロを実施させたい
Visual Basic(VBA)
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLサーバで和暦から西暦に変換...
-
エクセル 日付による並べ替え...
-
Accessの数値から時間に変換す...
-
SQLで部分的にGROUP BYしたいとき
-
テーブルの主キーをdate型...
-
エクセルのヘッダーを変数で指...
-
今日の日付が入った行のデータ...
-
14桁の日付(YYYYMMDDHHMMSS)を...
-
SQLite3のtext→date変換について
-
Excelの並び替え(先頭の文字以...
-
指定した年月までのデータを取...
-
日数算出SQL
-
oracle 文字列 01:45 を時間に...
-
一秒ごとに更新をかける方法
-
日付の最大値レコードを取得す...
-
SELECT結果の縦と横の入れ替え
-
WHERE句にて「30日前から今日ま...
-
wordの差し込み印刷での日付表示
-
日付型なら変数の先頭になん...
-
23時59分59秒までのデータを抽...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessの数値から時間に変換す...
-
今日の日付が入った行のデータ...
-
エクセル 日付による並べ替え...
-
SQLサーバで和暦から西暦に変換...
-
SQLで部分的にGROUP BYしたいとき
-
14桁の日付(YYYYMMDDHHMMSS)を...
-
ExcelのSUMPRODUCTで日付の範囲...
-
テーブルの主キーをdate型...
-
Excelグラフの日付軸の日付がず...
-
oracle 文字列 01:45 を時間に...
-
23時59分59秒までのデータを抽...
-
SQL スクリプトのご相談
-
WHERE句にて「30日前から今日ま...
-
指定した年月までのデータを取...
-
DB2のSQL(日付)について
-
yyyy/M/dをyyyy/MM/ddに変換
-
重複するIDのデータを1行にま...
-
日付型なら変数の先頭になん...
-
日付書式に変換でこまっています!
-
Excelの並び替え(先頭の文字以...
おすすめ情報