- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBAの文字検索、コピーについて質問です。）
VBA文字検索・コピーの方法とは？
このQ&Aのポイント
- VBAを使用して別のブックの特定の文字を検索し、貼り付けを行う方法について質問があります。
- ブック1の指定したセルの値を検索し、その値が含まれる行をブック2に貼り付ける作業を行いたいです。
- 貼り付け時に値のみを貼り付ける方法についても教えてください。
- loveless-05410
- お礼率100% (51/51)
- その他MS Office製品
- 回答数1
- ありがとう数4
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
'二つのブックを開いている前提で Sub Macro1() BOOK_NAME1 = "Book1.xls" 'ブック名はここを変えて下さい。 BOOK_NAME2 = "Book2.xls" 'ブック名はここを変えて下さい。 Windows(BOOK_NAME1).Activate GYOU = Cells(Rows.Count, 1).End(xlUp).Row RETU = Range("B1") + 1 Range(Cells(2, 2), Cells(GYOU, 2)).Copy Windows(BOOK_NAME2).Activate Cells(2, RETU).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Windows(BOOK_NAME1).Activate Range(Cells(2, 2), Cells(GYOU, 2)).EntireColumn.Delete End Sub
お礼
遅くなり申し訳ありません！ ありがとうございました！