Sub 入力規則を削除() Range("A1").Validation.Delete 'A1の入力規則を削除 Cells.Validation.Delete 'シート全体の入力規則を削除 End Sub