PasteSpecialの構文エラー

投稿者 : VBA初心者     投稿日時 : 2022/05/03(Tue) 12:22:07     OS : 未指定     EXCEL : 未指定

---

シートのデータを別シートにコピーするVBAを作成しているのですが、
PasteSpecialのところで構文エラーが発生してしまいます。

「.Pastespecial paste:=xlpastevalues」を削除した場合は問題なく動作していることは
確認済みなのですが、付け加えるとエラーが出てきてしまい、
原因としては何が考えられるのでしょうか。

Sub rensyu2()
    Dim ws1, ws2 As Worksheet
    Set ws1 = Worksheets(1)
    Set ws2 = Worksheets(2)
    
    ws1.Range("A1:C5").Copy ws2.Range("A1").Pastespecial paste:=xlpastevalues
End Sub

投稿者 : hatena     投稿日時 : 2022/05/03(Tue) 12:30:42

---

Copy と PasteSpecial は別のメソッドなので1行で書いたらだめです。

あと、Dim ws1, ws2 As Worksheet と書くと ws1 は Variant型変数になります。ちゃんと型指定した方がいいでしょう。

Sub rensyu2()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets(1)
    Set ws2 = Worksheets(2)
    
    ws1.Range("A1:C5").Copy
    ws2.Range("A1").Pastespecial paste:=xlpastevalues
End Sub

投稿者 : VBA初心者     投稿日時 : 2022/05/03(Tue) 22:01:38

---

hatenaさん

回答ありがとうございます！
Copyとは別メソッドとのことで改行して記載しないといけないのですね。
ありがとうございました！

■[返信 1] hatenaさん（2022-05-03 12:30:42）の記事
＞ Copy と PasteSpecial は別のメソッドなので1行で書いたらだめです。
＞
＞ あと、Dim ws1, ws2 As Worksheet と書くと ws1 は Variant型変数になります。ちゃんと型指定した方がいいでしょう。
＞
＞ Sub rensyu2()
＞ Dim ws1 As Worksheet, ws2 As Worksheet
＞ Set ws1 = Worksheets(1)
＞ Set ws2 = Worksheets(2)
＞
＞ ws1.Range("A1:C5").Copy
＞ ws2.Range("A1").Pastespecial paste:=xlpastevalues
＞ End Sub

投稿者 : VBA初心者     投稿日時 : 2022/05/03(Tue) 22:03:17

---

hatenaさん

回答ありがとうございます！
Copyとは分けて記載しないといけないのですね。
勉強になりました！ありがとうございます。