【マクロ】フラグを立てる

C列～G列の3行目からどこかに1が入っていればJ列に1と入れる。

何も入っていなければNGと入れ、文字列であればハイフンを入れる。

Sub A()
Dim i As Long
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("C" & i & ":G" & i), 1) > 0 Then
Cells(i, "J") = '1が入っていれば1を返す
ElseIf WorksheetFunction.CountBlank(Range("C" & i & ":G" & i)) = 5 Then
Cells(i, "J") = "NG"　'空欄であればNGを返す
Else
Cells(i, "J") = "-"　'文字列であればハイフンを返す
End If
Next
End Sub