怎样让下面的代码:不进行无限循环
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Len(Range("b5")) > 0 Then
Dim i&
i = Range("b" & Rows.Count).End(xlUp).Row
Range("a5").FormulaR1C1 = "=IF(RC[1]<>"""",COUNT(R3C1:R[-1]C)+1,"""")"
Range("a5").AutoFill Range("a5:a" & i)
End If
End Sub
谢谢