ブック(1)のシート(1)にある複数の離れたセル(A1,B2,C3,D4:F4)をコピーし、別ブックのシート(1)のセル(E1,F2,G3,B4:F4)へリンク貼り付けを実行するためのマクロを教えてください。
なお、ブック(1)とブック(2)は同一階層に置いてあります。
このブック(1)とブック(2)の表のフォーマットが違っており、ブック(1)のセルA1をコピーして ブック(2)のセルE1へ貼り付けし、
また同様にブック(1)のセルB2をコピーして ブック(2)のセルF2へ貼り付けをしていきます。
(A1→E1、B2→F2、C3→G3、D4:F4→B4:F4 へ貼り付ける)
この作業をマクロを使って自動実行させたいと思っています。
御手数お掛け致しますが、何卒よろしくお願いいたします。
No.2
- 回答日時:
D4:F4
と
B4:F4
の形(セル数)が違っているのでコピーできないと思います。
どちらかが間違っているのでしょうか?
形が同じなら、Offsetしてやれば良いとおもいます。
この回答への補足
ご指摘ありがとうございます。
記載間違いで、正しくは「D4:F4 → B4:D4」となります。
大変失礼いたしました。
よろしければ、offsetの記述例を教えて頂けると幸いでございます。
御手数お掛け致しますが、何卒よろしくお願いいたします。
No.3
- 回答日時:
相対的なセルを参照する(Offsetプロパティ)
http://www.moug.net/tech/exvba/0050091.htm
上記ページを参考にしてください。
上手くいかない場合、書かれたコードを提示してください。
エラーがでるなら、エラーコードと内容も合わせて教えてください。
A1,B2,C3 と E1,F2,G3
D4:F4 と B4:D4
ではOffset量が違っているので注意してください。
# 先に回答されているhige_082さんの提案は無視ですか?
早々のご回答をありがとうございました。
早速、参考にさせていただき試してみますね。
また質問等をさせていただくこともあるかと思いますが、宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
その後の補足が無いということは、上手くいっているということでしょうか?
同一ブック内でリンク貼り付けを「マクロの記録」して得られたコードを編集してみました。
Sub testリンク貼り付け1()
Dim rc As Range
Dim rp As Range
Dim i As Long
Set rc = Sheets("Sheet1").Range("A1, B2, C3, D4:F4")
Set rp = Sheets("Sheet2").Range("E1, F2, G3, B4:D4")
Sheets(rp.Parent.Name).Select
For i = 1 To rc.Areas.Count
rc.Areas(i).Copy
rp.Areas(i).Select
ActiveSheet.Paste link:=True
Next i
Application.CutCopyMode = False
End Sub
もう一例、リンク貼り付けではなく、リンク式を入力してみました。
Sub testリンク式1()
Dim rc As Range
Dim rp As Range
Dim i As Long
Set rc = Sheets("Sheet1").Range("A1, B2, C3, D4:F4")
Set rp = Sheets("Sheet2").Range("E1, F2, G3, B4:D4")
For i = 1 To rc.Areas.Count
rp.Areas(i).Formula = _
"=" & rc.Parent.Name & "!" & rc.Areas(i).Item(1).Address(False, False)
Next i
End Sub
この回答への補足
例えば「C:\Book1.xls」の(Sheet1)のセル(A1, B2, C3, D4:F4)をコピーし、「C:\test\Book2.xls」の(Sheet2)のセル(E1, F2, G3, B4:D4)へリンク貼付けを行う場合の記述は、どのようになりますか?
度々お手数お掛けして大変恐縮ではございますが、宜しくお願い致します。
御礼が遅くなってしまい申し訳ございませんでした。
教えていただきましたリンク式を試してみたところ、同一ブッックで希望通りの結果を得られました。
もしよろしければ、別ブックの場合を教えていただけますでしょうか?
例えば「C:\Book1.xls」の(Sheet1)のセル(A1, B2, C3, D4:F4)をコピーし、「C:\test\Book2.xls」の(Sheet2)のセル(E1, F2, G3, B4:D4)へリンク貼付けを行う場合の記述は、どのようになりますか?
度々お手数お掛けして大変恐縮ではございますが、宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Excel(エクセル) エクセル ブック間のコピー 5 2022/04/24 08:11
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
エクセルVBA 別シートの複数のセルの値をコピーする方法
Excel(エクセル)
-
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
マクロについて 複数セルの値を別シートの任意のセルにコピー貼り付けしたい
Excel(エクセル)
-
-
4
EXCELマクロで、シート間でのコピーペーストを繰り返す方法
Excel(エクセル)
-
5
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
エクセルで離れたセルを離れた場所へコピペするには?
その他(ビジネス・キャリア)
-
9
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
10
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
11
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
12
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
13
EXCEL VBAで複数シートから該当列のみを別シート列方向に順番に貼り付け
Visual Basic(VBA)
-
14
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
15
EXCELで変数をペーストしたい
その他(プログラミング・Web制作)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
19
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
20
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでブックを非表示で開いて処...
-
エクセルで参照しているデータ...
-
エクセルを共有するとPCによっ...
-
エクセルの関数 ENTERを押...
-
エクセルで50行ごとに区切った...
-
Excel(2010)のフィルターが保...
-
エクセルにおける,「ブック」...
-
エクセルで「ディスクがいっぱ...
-
エクセルファイルを開かずにpdf...
-
エクセルで別ブックをバックグ...
-
ブックの保護ができないんです...
-
EXCEL VBA におけるブック終了...
-
Excel VBAでブックを閉じる時、...
-
エクセルで複数のシートを別フ...
-
指定ファィルの指定シートをシ...
-
エクセル2016です。「ブッ...
-
Excelで指定範囲のデータ...
-
Excelで複数ブックの同一セルに...
-
beckyに届いたメールをエクセル...
-
北九州市にあった「井筒屋ブッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
WorkBooksをオープンさせずにシ...
-
Excelでブックの共有を掛けると...
-
エクセルで参照しているデータ...
-
Excel(2010)のフィルターが保...
-
Excelで複数ブックの同一セルに...
-
VBA バックグラウンドで別ブッ...
-
エクセルで50行ごとに区切った...
-
エクセルで「ディスクがいっぱ...
-
エクセルにおける,「ブック」...
-
エクセルファイルを開かずにpdf...
-
フォルダ内の複数ファイルから...
-
ブックのピボットを別ブックに...
-
エクセルシートの一部を送りたい
-
エクセル2016です。「ブッ...
-
エクセルで別ブックをバックグ...
-
フォルダ内の複数ファイルから...
-
複数ファイルから特定シートの...
おすすめ情報