Excel VBA質問箱 IV

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

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


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

【11830】キーによって、sheetを分割する方法 入門者 04/3/17(水) 11:04 質問
【11835】Re:キーによって、sheetを分割する方法 Asaki 04/3/17(水) 11:28 回答
【11836】Re:キーによって、sheetを分割する方法 入門者 04/3/17(水) 11:33 お礼
【11841】Re:キーによって、sheetを分割する方法 Asaki 04/3/17(水) 12:49 回答
【11843】Re:キーによって、sheetを分割する方法 入門者 04/3/17(水) 13:06 お礼

【11830】キーによって、sheetを分割する方法
質問  入門者  - 04/3/17(水) 11:04 -

引用なし
パスワード
   次のようなsheetがあるとします。
+------+------+------+------+
| 卸  | 客CD | 客名 |納品日|
+------+------+------+------+
| K社 | 0001 | 東京 | 0310 |
+------+------+------+------+
| F社 | 0001 | 東京 | 0311 |
+------+------+------+------+
| F社 | 0002 | 千葉 | 0311 |
+------+------+------+------+
| K社 | 0002 | 千葉 | 0312 |
+------+------+------+------+

マクロの実行1発で、キー(卸)ごとに別々のSheetに分割することは可能でしょうか?
この例で言うと、K社、F社の2Sheetにしたいのです。
Excelのインスタンスから、CopyFromRecordsetを使えといわれたことがありますが何のことかわかりません。

【11835】Re:キーによって、sheetを分割する方法
回答  Asaki  - 04/3/17(水) 11:28 -

引用なし
パスワード
   こんにちは。

オートフィルタを使って絞込みした物を、別のシートにコピーする
とか、
フィルタオプションを使って、他のシートに抽出する
とかいった操作でもできそうです。

一度マクロの記録をお試しください。

【11836】Re:キーによって、sheetを分割する方法
お礼  入門者  - 04/3/17(水) 11:33 -

引用なし
パスワード
   ▼Asaki さん:
>フィルタオプションを使って、他のシートに抽出する

にはどうすればよいのでしょうか?
ご教示ください。

【11841】Re:キーによって、sheetを分割する方法
回答  Asaki  - 04/3/17(水) 12:49 -

引用なし
パスワード
   データが入っているシート名がSheet1、1行目がタイトル行で、セルA2からデータが入っているとします。
K社 を抽出する際の手順です。

1) どこかSheet1のどこか空いているセルに「卸」と入力し、
  その下の行に「K社」と入力します。(G1:G2セルに入力したとします)
2) 新しいシート(Sheet2とします)を用意します。
3) Sheet2を表示した状態で、
  メニューから データ >> フィルタ >> フィルタオプションの設定 を選択して、
  下記のように設定します。
抽出先:指定した範囲 を選択
リスト範囲:Sheet1のデータが入力されている範囲
検索条件範囲:Sheet1!G1:G2
抽出範囲:A1
4) OKをクリックします。

【11843】Re:キーによって、sheetを分割する方法
お礼  入門者  - 04/3/17(水) 13:06 -

引用なし
パスワード
   ▼Asaki さん:

わかりました。
有難うございました。

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