VBA 判定 チェック メモ

Sub checkd()

'セル i が 空だったら セル AEに 1をいれる それ以外は 0
Dim i As Integer

For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row

If Cells(i, 9).Value = "" Then


Cells(i, 32).Value = "1"

Else

Cells(i, 32).Value = "0"

End If

Next i

End Sub