|
▼じゅんじゅん さん:
>
>数式はわからないのでマクロでなら
>
>Sub test()
>
>With Worksheets("Sheet2")
> .Range(Worksheets("Sheet1").Range("C3").Value).Value = _
> Worksheets("Sheet1").Range("D4").Value
>End With
>
>End Sub
重ね重ねありがとうございます。
今の今までこちらを参考にさせていただきながらこれを列単位で行うためのマクロにしようと試行していたのですが・・・
Sub nextFillIn()
Dim 繰り返し As Long
For 繰り返し = 1 To 200
With Worksheets("Sheet2")
.Range(Worksheets("Sheet1").Range("C繰り返し").Value).Value = _
Worksheets("Sheet1").Range("D(繰り返し+1)").Value
End With
Next 繰り返し
End Sub
としてやっていたのですがこのままですと明らかにWithの中の「繰り返し」が””のため、ただの文字列として認識されてしまいますよね・・・
&でくくってみたりいろいろ試してはみたのですが (T T)
また、繰り返しの他にもうひとつ文字列xを定義してその中にx = "C繰り返し"としてみましたが当然のことダメでした・・・
C1〜C200,同時にD2〜D201を満たしたいのですが・・・
何度もごめんなさい、どうかよろしくお願いいたします。
|
|