VBA存儲列在另一個表

-1

我想複製列值（通過rand（）函數創建）到另一個工作表的特定數目的迭代。例如，對於10次迭代，重新計算列10次，並將每個實例之後的值存儲在另一個表中，從而產生10列。我知道我應該使用粘貼值並創建一個具有偏移功能的循環，但我不知道如何執行此操作。VBA存儲列在另一個表

感謝，

山姆

來源

2012-12-12 user1899282

這將在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)

來源

2012-12-12 22:43:53 InContext

謝謝！這是我的實際實現： – user1899282

子store_sim_cf（）對於i = 1至250 昏暗rowOffset作爲雙人 rowOffset = IIF（Sheet7.Range（「A12」）= vbNullString，0，Sheet7.Range（「A12 「）.Columns.Count） Sheet1.Range（」 GK15：GK372 「）複製 Sheet7.Range（」 A12" ）偏移（，rowOffset + I - 1）.PasteSpecial粘貼：= xlPasteValues 接着 End Sub – user1899282

很高興你得到它的工作 – InContext

子store_sim_cf（）

For i = 1 To 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貼：= xlPasteValues

末次

來源

2012-12-14 17:08:05 user1899282

VBA存儲列在另一個表

回答

相關問題