| |
こんにちは。かみちゃん です。
>コピー先のシートの空欄場所を検索して、そこへ順番に貼り付けていくというのが、どう指示を書いたらいいのか解かりません。
>また、コピー対象のデータ(例：シートいぬ に入力されているデータのみ）指定も入力されているものだけ、コピーすればいいので、それを指示する方法も解かりません。
コピー元がA1セルから空白行、空白列で囲まれたセル範囲である場合
Range("A1").CurrentRegion
で範囲指定ができます。
貼り付け先の最終行の次の行は、
一般操作で、A65536セルに移動して、Endキーを押して↑キーを押す操作をすると
できるかと思いますので、
これを「マクロの記録」で記録して、さらにその次の行ですから、Offsetプロパティで移動します。
すると、
Range("A65536").End(xlUp).Offset(1)
でできます。
具体的には、こんな感じです。
Sub a()
Sheets("いぬ").Range("A1").CurrentRegion.Copy (Sheets("ねこ").Range("A65536").End(xlUp).Offset(1))
End Sub
|
|
かみちゃん
- 05/9/1(木) 1:06 -
