![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
下記のマクロを実行すると
他のブックの指定範囲を作業ブックの指定範囲にコピペできます。
このマクロだとコピー元のセル値に設定している数式を文字としてコピーしてしまいます、
このコードを変更してコピペした場合に、コピー元のセル値に表示した文字及び数式をコピー先にコピペ出来る方法を教えてください。
現状のマクロ
Sub 提出シート貼り付け()
Dim Wb1, Wb2
Set Wb1 = Workbooks(1) 'このブック
Set Wb2 = Workbooks(2) '別ブック
'セルの値を取得する
Wb2.Worksheets("提出シート").Range("B1:H37").Copy Wb1.Worksheets("受付").Range("B1:H37")
End Sub
以上です。
よろしくお願いいたします。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_06.png?8acaa2e)
No.1ベストアンサー
- 回答日時:
Sub 提出シート貼り付け()
Dim Wb1 As Workbook, Wb2 As Workbook
Set Wb1 = Workbooks(1) 'このブック
Set Wb2 = Workbooks(2) '別ブック
'セルの値、数式、書式を含めて取得する
Wb2.Worksheets("提出シート").Range("B1:H37").Copy
Wb1.Worksheets("受付").Range("B1:H37").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False 'コピー範囲の点線を解除する
End Sub
ご提示いただいたマクロは、コピー元のセルの値だけをコピーしていますが、数式や書式も含めてコピーするには、少し変更が必要です。`Range.Copy`メソッドは、範囲全体をコピーするため、数式や書式も含まれます。
以下に、数式と書式を含めた範囲をコピーするマクロを示します:
```vba
Sub 提出シート貼り付け()
Dim Wb1 As Workbook, Wb2 As Workbook
Set Wb1 = Workbooks(1) 'このブック
Set Wb2 = Workbooks(2) '別ブック
'セルの値、数式、書式を含めて取得する
Wb2.Worksheets("提出シート").Range("B1:H37").Copy
Wb1.Worksheets("受付").Range("B1:H37").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False 'コピー範囲の点線を解除する
End Sub
```
このマクロは以下のように動作します:
1. `Range("B1:H37").Copy` でコピー元の範囲をコピーします。これにはセルの値、数式、書式が含まれます。
2. `Wb1.Worksheets("受付").Range("B1:H37").PasteSpecial Paste:=xlPasteAll` でコピー先の範囲にすべての内容(値、数式、書式)を貼り付けます。
3. `Application.CutCopyMode = False` でコピー範囲の点線を解除します。
このコードにより、コピー元のセルに表示されている文字(値)や数式がそのままコピー先に貼り付けられます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/04/02 16:12
- Visual Basic(VBA) Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーで 1 2024/04/05 21:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2024/04/06 10:16
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
11
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
12
VBA バックグラウンドで別ブックを開いてデータ転記
Excel(エクセル)
-
13
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
14
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
15
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16
エクセル共有したが、アクセスできなくかった
Excel(エクセル)
-
17
【マクロ】名前を保存する際に、同じファイルがあった場合に、メッセージを表示
Excel(エクセル)
-
18
Excelの数式について教えてください。
Excel(エクセル)
-
19
エクセルVBA
Visual Basic(VBA)
-
20
vba 削除
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
VBA コードを実行すると画面が...
-
エクセルVBAが途中で止まります
-
VBS Bookを閉じるコード
-
【マクロ】違うフォルダにある...
-
VBA 別ブックからコピペしたい...
-
VBAで別ブックのシートを指定し...
-
VBSでExcelのオープン確認
-
別ブックをダイアログボックス...
-
【ExcelVBA】zip圧縮されたCSV...
-
【Excel VBA】書き込み先ブック...
-
コードを直していただきたいで...
-
【ご教示ください】VBAの記述方...
-
VBAで別のブックにシートをコピ...
-
複数シート名とブック名が一致...
-
vbaでvbaProjectのパスワード解...
-
VBAで複数のブックを開かずに処...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報