VBA在另一张图纸中存储列

我试图将列值（通过rand（）函数创建）复制到另一个工作表中，以获得特定数量的iTreations。例如，对于10次迭代，将列重新计算10次，并将每个实例后的值存储在另一个工作表中，从而生成10列。我知道我应该使用粘贴值并创建一个带有偏移函数的循环，但我不知道如何做到这一点

谢谢

---

Sam

这将从A列开始，从右边开始，将表1 A列中的数据复制到表2中的列：

Dim rowOffset As Double

rowOffset = IIf(Sheet2.Range("A1") = vbNullString, 0, Sheet2.Range("A1").CurrentRegion.Columns.Count)

Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1").Offset(, rowOffset)

子商店_sim_cf（）

对于i=1至250

将行偏移量设置为双精度

rowOffset=IIf（Sheet7.Range（“A12”）=vbNullString，0，Sheet7.Range（“A12”）.Columns.Count）

表1.范围（“GK15:GK372”）。副本 Sheet7.范围（“A12”）.偏移量（，行偏移量+i-1）.粘贴特殊粘贴：=XLPasteValue

下一个

---

结束Sub

谢谢！下面是我的实际实现：将i=1到250 Dim rowOffset的子存储_sim_cf（）作为Double rowOffset=IIf（Sheet7.Range（“A12”）=vbNullString，0，Sheet7.Range（“A12”）.Columns.Count）Sheet1.Range（“GK15:gkk372”）。复制Sheet7.Range（“A12”）。Offset（，rowOffset+i-1）。粘贴特殊粘贴：=xlPasteValues下一个端点子