| |
▼みき さん：
>▼じゅんじゅん さん：
>重ね重ねありがとうございます。
>今の今までこちらを参考にさせていただきながらこれを列単位で行うためのマクロにしようと試行していたのですが・・・
>
>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 = "C繰り返し"としてみましたが当然のことダメでした・・・
>
>C1〜C200,同時にD2〜D201を満たしたいのですが・・・
>
>
>何度もごめんなさい、どうかよろしくお願いいたします。
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
変数を””でくくってはダメです。
上記でいけるかと思います。
|
|
じゅんじゅん
- 07/9/27(木) 20:04 -
