|
50行150列の二次元配列のデータをA列7500(=50*150)行の一次元配列のデータ
に変換しようと下記のマクロを作成中です。
下から、4行目の以下の式が 受け付けられません。
ActiveCell.FormulaR1C1 = "=Sheet2!R[k]C[j]"
R[k]C[j]の部分は j=1の時 R[-50]C[1]
j=2の時 R[-100]C[2]
・・・
j=jの時 R[-50*j]C[j]
・・・
j=150の時 R[-7500]C[150]
jの値に従って、変える操作を考えています。
よろしくご教示をお願いします。
作成中のマクロ
-------------------------------------------------------------------------
Sub 移動3()
'
' 移動3 Macro
' マクロ記録日 : 2007/3/9 ユーザー名 : 三浦(照)
'
'
Sheets("Sheet3").Select
ActiveCell.FormulaR1C1 = "=Sheet2!RC"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A50"), Type:=xlFillDefault
Range("A1:A50").Select
m = 150
For j = 1 To m
k = -50 * j
l = 50
For h = 1 To l
i = h + 50
Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[k]C[j]"
Next
Next
End Sub
--------------------------------------------------------------------------
|
|