>>650
これ試してみ

Sub macro1()
For i = 1 To 10
Cells(i, 1) = 0.1
Next i

Cells(12, 1) = 0
For i = 1 To 10
Cells(12, 1) = Cells(i, 1) + Cells(12, 1)
Next i

If Cells(12, 1) = 1 Then
Cells(13, 1) = "1です"
Else
Cells(13, 1) = "1ではありません"
End If
End Sub