マクロを実行してコピー元の情報(行・列の幅等)をそのままコピー先にコピペする方法を教えてください。
マクロ
Sub データコピペ()
'コピー元のファイルを開く
Workbooks.Open ActiveWorkbook.Path & "\" & "FDデータ.xlsx"
'Book1の値をコピー
Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("A1:B2").Copy
'Book2に値貼り付け
ThisWorkbook.Sheets("FDデータ").Range("A1:B2").PasteSpecial Paste:=xlPasteValues
Workbooks("FDデータ.xlsx").Close
End Sub
があります。
マクロを実行すると
コピー元ファイル「FDデータ.xlsx」の指定シート「Sheet1」のセル値「A1:B2」が
コピー先のファイル「作業ブック:ThisWorkbook」の指定シート「FDデータ」のセル値「A1:B2」
にコピーされます。
しかし、コピー先のシートとセルを確認するとコピー元のセル値の情報(行・列幅等)になっておりません。
コピー元の情報がそのままコピー先にコピーできる方法があれば教えてください。
詳しくは添付画像をご確認ください。(画像上がコピー元画像・下がコピー先コピー先画像になります)
よろしくお願いいたします。
No.1
- 回答日時:
'Book1の値をコピー
Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("A1:B2").Copy
'Book2に値貼り付け
ThisWorkbook.Sheets("FDデータ").Range("A1:B2").PasteSpecial Paste:=xlPasteValues
↓
'Book1の値をコピー + 'Book2に全て貼り付け
Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("A1:B2").Copy _
ThisWorkbook.Sheets("FDデータ").Range("A1")
かな?
No.2
- 回答日時:
Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("A1:B2").Copy _
ThisWorkbook.Sheets("FDデータ").Range("A1:B2")
こちらかな?
エラーでメッセージが出る場合はその情報もあると・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 12:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
Excelで、決まった行を繰り返し...
-
C+vのvは英語で何の頭文字...
-
塗りつぶしの色をコピーするには
-
画面写真でコピーペーストする...
-
VBAのテキストボックスに文字列...
-
エクセルの表をjpegにしたい(Mac)
-
ExcelのVBAでChromeの画面を全...
-
PDFの一部を切り取って別のシー...
-
友達のTV録画したDVD-R( SHARP...
-
IMEパッドの漢字一覧をワー...
-
数式による空白を無視して最終...
-
iPhoneでエクセルのコピーし、...
-
「Ctrl+b」でテキストだけをコ...
-
【エクセル】表の中の文字だけ...
-
空白行を無視してコピーするマ...
-
EXCEL 基本の基 複写元の...
-
パワーポイントで図がずれる
-
EXCEL 1つ飛ばしのセル参照
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
PDFの一部を切り取って別のシー...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
Excel 3列毎のセルを別の表に抽...
-
Excel フィルターを掛けた状態...
-
WORDのグレー括弧って?
-
セルに値がある行のみを抽出す...
-
VBAのテキストボックスに文字列...
-
エクセルでコピーしたものをコ...
-
マイナスの場合「xxxx-」...
-
エクセルでマクロにてセル色と...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
数式による空白を無視して最終...
-
コピー&貼り付けの仕方を教え...
-
エクセルVBAでコピーすると行の...
-
Wordの「背景色を消す方法」教...
-
エクセル VBA・マクロ コピー ...
おすすめ情報
回答ありがとうございます。
ご指示通りに行いましたが
Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("A1:B2").Copy _
ThisWorkbook.Sheets("FDデータ").Range("A1")
の部分が黄色くなり
エラーが出てしまいます。
解決方法をお願いいたします。
何度も申し訳ありません。
やはり同じように
実行すると「インデックスが有効範囲にありません」と警告文が表示されて
「デバック」をクリックすると
Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("A1:B2").Copy _
ThisWorkbook.Sheets("FDデータ").Range("A1:B2")
の部分が黄色になり実行できません。
申し訳ありません、解決方法をよろしくお願いいたします。
一旦コピペしてから
別なマクロでコピー先のシートの(行・列)を調整するマクロを組んだ方が良いでしょうか。
はい、名前の打ちまちがい等はありませんでした。
質問のコードは実行されます。
何が問題かが不明です。
よろしくお願いいたします。