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

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

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

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

Q&A

解決済

2回答

7465閲覧

Excel VBAでの別のシート内容コピー

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

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

0グッド

0クリップ

投稿2019/05/22 00:52

前提・実現したいこと

Excel2016 VBAで別のブックのシートの内容をコピーしたいと思っています。
別のブックはダイアログボックスを開いて選択できるようにし、
コピー元のシートはコピー元のブックの一番右にあるシートを自動で選択、コピー
出来る様にしようと考えています。

発生している問題・エラーメッセージ

コピー先のブックでマクロを起動すると、コピーは成功するのですが、シートの選択がうまくいきません。
一番右のシートという指定をしていると思ったのですが、コピー先のブックのシート数とコピー元のブックのシート数が一致しているシートしかコピーできません。(わかりずらくてすみません)
bookA(コピー先)
(sheet1)(sheet2)
bookB(コピー元)
(sheet1')(sheet2')(sheet3')
BからAにコピーしようとしたとき、sheet3'をsheet2にコピーしたいのですが、
sheet2にはsheet2'がコピーされてしまいます。

該当のソースコード

Excel

1Sub () 2 '変数の指定 3 Dim tarwb As Workbook 4 Dim M As Long 5 Set tarwb = Workbooks("test_masterbook.xlsm") 6 '開くファイルを操作者に選択させる 7 Application.Dialogs(xlDialogFindFile).Show 8 '開いたファイルの一番右のシートのセルをコピー 9 ActiveWorkbook.Sheets(Sheets.Count).Range("A2:F50").Copy 10 '開いたファイルを閉じる 11 Application.DisplayAlerts = False 12 ActiveWorkbook.Close 13 Application.DisplayAlerts = True 14 '最終行の取得&コピペ 15 M = tarwb.Worksheets(Worksheets.Count).Cells(Rows.Count, 1).End(xlUp).Row 16 tarwb.ActiveSheet.Range("A" & M).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, operation:=multiply 17 18End Sub

試したこと

補足情報(FW/ツールのバージョンなど)

以上です。説明等分かりずらくてすみません。
宜しくお願い致します。

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

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

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

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

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

guest

回答2

0

ベストアンサー

貼り付け先がアクティブシートになっているのは確かに間違いですが、
sheet3' ではなく sheet2' がコピーされるということにはならないですね。

どちらにしても、読みやすいコードとは言えないので、
私ならこうするというコード例を出しておきます。

vba

1Public Sub Test() 2 Dim tarWs As Worksheet '貼り付け先シート 3 'マクロのあるブックの右端のシート 4 Set tarWs = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) 5 6 Dim tarCell As Range '貼り付け先セル 7 '貼り付け先シートの最終セルの次行セル 8 Set tarCell = tarWs.Cells(Rows.Count, 1).End(xlUp).Offset(1) 9 10 '開くファイルを操作者に選択させる 11 Application.Dialogs(xlDialogFindFile).Show 12 With ActiveWorkbook 13 '開いたファイルの右端のシートのセル範囲を、貼り付け先セル(tarCell)にコピー 14 .Sheets(.Sheets.Count).Range("A1:C5").Copy Destination:=tarCell 15 16 '開いたファイルを閉じる 17 .Close 18 End With 19 20End Sub 21

投稿2019/05/22 03:07

hatena19

総合スコア33620

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

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

退会済みユーザー

退会済みユーザー

2019/05/22 04:04 編集

思い通りに起動しました。 コード例まで書いて頂きありがとうございました。
torisan

2019/05/22 04:32

原因はなんだったのでしょうか?
guest

0

tarwb.ActiveSheet.Range("A" & M).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, operation:=multiply

貼り付け先がアクティブシートになっています。

投稿2019/05/22 01:18

torisan

総合スコア678

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

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問