Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34531 / 76734 ←次へ | 前へ→

【47411】二次元配列のデータを一次元に変換
質問  三浦(照)  - 07/3/9(金) 14:22 -

引用なし
パスワード
   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
--------------------------------------------------------------------------

4 hits

【47411】二次元配列のデータを一次元に変換 三浦(照) 07/3/9(金) 14:22 質問
【47414】Re:二次元配列のデータを一次元に変換 へっぽこ 07/3/9(金) 14:48 発言
【47422】Re:二次元配列のデータを一次元に変換 三浦(照) 07/3/9(金) 15:40 お礼
【47419】Re:二次元配列のデータを一次元に変換 ひげくま 07/3/9(金) 15:12 発言
【47421】Re:二次元配列のデータを一次元に変換 三浦(照) 07/3/9(金) 15:33 お礼

34531 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free