vba - VBA将列存储在另一个工作表中

Question

我正在尝试将列值（通过 rand() 函数创建）复制到另一张表以进行特定数量的迭代。例如，对于 10 次迭代，重新计算列 10 次并将每个实例之后的值存储在另一个工作表中，从而产生 10 列。我知道我应该使用粘贴值并使用偏移函数创建一个循环，但我不确定如何执行此操作。

谢谢，

山姆

Answer 1

子 store_sim_cf()

对于 i = 1 到 250

将 rowOffset 暗淡为 Double

rowOffset = IIf(Sheet7.Range("A12") = vbNullString, 0, Sheet7.Range("A12").Columns.Count)

Sheet1.Range("GK15:GK372").Copy Sheet7.Range("A12").Offset(, rowOffset + i - 1).PasteSpecial Paste:=xlPasteValues

下一个

结束子

Answer 2

这会将 Sheet1 的 A 列中的数据复制到 Sheet2 中的列，从 A 列开始并正常工作：

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)