質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

3069閲覧

最終行から3行目までをコピー→別のブックに貼り付けをしたい。

yuki-chan

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/05/12 03:00

編集2021/05/12 03:02

最終行から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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

自己解決

※Range("C3:C" & LstRow1)で解決できました。

投稿2021/05/12 04:11

yuki-chan

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問