excel中通过判断ci单元格中数据是否“是”，如果符合的话bi+1=bi的值+1，为啥不能持续运行，求指导

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
For i = 3 To 100
Range("d" & 2) = ("=COUNTA(c3:c100)")
If i = Range("d" & 2) + 1 Then
Exit For
Else
If Range("c" & i) = "是" Then
Range("b" & i + 1) = Range("b" & i) + 1
Else
Range("b" & i + 1) = ""
End If
End If

Next
End Sub

你这看着没问题,可以持续运行。
但是你这个else这个地方写的有点问题吧,如果当前行C列不为"是"那么就会把下一行B列的值清空了。当下一行C列值为"是"时他的值已经被清空了，他的下一行就进行【空+1】只能得到1了，可能不符合你的预期