![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
【やりたい事】
下記、画像1のA2:C4 を、画像2の赤枠に転記する マクロを作りたいです
ご存じの方、宜しくお願いします
【条件】
・画像1と画像2の表のサイズは全く同じ
・画像1と画像2の表にあるデータの数は常に変化
・イメージは、画像1のデータを全て、画像2のデータの下にコピペしたいです
・貼付方法は出来れば、値 貼付です。出来なければ普通のコピペにてOKです
・転記先のファイル名は、変更になる事が多い為、以下のマクロコードのように
ファイル名・シート名を、転記元ブックのA3とA5から取得したいです。
⇒転記元のブックに、ファイル名・シート名が書いてあるという意味です
【転記元ファイル。画像1】
C:\Users\2020\OneDrive\マクロ\転記元.xlsx
【転記先ファイル。雅俗2】
C:\Users\2020\OneDrive\マクロ\転記先\転記先.xlsx
【参考マクロ:1行だけを別ブックへの最終行へ転記するマクロ】
Sub 別ブックへ転記ファイル名変更()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row2 As Long
Set ws1 = Worksheets("転記元")
Set wb2 = Workbooks.Open(ws1.Range("A3").Value)
Set ws2 = wb2.Worksheets(ws1.Range("A5").Value)
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
row2 = maxrow2 + 1
ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(1, 1).Resize(1, 3).Value
End Sub
![「【マクロ】その時、その時で変わる範囲を、」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/5/165419_663ebc33249d2/M.gif)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>●以下コードがデバック(黄色)となります
>教えて頂けるて頂けると幸いです
>Set ws3 = Worksheets(ws1.Range("A5").Value)
これは、転送元のシート名で、A5からA6に変更になったので
Set ws3 = Worksheets(ws1.Range("A6").Value)
になります。
No.2
- 回答日時:
以下のようにしてください。
転記元のシート名もA5の内容を使用しています。
(転記元のシート名と転記先のシート名は同じになります)
Sub 別ブックへ転記ファイル名変更()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim maxrow2 As Long
Dim maxrow3 As Long
Dim row3_count As Long
Dim row2 As Long
Set ws1 = Worksheets("転記元")
Set ws3 = Worksheets(ws1.Range("A5").Value)
maxrow3 = ws3.Cells(Rows.Count, "A").End(xlUp).Row
If maxrow3 < 2 Then Exit Sub
row3_count = maxrow3 - 1
Set wb2 = Workbooks.Open(ws1.Range("A3").Value)
Set ws2 = wb2.Worksheets(ws1.Range("A5").Value)
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
row2 = maxrow2 + 1
ws2.Cells(row2, 1).Resize(row3_count, 3).Value = ws3.Cells(2, 1).Resize(row3_count, 3).Value
wb2.Save
wb2.Close
MsgBox ("完了")
End Sub
ご教授ありがとうございます
●以下コードがデバック(黄色)となります
教えて頂けるて頂けると幸いです
Set ws3 = Worksheets(ws1.Range("A5").Value)
●以下を自分がトンチンカンでしたので、修正いたします
ファイル名・シート名を、転記元ブックのA3とA5から取得したいです。
⇒ファイル名・シート名を、転記元ブックのA5とA6から取得したいです。
転記元ブック・転記元シート A5入力文字列⇒ 転記先
転記元ブック・転記元シート A6入力文字列⇒ 転記先シート
参考
転記元情報
C:\Users\2020\OneDrive\マクロ\転記元.xlsm
シート名 転記元
転記先情報
C:\Users\2020\OneDrive\マクロ\転記先\転記先.xlsx
シート名 転記先シート
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
【マクロ】読取専用のファイルの名前を変更して、別フォルダへ名前を付けて保存するためには
Excel(エクセル)
-
Excelで、決まった行を繰り返しコピーする
Excel(エクセル)
-
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
-
4
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
5
文字2桁、3桁交じりの文字列を並び替えるマクロ
Excel(エクセル)
-
6
シフト表をエクセルで作るときに 例えばAさんの勤務が月、火、水で祝日は休み Bさんが木と金と出勤で
Excel(エクセル)
-
7
ある表にフィルターをかけて出てきた記号の個数を知りたいのですが、簡単な関数はないでしょうか?
Excel(エクセル)
-
8
データチェックを行うエクセルマクロをおしえてほしい
Excel(エクセル)
-
9
Excel 1の位の数字で処理を分岐させたい
Excel(エクセル)
-
10
【ExcelVBA】最終行の取得で困ってます
Excel(エクセル)
-
11
Excelの数式の効率化について
Excel(エクセル)
-
12
エクセルの条件付き書式について教えてください
Excel(エクセル)
-
13
ExcelVBAマクロで実行した時の疑問
Visual Basic(VBA)
-
14
エクセルの関数について教えてください。(データベース、検索)
Excel(エクセル)
-
15
エクセル vbaについて教えてください。
Excel(エクセル)
-
16
Excelについて教えてください
Excel(エクセル)
-
17
VBAについての質問です
Excel(エクセル)
-
18
エクセル②
Excel(エクセル)
-
19
マクロの書き方を教えて下さい
その他(Microsoft Office)
-
20
再質問です。マクロの修正箇所を教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
Excelマクロ ファイル名が変わ...
-
Excelファイルがxslからxslmに??
-
vbsで、フォルダ内にあるcsvフ...
-
【マクロ】マクロが割当てされ...
-
【VBA】複数ブックから特定のシ...
-
マクロの有効無効
-
マクロのコピー&ペーストの繰...
-
エクセルマクロにてパワーポイ...
-
別のパソコンでエクセルのマク...
-
コピーしたファイルのマクロを...
-
エクセルファイルを開くと、フ...
-
サクラエディタのマクロ設定を...
-
エクセルでマクロを別のPCで利...
-
Powerpoint 2003 でのVBA UserF...
-
エクセル(VBA)にて、CS...
-
excelが別プロセスで起動してし...
-
エクセルマクロ実行中に別ファ...
-
エクセルでファイルを表示した...
-
UWSCで開いているのExcelのマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
別のパソコンでエクセルのマク...
-
VBAを一度起動するとずっと出て...
-
VBA マクロ実行時エラー’1004Ra...
-
コピーしたファイルのマクロを...
-
Excelが勝手にシート移動してし...
-
昨日まで動いていたエクセルの...
-
EXCEL マクロ クリップボードク...
-
アクセスでファイルを開いたと...
-
【マクロ】エラーが発生⇒実行時...
-
マクロを消すマクロは不可能?
-
excelファイルに使われているVB...
-
エクセルマクロを有効にしない...
-
エクセル2013vbaで、見えない名...
-
エクセルファイルを自身のファ...
-
Excel2010 PERSONAL.xlsbの挙動...
-
excelが別プロセスで起動してし...
-
外部データを取り込むマクロ
-
エクセルマクロ実行中に別ファ...
-
Excelからnotesメールを自動で...
おすすめ情報