コピペでもいけます。 Private Sub Worksheet_Change(ByVal Target As Range) Dim wSheet As Worksheet Dim StartCellRow As Integer Dim EndCellRow As Integer Dim CheckCell As String Dim CellRange As String Dim ModVal As Integer '=================…