Excel VBA質問箱 IV

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

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


8861 / 13644 ツリー ←次へ | 前へ→

【30501】コピーする対象を別のシート内の空行を認識してそこへ貼り付け apple 05/10/28(金) 20:20 質問[未読]
【30503】Re:コピーする対象を別のシート内の空行を... apple 05/10/28(金) 20:31 質問[未読]

【30501】コピーする対象を別のシート内の空行を認...
質問  apple E-MAIL  - 05/10/28(金) 20:20 -

引用なし
パスワード
   お世話になってます。こんにちは。
今作成中のシートで、もっと便利に!で、出来たらいいなと思うマクロです。
シートは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

20  売り  CALL 2005/4/31   800  0.125  肉屋

21  買い  PUT  2005/05/02  700  0.510  百屋 

22 


とシートみかんがあるとすると、この場合、22行目が空欄なので、すでにあるデータ(1〜21行)はそのままで、22行目から、シートもものデータ(例の1〜3行)をコピーし、シートみかんへ(例22行目から)データを加える形で貼り付けたいのです。

あくまでも文字だけの同項目へのコピー&ペイストです。

シートばなな へも同じように、シートみかん からコピー&ペイストをさせたいです。

ただ、ある特定列のデータ(例:F列)が先頭に移動するという列の項目の順番が変わっているシートに3枚目のシートばなな は構成されています。
つまり、シートみかんからシートばななへは、項目の並び替えが必要なのです。


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

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

【30503】Re:コピーする対象を別のシート内の空行...
質問  apple E-MAIL  - 05/10/28(金) 20:31 -

引用なし
パスワード
   もう一つ付け加えますと、
以前にかみちゃんさんから、アドバイスを受けたのですが、それは以下のものです。


Sub a()
 Sheets("いぬ").Range("A1").CurrentRegion.Copy (Sheets("ねこ").Range("A65536").End(xlUp).Offset(1))
End Sub


これですと、表自体がすべてコピーされ(枠も全て)、シートねこの空欄の下に、シートいぬの表全てが貼り付いてしますのです。

また、表なので、表内の行数も決まっております。最終行が表内の最終行での指定としたいです。(65536ですとシートの最終行になってしますので。)シート内には、通貨別にシートがある形なのです。(2つ)

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