[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『条件によりファイルを複数に分割したい』(おいた)
以下のような元データから、A列の値をキーに以下の実行後のように ファイルを分割して作成するマクロを教えてください。 (A列の値に空白値は無し)
■元データ A列 B列 C列 D列 1行 買入先 部品コード 部品名 ・・・ 2行 AAA1 xxxx1 yyyy1 3行 AAA1 xxxx2 yyyy2 4行 DDD2 xxxx3 yyyy3 5行 1111 xxxx4 yyyy4 6行 1111 xxxx5 yyyy5 7行 2345 xxxx6 yyyy6 8行 : : : 9行 : : :
■実行後 AAAA1.xls A列 B列 C列 D列 1行 買入先 部品コード 部品名 ・・・ 2行 AAA1 xxxx1 yyyy1 3行 AAA1 xxxx2 yyyy2
DDD2.xls A列 B列 C列 D列 1行 買入先 部品コード 部品名 ・・・ 2行 DDD2 xxxx3 yyyy3
1111.xls A列 B列 C列 D列 1行 買入先 部品コード 部品名 ・・・ 2行 1111 xxxx4 yyyy4 3行 1111 xxxx5 yyyy5
2345.xls A列 B列 C列 D列 1行 買入先 部品コード 部品名 ・・・ 2行 2345 xxxx6 yyyy6 : :
・・・・.xls A列 B列 C列 D列 1行 買入先 部品コード 部品名 ・・・ 2行 : :
[EXCEL2003 WindowsXP]
直接ファイルではありませんが、以前シート単位に分割するマクロを作りました。 [[20110301184111]]
これを下記のような感じで、ファイルに分割したらできないでしょうか。 For Each ws In Worksheets ws.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xls" ActiveWorkbook.Close Next (Mook)
まずはシート単位に分割するマクロから勉強してみます。 ありがとうございました。 (おいた)
For Each ws In Worksheets ws.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xls" ActiveWorkbook.Close Next
お手数おかけ致します。
(Toshi)
組み込むことも出来ますが、処理後に単独で動かせば良いかと思います。 (Mook)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.