Excel VBA質問箱 IV

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

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


17572 / 76732 ←次へ | 前へ→

【64613】Re:64593の質問者です
質問  rin  - 10/2/25(木) 16:44 -

引用なし
パスワード
   ▼rin さん:
>▼超初心者 さん:
>>▼rin さん:
>>>Sheetの中でE11:J20まで数字が埋められています。
>>
>>貼り付け先をSheet2のA1から、にしてます。
>>(適宜変更して下さい。)
>>
>>Sub sample()
>>  Dim myRange As Range
>>  Dim myRow As Long
>>  
>>  Set myRange = Range("E11:J20")
>>  
>>  For myRow = 1 To myRange.Cells.Count
>>    Sheets("Sheet2").Cells(myRow, 1) = myRange(myRow)
>>  Next myRow
>>End Sub
>>
>>参考までに。
>
>
>みごとに結果が出て驚きました。
>最終的には、Sheetが5枚あったら、それぞれのSheetに全てマクロを走らせて、
>1枚目のシートの結果がSheet2のA1へ
>2枚目のシートの結果がSheet2のB1へ
>みたいに行き先を指定できたらと思っています。

引き続き申し訳ありません。
Set myRange = Range("E11:J20")
の部分をE11セルから連続する範囲にしたいのですが、
Set myRange = Range("E11").CurrentRegion.Select
にしてみたらエラーになってしまったので、どう書いたらよいでしょうか・・・。

0 hits

【64594】64593の質問者です rin 10/2/24(水) 18:16 質問
【64596】Re:64593の質問者です neptune 10/2/24(水) 23:21 発言
【64598】Re:64593の質問者です UO3 10/2/25(木) 0:01 発言
【64599】Re:64593の質問者です UO3 10/2/25(木) 0:13 回答
【64603】Re:64593の質問者です rin 10/2/25(木) 11:46 質問
【64605】Re:64593の質問者です 超初心者 10/2/25(木) 11:59 発言
【64610】Re:64593の質問者です rin 10/2/25(木) 14:25 お礼
【64613】Re:64593の質問者です rin 10/2/25(木) 16:44 質問
【64614】Re:64593の質問者です 超初心者 10/2/25(木) 16:49 発言
【64615】Re:64593の質問者です rin 10/2/25(木) 17:08 お礼
【64616】Re:64593の質問者です 超初心者 10/2/25(木) 17:19 発言
【64617】Re:64593の質問者です rin 10/2/25(木) 17:30 お礼
【64618】Re:64593の質問者です 超初心者 10/2/25(木) 17:55 発言
【64619】Re:64593の質問者です rin 10/2/25(木) 18:26 お礼
【64606】Re:64593の質問者です UO3 10/2/25(木) 12:37 回答
【64608】Re:64593の質問者です Yuki 10/2/25(木) 13:51 発言

17572 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free