Excel VBA質問箱 IV

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

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


17581 / 76738 ←次へ | 前へ→

【64610】Re:64593の質問者です
お礼  rin  - 10/2/25(木) 14:25 -

引用なし
パスワード
   ▼超初心者 さん:
>▼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へ
みたいに行き先を指定できたらと思っています。
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 発言

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