- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：行コピーして、今日の日付の行に貼り付けるマクロ）
Excelマクロで行をコピーし、指定の日付に貼り付ける方法
このQ&Aのポイント
- Excelマクロを使って、行をコピーし特定の日付に貼り付ける方法を教えてください。
- 具体的には、セルA2に「=TODAY()」が入っており、この日付を基準にして他の行に貼り付けたいです。
- マクロの記録を使って行のコピーと値の貼り付けはできますが、特定の日付を見つけて貼り付ける方法がわかりません。お助けください。
- jim-shock
- お礼率84% (16/19)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
貼り付けるときに，参照している数式を数値に変えていますが，この辺は適宜，自分の好きなように変更してください。 なお実際に探しているのは今日の日付ではなくて，A2にかかれている内容です。=TODAY()と書かれているのであれれば同じことですけどね。 Sub aaa() nr = Range("A3").End(xlDown).ROW Set myRange = Range("A3:A" & nr) keyWord = Range("A2").Value Set myObj = myRange.Find(keyWord, LookAt:=xlWhole) If myObj Is Nothing Then MsgBox keyWord & "が見つかりません" Else Range("2:2").Copy myObj.PasteSpecial xlPasteAll myObj.PasteSpecial xlPasteValues Application.CutCopyMode = False End If End Sub
お礼
早速の回答ありがとうございます。 試してみたところ、思い通りの動きになりました！ とても助かります！エラー時のメッセージまで用意していただいて、嬉しい限りです・・・！ こちらの構文（？）からいろいろ応用できるように頑張って理解してみようと思います！ ありがとうございました。