Sub 読み込みと削除() Dim FilePass As Variant Dim FileName As String Dim ShCount As Long ShCount = ThisWorkbook.Worksheets.Count 'VBAの書かれたファイルのシート数 'ダイアログを開いてファイルを指定 FilePass = Application.GetOpenFilename("Exce…