Spreadsheet シートをそのまま転機したい

質問

エクセルでユーザーフォームにSpreadsheetコントロールを置いています。
そのシートには、ワークシートをそのまま転記したいのですがどういう方法があるのでしょうか？

Private Sub UserForm_Initialize()
Me.Spreadsheet1.Range("a1") = Sheet1.Range("a1").Value
End Sub

このようなものを一個ずつ作っていくしかないですか？
ワークシートには5列、700行です。

回答No.1

m3_maki · ベストアンサー

Private Sub UserForm_Initialize()
　　Worksheets("Sheet1").Range("A1:E700").Copy
　　Me.Spreadsheet1.Range("A1").Paste
　　Me.Spreadsheet1.Range("A1").Select
　　Application.CutCopyMode = False
End Sub

とか。

お礼

ありがとうございました。