日記 シートが複数あると中止
'シートが複数あると中止Dim sht1stop As Stringsht1stop = Sheets.CountIf sht1stop > 1 Then MsgBox "シートが複数あります。" & vbCrLf & "不要なシートを削除...
日記
日記
日記
日記
日記
日記
日記
日記
日記
日記