VBA小应用_满足条件字段后面加字

Sub adde()

For i = 1 To 6 Step 1
If Cells(i, 1).Value < 100 Then _
Cells(i, 1) = Cells(i, 1) & "yes"

Next i

End Sub