CSVファイル（book名：book1）があり、その数値をbook名：フィルターのsheet1に手....
CSVファイル（book名：book1）があり、その数値をbook名：フィルターのsheet1に手動でコピーして、＜＜A(i)=A(i+1)ならば、A(i+1)の行を削除する。＞＞というマクロを実行させることはできました。ここで、さらに、上記のマクロを、あるフォルダ（例えばファイル名：生データ）の中に1000個近く存在するbook（ちなみにbook名はbook1，book2，book3，，，book99，，，のように単純だと仮定して。）に一気に実行させ、それぞれ名前をつけて（例えばbook名：filter1，filter2，，，filter99，，，のように）保存していきたいです。その方法として一気に同時にできるとは思っていないので、母体のマクロが組んであるエクセルbook（book名：フィルター）に上記のマクロを実行して、どんどん同じフォルダ内に異なる名前（例えばbook名：filter1，filter2，，，filter99，，，のように）を付けて保存していく方法が思いつくのですが、マクロがさっぱり分かりません。どうかマクロのスペシャリストの方お力を貸して下さい。ちなみに、sheet1に貼り付けるのは手動で行なっておりましたので、それも自動で行いたいです。Sub フィルター()Dim a(1 To 1000) As StringDim i As Long, R As LongFor n = 1 To 1000a(i) = "book" & n & ".xls"Workbooks.Open a(n)Cells.SelectSelection.ClearContentsWindows("bookn.xls").ActivateCells.SelectSelection.CopyWindows("フィルター.xls").ActivateActiveSheet.PasteNextFor Each wb In WorkbooksWorksheets("Sheet1").ActivateApplication.ScreenUpdating = FalseRange("A" & Rows.Count).SelectSelection.End(xlUp).SelectR = ActiveCell.RowFor i = R To 2 Step -1If Cells(i, 1).Value = Cells(i, 1).Offset(-1, 0).Value ThenRows(i).Delete Shift:=xlUpEnd IfNextApplication.ScreenUpdating = TrueWorkbook("フィルター.xls").SaveAs "filter" & n & " .xls"NextWorkbook("フィルター.xls").Close "filter" & n & " .xls"NextiEnd Sub現段階でここまで、本などを見よう見真似で組みましたが、相変わらずうまく実行されませんし、修正もしたくとも検討もつきません。現にまったく違う可能性もあります。丸投げな感じで非常に申し訳ありませんが、書き換えて載せて頂ければ幸いです。よろしくお願い致します。(続きを読む)
【PR】
セルシオ専門店
セルシオ専門店
ホームページ作成 近畿
今ならキャンペーン実施中！月額使用料2,980円が12ヶ月無料！ 近畿のホームページ作成、WEB制作
ダンディハウス
脱毛体験が５００円で体験！ダンディーハウスのお試しはこちら
エンジェル 出会い
真面目に出会いを求めている人を応援する信頼できる出会い系比較サイト！
aprilia 査定
aprilia査定見積もりについての紹介をします。
出会い 山形
出会い系サイトの落とし穴に密着！出会い系サイトの選び方をあなただけに教えます！料金タイプ、サクラの情報、有料サイトへの同時登録など、絶対にだまされない、間違わない出会い系サイトの選び方ガイドの決定版！
商品価格：8,900円
