Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : 指定なし)
形式を選択して貼り付けについて
投稿日時: 21/09/08 22:01:17
投稿者: あかつきさん2021

お世話になります。
 
シート1から別シートにセル範囲を、形式を選択して貼り付けようとしていますが
 
「コンパイルエラー
修正候補:ステートメントの最後」
 
と表示されてしまいます。
以下を参考にしているのですが自分の書き方は実行出来ないのでしょうか?
https://excel-ubara.com/vba100/VBA100_002.html
 
Sub 形式を選択してコピー()
     
    Worksheets("Sheet1").Range("A1:C5").Copy Worksheets("Sheet2").Range("A1").PasteSpecial Paste:= xlPasteFormats
     
End Sub
 
以上よろしくお願いいたします。

回答
投稿日時: 21/09/08 22:33:09
投稿者: hatena
投稿者のウェブサイトに移動

コードは改行も意味がありますので、勝手に改行を削除しないように。
 

Sub 形式を選択してコピー()
     
    Worksheets("Sheet1").Range("A1:C5").Copy
    Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteFormats
     
End Sub

投稿日時: 21/09/08 23:15:26
投稿者: あかつきさん2021

hatenaさん
 
回答していただきありがとうございます。
無事に解決いたしました、またお願いします。