Excel VBA質問箱 IV

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

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


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

56361 / 76732

←次へ　｜　前へ→


	【25126】Re:別シートに代入するには

ウッシ - 05/5/20(金) 16:16 -


	引用なし

	パスワード

こんにちは

処理が良く分からないです。

Sub test()
　　With Range("F3:F6")
　　　　.Value = Worksheets("Sheet1").Range("B1:B4").Value
　　　　.AutoFill Destination:=Range("F3:F90"), Type:=xlFillDefault
　　End With
End Sub

だけで良さそうですけど、元のコードを修正するなら、

Sub test1()
　　m = 3
　　Do While m <= 90
　　　　i = 1
　　　　Do While i <= 4
　　　　　　Range("F" & m).Value = _
　　　　　　　　Worksheets("Sheet1").Cells(i, 2).Value
　　　　　　i = i + 1
　　　　　　m = m + 1
　　　　Loop
　　Loop
End Sub

「あるシート」名は「Sheet1」として有ります。

0 hits

▼

【25112】別シートに代入するには にしもり 05/5/20(金) 13:59