Excel VBA質問箱 IV

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

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


49358 / 76732 ←次へ | 前へ→

【32286】検索して別シート挿入後コピー貼り付け
質問  eki  - 05/12/12(月) 10:43 -

引用なし
パスワード
   こんにちは。
いつも大変参考にさせていただいています。
自分でも勉強していますが、余り進歩が無く
今回も皆さまのお力をお借りできたら
大変助かります。

以下のようなデータが有り、各見出しごとに別シート
を挿入して貼り付けたいと思っております。
サンプルでは、規則正しく表記してありますが
実データでは、データ1の上下には空白があったりなかったり、
別データが混ざっていたりします。
以下のデータはそのまま取っておきたいので
コピーすることとなりますが、なかなか思うように
コードが書けません。

アドバイスいただけますか?

  A    B    C    D   E
1 データ1    データ2    データ3    データ4    Total
2 0    0    0    2672    2672
3 0    0    0    1632    1632
4 0    0    11704    0    11704
5 0    0    0    0    0
6 0    0    0    0    0
7 0    0    0    232    232
8 0    0    0    0    0
9 0    0    352    0    352
10 0    0    1032    0    1032
11 データ1    データ2    データ3    データ4    Total
12 0    0    0    2672    2672
13 0    0    0    1632    1632
14 0    0    11704    0    11704
15 0    0    0    0    0
16 0    0    0    0    0
17 0    0    0    232    232
18 0    0    0    0    0
19 0    0    352    0    352
20 0    0    1032    0    1032
21 Iデータ1    データ2    データ3    データ4    Total
22 0    0    0    2672    2672
23 0    0    0    1632    1632
24 0    0    11704    0    11704
25 0    0    0    0    0
26 0    0    0    0    0
27 0    0    0    232    232
28 0    0    0    0    0
29 0    0    352    0    352
30 0    0    1032    0    1032
---------------------------------------
---------------------------------------
---------------------------------------
10000行くらい続くデータが多い

よろしくお願い致します。

1 hits

【32286】検索して別シート挿入後コピー貼り付け eki 05/12/12(月) 10:43 質問
【32288】Re:検索して別シート挿入後コピー貼り付け Statis 05/12/12(月) 11:18 発言
【32290】Re:検索して別シート挿入後コピー貼り付け eki 05/12/12(月) 11:24 質問
【32293】Re:検索して別シート挿入後コピー貼り付け Statis 05/12/12(月) 12:00 回答
【32311】Re:検索して別シート挿入後コピー貼り付け eki 05/12/12(月) 17:15 お礼
【32346】Re:検索して別シート挿入後コピー貼り付け Statis 05/12/13(火) 8:45 回答
【32368】Re:検索して別シート挿入後コピー貼り付け eki 05/12/13(火) 12:44 お礼

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