Excel総合相談所 103at BSOFTExcel総合相談所 103 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト460:名無しさん＠そうだ選挙にいこう 12/07/10 20:35:13.19 すべてのシートだったらシートを全て選択して好きな表示の倍率にすればいいじゃん(´・ω・｀) 461:名無しさん＠そうだ選挙にいこう 12/07/10 20:56:56.23 >>452 できた！ありがと。 462:名無しさん＠そうだ選挙にいこう 12/07/10 21:02:03.01 Sub シート保存() Dim wb1 As String, ws1 As String, ws2 As String Dim fdr As String, f_name As String wb1 = "徳丸純子.xls" ws1 = "石坂智子" ws2 = "山口弘美" fdr = "仙道敦子" f_name = "江戸真樹.xls" Workbooks(wb1).Worksheets(Array(ws1, ws2)).Copy Worksheets(ws1).Select Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("A1").Select Columns("H:M").Delete Shift:=xlToLeft Worksheets(ws2).Select Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("A1").Select Columns("H:M").Delete Shift:=xlToLeft ActiveWorkbook.SaveAs "c:\" & fdr & "\" & f_name ActiveWorkbook.Close End Sub ２回繰り返してる箇所があるので、もうちょっと効率よくしたい・・・ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch