Cells(y, x).Interior.ColorIndex = 36 Then ,
Cells(y, x).Interior.ColorIndex = 35 Then ,
Cells(y, x).Interior.ColorIndex = 38 Then ,
Cells(y, x).Interior.ColorIndex = 35 Then ,
Cells(y, x).Interior.ColorIndex = 38 Then ,
Range("D" & 3 + 4 * i) ,
Range("D" & 4 + 4 * i) ,
Range("D" & 5 + 4 * i).Value = NC3 ,
Range("F" & 3 + 4 * i)Value = e1 SheetsRange("F" & 4 + 4 * i)Value = e2 SheetsRange, pp.3-9 ,