| |
▼Asaki さん：
>>Set rngCopy = _
>> ActiveSheet.Range(ActiveSheet.Cells(2, 5), ActiveSheet.Cells(6536, 5).End(xlUp))
>>.Cells(5, 1).Resize(rngCopy.Rows.Count).Value = rngCopy.Value
>コピーするセル範囲を、オブジェクト変数rngCopy にセットして、
>この領域の値を、貼り付け先の領域に代入
>という流れです。
>セル範囲の矩形を一致させるために Resize を使用しています。
>A5セルという1セル分のセル範囲を、rngCopy の行数分、縦方向に拡張します。
>
>>それと、ActiveSheet.Cells(6536, 11).End(xlUp))の 6536 の部分は、
>>通常データの量から何も最下行(65536)から上がらなくてもという事でしょうか？
>65536 と書いたつもりで、単なるタイプミスです。（2箇所直してください）
>すみません。
>勿論、Maxのデータが解っているのであれば、そこからEnd(xlUp)しても構わないと思います。
Asaki さん、早速のレスありがとうございます。
実際に動かしながら確認し、自分の物にしたいと思います。
それと、もう一つ教えて下さい。
Asakiさんは、Range("K65536")とせずに、Cells(65536, 11)とされていますが、この方が何か利点があるのでしょうか？
よろしくご教示下さい。
|
|
ackkn
- 04/8/7(土) 15:00 -
