Question

vba如下代码为何不显示后面序号，如图，请帮忙改正。

如下代码是B列不为空，C列从大到小显示序号，但后面有一部分序号不显示，错在哪？
Sub 序号()
Dim i As Integer, j As Integer
j = Application.WorksheetFunction.CountA(Sheet1.Range("B2:B30"))
For i = 2 To j
If Range("b" & i) <> "" Then
Range("c" & i) = j
j = j - 1
End If
Next i
End Sub

Answer 1

For i = 2 To j

改成

For i = 2 To cells(rows.count,"B").end(3).row