Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30431 / 76807

←次へ　｜　前へ→


	【51643】Re:検索＋位置情報の取得のしかたを教えてください

みき - 07/9/27(木) 19:40 -


	引用なし

	パスワード

▼じゅんじゅんさん：

>
>数式はわからないのでマクロでなら
>
>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 = "C繰り返し"としてみましたが当然のことダメでした・・・

C1～C200,同時にD2～D201を満たしたいのですが・・・

何度もごめんなさい、どうかよろしくお願いいたします。

1 hits

▼

【51637】検索＋位置情報の取得のしかたを教えてください みき 07/9/27(木) 16:48