不要シートを削除する Dim i As Long For i = Sheets.Count To 1 Step -1 If Sheets(i).Name Like "★*" Then Else Sheets(i).Delete End If Next ★がついたシートは毎回使用する為削除しない。 ★以外のシートを全て削除する。 For i = Sheets.Count To 1 Ste…

シートをPDFにして保存する。 Dim i As Long Dim Name As String For i = 3 To Sheets.Count Name = ThisWorkbook.Path & _ "￥" & Sheets(i).Name & _ Format(Date, "yyyymmdd") Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name Next ★明細…

明細シートを参照し、まとめシートを作成。 完成したまとめシートを後ろにコピーしていく。 Dim i As Long With Sheets("★明細") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row Sheets("★まとめ").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name …