将值从一个工作表复制到另一个工作表

我怎样才能从一个工作表复制一些数据到另一个？

我试过这个代码，但得到一个错误：

Private Sub CommandButton2_Click() Sheets("Gas Opt").Select Range("A1:A3").Select Selection.Copy Sheets("ExportToPPServer").Select Cells(3, AColumn).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False LFound = True MsgBox "Data coped." End Sub 

错误：

 Select method of Range class failed. 

Answer 1

这看起来如何？

 Sub x() Sheets("Gas Opt").Select Range("A1:A3").Select Selection.Copy ActiveWorkbook.Sheets("ExportToPPServer").Range("A1:A3").PasteSpecial Paste:=xlValues End Sub 

编辑

您的控制button与“Gas Opt”不同吗？ 这将解释它。 尝试这个：

 Sub x() Sheets("Sheet2").Range("A1:A3").Copy ActiveWorkbook.Sheets("Sheet3").Range("A1:A3").PasteSpecial Paste:=xlValues End Sub 

Answer 2

像这样的东西应该工作：

 Private Sub CommandButton2_Click() Dim copyRng As Range, targetRng As Range Set copyRng = Worksheets("Gas Opt").Range("A1:A3") Set targetRng = Worksheets("ExportToPPServer").Cells(3, AColumn) copyRng.Copy targetRng.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False LFound = True MsgBox "Data coped." End Sub 

Answer 3

你需要激活工作表，否则你不能select单元格。

 Sheets("ExportToPPServer").Activate ' Instead of select