Excel VBA質問箱 IV

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

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


34524 / 76734 ←次へ | 前へ→

【47419】Re:二次元配列のデータを一次元に変換
発言  ひげくま  - 07/3/9(金) 15:12 -

引用なし
パスワード
   ▼三浦(照) さん:
こんにちは。

>R[k]C[j]の部分は j=1の時 R[-50]C[1]

この書き方は相対座標の書き方なのは解っていますか?
そして、座標をマイナスにすることは出来ないはずです。
そもそも、なぜ-50なのかも私には理解できません。

Sheet3のセルに書き込みたいのは、
(1) Sheet2のセルの値
(2) Sheet2のセルの値を参照する数式
のどちらなのでしょうか?

>       ActiveCell.FormulaR1C1 = "=Sheet2!R[k]C[j]"

これだと、(2)ということになります。

(1)で良いのであれば、

  Dim cc As Long
  
  Dim Sh2 As Worksheet
  Dim Sh3 As Worksheet
  
  Set Sh2 = Sheets("Sheet2")
  Set Sh3 = Sheets("Sheet3")
  
  For cc = 1 To 150
    Sh3.Cells((cc - 1) * 50 + 1, 1).Resize(50, 1).Value = _
    Sh2.Cells(1, cc).Resize(50, 1).Value
  Next cc

これで出来ますけど、どうでしょうか?
1 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 お礼

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