运行计算，复制和粘贴值VBA

Question

我试图编写这个将刷新工作表（计算器）的宏

它会刷新，所以需要一些值，复制它们，并将它们粘贴到另一张纸上。

有两个工作表

1. 计算器

2. 迭代

有我的代码：

Sub Iterate()

  Dim i As Integer

  For i = 1 To 10000
      Worksheets("Calculator").Calculate
      Range(AC6,AC16).Copy
      Range(AT10,AT11).Copy
      Worksheets("Iterations").PasteSpecial Paste:=xlPasteValues
  Next

     End Sub

我运行时遇到错误，

   Compile Error 
Expected: Identifier

我没有很多VBA经验。

计算器工作表对每次刷新进行不同的计算，总结为远程单元格。 我想复制这些单元格，并将它们粘贴到＆＃34;迭代＆＃34;工作表，一个紧挨着另一个。 什么最终会产生10,000份副本

关于从何处开始处理它的任何建议？

Answer 1

你的循环也没有尽头。 你应该定义你的循环，例如：

For i=1 to 100000

'do something

Next

如果您想计算工作表计算器使用：

Worksheets("Calculator").Calculate

我不确定你要复制什么（以及放在哪里）。