Excel総合相談所 70 at BSOFT

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
754:名無しさん＠そうだ選挙にいこう 08/06/19 13:50:59 なんか眠くて仕事する気になれないんで作ってみた Sub aaaa() 　　ChDir "C:\excel-data"　　'データフォルダ指定 　　 　　Workbooks.Open "まとめ.xls" 'まとめ先準備 　　Sheets("集計シート").Select 　　Range("B1").Select 　　N = Dir("aa-*.xls")　　　'ファイルを順に 　　While N <> "" 　　　　Workbooks.Open N　　 '開いて 　　　　Range("A2").Select 　　　　Range(Selection, Selection.End(xlDown)).Copy 'コピ 　　　　ActiveWorkbook.Close 　 　　　　ActiveSheet.Paste　　'ペ 　　　　Selection.End(xlDown).Select 　　　　ActiveCell.Offset(1, 0).Select 　 　　　　N = Dir()　　　　　　'次 　　Wend 　　ActiveWorkbook.Save 　　ActiveWorkbook.Close　'まとめ保存閉じ End Sub 755:名無しさん＠そうだ選挙にいこう 08/06/19 13:58:05 何度も走らせて遊んでたらまとめがおかしくなることに気付いた 　　Workbooks.Open "まとめ.xls" 'まとめ先準備 　　Sheets("集計シート").Select 　　Range("B:B").Clear　　　　　'←これ追加 　　Range("B1").Select まあ、ほかにもツッコミどころ満載だとは思うが、あとは好きに直してくれ

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4833日前に更新/227 KB
担当:undef