Excel 是否使用变量复制并粘贴到目标？

我对这句话的语法一无所知。我已经搜索并尝试了大概20种不同的方法来写这篇文章。我如何修复我的语法或我的副本的目标上的任何问题？代码如下：

Dim wksMain As Worksheet, wksStats As Worksheet, i As Long, x As Integer

Set wksMain = Sheets("Main")
Set wksStats = Sheets("Stats")

For x = 1 To 3
   i = 100000000

   wksMain.Range("C3") = i * x
   wksMain.Range("C4") = i * x + i

   wksMain.Calculate

   wksStats.Cells(1, x + 1).Value = wksMain.Cells(8, 4).Value

   wksMain.Range(Cells(16, 6), Cells(37, 6)).Copy _
   Destination:=wksStats.Range(Cells(2, x + 1), Cells(24, x + 1))
Next x

来自评论

---

我遇到的错误是对象的运行时错误“1004”方法“Range”工作表“failed”

您没有提到您在哪一行遇到了什么错误，但我看到了一个问题

wksMain.Range(Cells(16, 6), Cells(37, 6)).Copy _
Destination:=wksStats.Range(Cells(2, x + 1), Cells(24, x + 1))

这是因为你没有完全限定你的单元格对象

试试这个（未经测试）

---

如果不限定单元格对象，则它们将始终引用活动工作表。

这是我得到的错误。运行时错误“1004”对象“工作表”的方法“范围”失败。你的解决方案很有效。谢谢你的帮助。

这是我得到的错误。运行时错误“1004”对象“工作表”的方法“范围”失败。你的解决方案很有效。谢谢你的帮助Chris2015 23秒前

当您提问时，最好包含这段信息。使答复更容易；）

wksMain.Range(wksMain.Cells(16, 6), wksMain.Cells(37, 6)).Copy Destination:= _
wksStats.Range(wksStats.Cells(2, x + 1), wksStats.Cells(24, x + 1))