Excel VBA質問箱 IV

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

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


9284 / 13646 ツリー ←次へ | 前へ→

【28240】コピーする空欄場所を検索、貼り付け apple 05/9/1(木) 0:50 質問[未読]
【28241】Re:コピーする空欄場所を検索、貼り付け かみちゃん 05/9/1(木) 1:06 回答[未読]

【28240】コピーする空欄場所を検索、貼り付け
質問  apple E-MAIL  - 05/9/1(木) 0:50 -

引用なし
パスワード
   お世話になってます。こんにちは。
今作成中のシートで、もっと便利に!で、出来たらいいなと思うマクロです。
シートは3種類。いぬ ねこ くじら とします。

シートいぬは、ベースになります。ここに、データを入力します。毎日日替わりで内容が新データが入力されます。

   A   B    C      D   E    F

1  売り  CALL 2005/08/31   500  0.125  靴屋

2  買い  PUT  2005/09/02   600  0.510  八百屋 

3  売り  CALL 2005/09/20   200  0.275  菓子屋

4
.
.とします。


シートねこは、シートいぬの ある期間中(1ヶ月)のデータを累積していく為のもの。

   A   B    C      D   E    F

1  売り  CALL 2005/08/20   700  0.105  靴屋

2  買い  PUT  2005/09/01   500  0.135  八百屋 

3 

4

5

6
.
.
.  とあるとすると、この場合、3行目が空欄なので、すでにあるデータ(1〜2行)はそのままで、3行目から、シートいぬのデータコピーしたもの(入力分のみ 1〜3行分のみ)を、シートねこに累積で、データを加える形で貼り付けたいのです。

シートくじらへも同じように、シートねこからコピー&ペイストとします。
ただ、ある特定列のデータ(例:F列)が先頭に移動するという列の項目の順番が変わっているシートに3枚目のシートくじらは構成されています。

一番の疑問は、コピー先のシートの空欄場所を検索して、そこへ順番に貼り付けていくというのが、どう指示を書いたらいいのか解かりません。 
また、コピー対象のデータ(例:シートいぬ に入力されているデータのみ)指定も入力されているものだけ、コピーすればいいので、それを指示する方法も解かりません。

質問内容が判っていただけるのか心配ですが、この解決に力を貸してください。お願いします。

【28241】Re:コピーする空欄場所を検索、貼り付け
回答  かみちゃん  - 05/9/1(木) 1:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>コピー先のシートの空欄場所を検索して、そこへ順番に貼り付けていくというのが、どう指示を書いたらいいのか解かりません。 
>また、コピー対象のデータ(例:シートいぬ に入力されているデータのみ)指定も入力されているものだけ、コピーすればいいので、それを指示する方法も解かりません。

コピー元が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

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