Question

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

谢谢，

萨姆

Answer 1

这会将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)

Answer 2

Sub store_sim_cf（）

对于i = 1至250

Dim rowOffset As Double

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

Sheet1.Range（ “GK15：GK372”）。复印 Sheet7.Range（“A12”）。偏移量（，rowOffset + i - 1）.PasteSpecial Paste：= xlPasteValues

下一步

End Sub

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

2 个答案: