最終行から3行目までをコピー→別のブックに貼り付けをしたい。
初心者です。
首題の事をしたいです。
ネットで調べながら下記コードをつくったのですが、上手くいかない部分がある為※について教えてください。
※1
無くても動くのですが、この場合必要無しの認識でいいんでしょうか。
※2
Range("F3:G" & LstRow1)だと問題無く動くのですが、本当はF列だけコピー→貼り付けをしたいんです。
その場合、Range("F3" & LstRow1)だと思ったのですが、何故かコピー貼り付けしてくれません。
エラーにはなりません。End Subまで行ってはくれます。
("ブック2.xlsm")の"C2"に文字が入っていたとして※3までこれで実行するとなぜか空欄になります。
もちろん"ブック1.csv"のF3:Gには文字は全部入っています。
Range(C3:LstRow1)だと構文エラーでした。。
基本的な何かが間違っているのでしょうか。。。。
初歩的な問題ですが、ご教示いただければ幸いです。
Sub 作製() '変数の宣言 Dim LstRow1 As Long ' 「ブック2」を開く Workbooks.Open Filename:="ブック2.xlsm" ' 「ブック1」を開く Workbooks.Open Filename:="ブック1.csv" '最終行の取得(コピー側。1は1番目の行を指定している) LstRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'タイトル行(2行)を除き、コピー Worksheets("Sheet1").Range("A3:B" & LstRow1).Copy '「ブック2.xlsm・Sheet2」のA2へ貼り付け Workbooks("ブック2.xlsm").Sheets("Sheet2").Range("A2").PasteSpecia lPaste:=xlPasteValues Windows("ブック2.xlsm").Activate '※1 Worksheets("ブック1.csv").Range("F3:G" & LstRow1).Copy '※2 Workbooks("ブック2.xlsm").Sheets("Sheet2").Range("C2").PasteSpecial Paste:=xlPasteValues '※3 End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。