|
▼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
にしてみたらエラーになってしまったので、どう書いたらよいでしょうか・・・。
|
|