Excel VBA質問箱 IV

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

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


7351 / 13645 ツリー ←次へ | 前へ→

【39664】データ抽出について vba初心者 06/6/28(水) 16:41 質問[未読]
【39668】Re:データ抽出について ハト 06/6/28(水) 17:21 発言[未読]
【39674】Re:データ抽出について [名前なし] 06/6/28(水) 20:50 発言[未読]

【39664】データ抽出について
質問  vba初心者  - 06/6/28(水) 16:41 -

引用なし
パスワード
   はじめまして。
VBAでデータ抽出を行おうとしているのですが、
記録マクロでは対応できず、困っていますので
ご質問させていただきます。

下記のようなsheet1のデータがあるとします。
-----------------------------------------
A   B    C    D列
あ   1G   123   321
い    2G   123   321
う    3G   111   444


さ   3G   2323   333
し   3G   555    5
す   1G   44     321
-----------------------------------------

このデータからB列のデータで抽出を行って
別のシートにコピーしたい。
シート名は、B列で抽出した値とする。
例えば「3G」で抽出した場合には、シート名は「3G」となり
データは下記のとおり
-----------------------------------------
A   B    C    D列
う    3G   111   444
さ   3G   2323   333
し   3G   555    5
-----------------------------------------

データは行、列ともに可変です。

オートフィルタをうまく活用しようと考えましたが、
B列の値も不変のため
あらかじめ指定はできないので困っています。

何かいい方法があるようでしたら
是非ご教授いただきたくよろしくお願いいたします。

【39668】Re:データ抽出について
発言  ハト  - 06/6/28(水) 17:21 -

引用なし
パスワード
   ▼vba初心者 さん:
>はじめまして。
>VBAでデータ抽出を行おうとしているのですが、
>記録マクロでは対応できず、困っていますので
>ご質問させていただきます。
>
>下記のようなsheet1のデータがあるとします。
>-----------------------------------------
>A   B    C    D列
>あ   1G   123   321
>い    2G   123   321
>う    3G   111   444
>
>
>さ   3G   2323   333
>し   3G   555    5
>す   1G   44     321
>-----------------------------------------
>
>このデータからB列のデータで抽出を行って
>別のシートにコピーしたい。
>シート名は、B列で抽出した値とする。
>例えば「3G」で抽出した場合には、シート名は「3G」となり
>データは下記のとおり
>-----------------------------------------
>A   B    C    D列
>う    3G   111   444
>さ   3G   2323   333
>し   3G   555    5
>-----------------------------------------
>
>データは行、列ともに可変です。
>
>オートフィルタをうまく活用しようと考えましたが、
>B列の値も不変のため
>あらかじめ指定はできないので困っています。
>
>何かいい方法があるようでしたら
>是非ご教授いただきたくよろしくお願いいたします。

1、B列をキーとしてソートする

2、B列を1行ずつ処理開始

  ・B列の値が前行の値と違った場合、B列の値で新規シートを作る
  ・該当行を該当のシートの最後尾へコピー

3、2の処理をsheet1のデータの終わりまで行う

という方針で処理を考えてみてください

【39674】Re:データ抽出について
発言  [名前なし]  - 06/6/28(水) 20:50 -

引用なし
パスワード
   早々のご回答ありがとうございます。
その方法で少し考えて見ます。
また行き詰ったら質問させていただきたいと思います。

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