|
元BookのH列のオートフィルタにより
各値ごと新bookへ書き出し 1行目削除
AB列で並び替え
AB列並び替え後 不要なので削除
F列情報をシート名としコピー
上記を 元bookよりF列情報が幾つかあるので
繰り返したいのですが
元Book名は 毎回変わり
F列情報も其の度変わりますので
下記途中までですが マクロ登録したものを
使い loopで F列の情報が
全て それぞれ各新bookに出るまで 続けたいのですが
どうしたら良いのか?です。
Selection.AutoFilter Field:=8, Criteria1:="A"
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortTextAsNumbers
Columns("A:B").Select
Range("B1").Activate
Selection.Delete Shift:=xlToLeft
Range("F1").Select
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "A"
Cells.Select
Cells.EntireColumn.AutoFit
Windows("K.CSV").Activate
情報をうまく説明できず申し訳ないのですが
どなたか 教えて頂けると助かります
宜しくお願い致します
|
|