vba - 別のシートに列を格納するVBA

Question

列の値 (rand() 関数で作成されたもの) を別のシートに特定の反復回数だけコピーしようとしています。たとえば、10回の繰り返しの場合、列を10回再計算し、各インスタンスの後に値を別のシートに保存して、10列にします。貼り付け値を使用し、オフセット関数を使用してループを作成することになっていることは知っていますが、これを行う方法がわかりません。

ありがとう、

サム

Answer 1

サブ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"）。Copy Sheet7.Range（ "A12"）。Offset（、rowOffset + i-1）.PasteSpecial Paste：= xlPasteValues

次

サブ終了

Answer 2

これにより、シート 1 の列 A のデータがシート 2 の列にコピーされ、列 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)