Excel VBA質問箱 IV

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

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


22 / 13234 ツリー ←次へ | 前へ→

【80338】ブックの分割方法 宮本 19/1/27(日) 11:03 質問[未読]
【80341】Re:ブックの分割方法 マナ 19/1/27(日) 14:19 発言[未読]

【80338】ブックの分割方法
質問  宮本  - 19/1/27(日) 11:03 -

引用なし
パスワード
   XX.xlsxsのYYシートにはA列がクラス、B列が得点となっています。
一例を下に示します。
クラスごとにブック分割を行い、FY2018_特進.xlsx、FY2018_スーパー.xlsx、FY2018_一般.xlsxとしたいと思います。シート名前はいずれのブックもYYのままです。

1.3つのブックを新規作成し、シート名前をYYにする。
2.XX.xlsxを3つのブックにコピーする。
3.1行目をフィルタにして、ブックごとに特進、スーパー、一般が残るように削る
4.保存

という手順でやってるのですが、他に良い方法があるのではないかと思います。
いかがでしょうか。
Excel2010を使っています。
可能でしたらスクリプトも示していただけると助かります。
よろしくお願いいたします。

【XX.xlsxのYYシート】
クラス    点数
特進    82
スーパー    84
スーパー    88
一般    57
特進    94
一般    82
スーパー    73
一般    46
特進    97
一般    69
一般    74
スーパー    72
一般    53
特進    92


【FY2018_特進.xlsxのYYシート】
クラス    点数
特進    82
特進    94
特進    97
特進    92
    
    
【FY2018_スーパー.xlsxのYYシート】
クラス    点数
スーパー    84
スーパー    88
スーパー    73
スーパー    72
    
    
【FY2018_一般.xlsxのYYシート】
クラス    点数
一般    57
一般    82
一般    46
一般    69
一般    74
一般    53

【80341】Re:ブックの分割方法
発言  マナ  - 19/1/27(日) 14:19 -

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

>1.3つのブックを新規作成し、シート名前をYYにする。
>2.XX.xlsxを3つのブックにコピーする。
>3.1行目をフィルタにして、ブックごとに特進、スーパー、一般が残るように削る
>4.保存
>
>という手順でやってるのですが、他に良い方法があるのではないかと思います。
>いかがでしょうか。

シートごとコピーするとよいです

1.新規ブックに、シートYYをコピーする。
2.「特進」以外をフィルタで抽出し、削除
3.フィルタ解除
4.名前を付けて保存
5.「スーパー」と「一般」も同様に

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