Excel VBA質問箱 IV

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

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


43477 / 76735 ←次へ | 前へ→

【38305】セル情報ごと 新book書き出し
発言  初心者  - 06/5/31(水) 10:04 -

引用なし
パスワード
   元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

情報をうまく説明できず申し訳ないのですが
どなたか 教えて頂けると助かります
宜しくお願い致します

0 hits

【38305】セル情報ごと 新book書き出し 初心者 06/5/31(水) 10:04 発言
【38308】Re:セル情報ごと 新book書き出し Statis 06/5/31(水) 10:23 発言
【38310】Re:セル情報ごと 新book書き出し 初心者 06/5/31(水) 10:41 回答
【38312】Re:セル情報ごと 新book書き出し Statis 06/5/31(水) 11:00 回答
【38316】Re:セル情報ごと 新book書き出し 初心者 06/5/31(水) 11:18 回答
【38318】Re:セル情報ごと 新book書き出し Statis 06/5/31(水) 11:36 発言
【38321】Re:セル情報ごと 新book書き出し 初心者 06/5/31(水) 12:39 回答
【38323】Re:セル情報ごと 新book書き出し Statis 06/5/31(水) 12:43 発言
【38326】Re:セル情報ごと 新book書き出し 初心者 06/5/31(水) 13:28 発言
【38373】Re:セル情報ごと 新book書き出し Statis 06/6/1(木) 9:23 発言
【38603】Re:セル情報ごと 新book書き出し 初心者 06/6/7(水) 9:42 回答
【38604】Re:セル情報ごと 新book書き出し Statis 06/6/7(水) 10:01 回答
【38617】Re:セル情報ごと 新book書き出し 初心者 06/6/7(水) 13:45 回答
【38619】Re:セル情報ごと 新book書き出し Statis 06/6/7(水) 14:50 発言
【38750】Re:セル情報ごと 新book書き出し 初心者 06/6/9(金) 12:00 発言
【38812】Re:セル情報ごと 新book書き出し Statis 06/6/11(日) 8:20 発言
【38846】Re:セル情報ごと 新book書き出し 初心者 06/6/12(月) 13:43 発言
【38875】Re:セル情報ごと 新book書き出し Statis 06/6/13(火) 12:38 発言
【38880】Re:セル情報ごと 新book書き出し 初心 06/6/13(火) 16:50 発言
【38882】Re:セル情報ごと 新book書き出し Statis 06/6/13(火) 16:57 発言
【38907】Re:セル情報ごと 新book書き出し 初心 06/6/14(水) 10:05 発言
【38922】Re:セル情報ごと 新book書き出し Statis 06/6/14(水) 13:30 回答
【39021】Re:セル情報ごと 新book書き出し 初心者 06/6/16(金) 9:46 発言
【39030】Re:セル情報ごと 新book書き出し Statis 06/6/16(金) 11:19 回答
【39053】Re:セル情報ごと 新book書き出し 初心者 06/6/16(金) 16:58 発言
【39054】Re:セル情報ごと 新book書き出し Statis 06/6/16(金) 17:01 発言
【39238】Re:セル情報ごと 新book書き出し 初心者 06/6/20(火) 12:52 発言
【39240】Re:セル情報ごと 新book書き出し Statis 06/6/20(火) 13:01 回答
【39248】Re:セル情報ごと 新book書き出し 初心者 06/6/20(火) 14:55 発言
【39278】Re:セル情報ごと 新book書き出し Statis 06/6/21(水) 8:22 発言
【39286】Re:セル情報ごと 新book書き出し 初心者 06/6/21(水) 13:00 発言
【39310】Re:セル情報ごと 新book書き出し Statis 06/6/22(木) 9:29 発言

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