| |
▼三浦（照） さん：
こんにちは。
>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
これで出来ますけど、どうでしょうか？
|
|
ひげくま
- 07/3/9(金) 15:12 -
