Question

vba序列号达到如下效果

e列不等空，f列序列号。如图：注意从大到小。

Answer 1

在工作表上右键单击——查看代码——把下面代码粘上按F5
Sub 序号()
Dim Rowcount As Single, i As Single, j As Single
Rowcount = Range("a65536").End(xlUp).Row
i = Int(Rowcount / 6)
For j = 1 To Rowcount
If j Mod 6 = 0 Then
Cells(j, 2) = i
i = i - 1
End If
Next
End Sub

追问

你答不对题，不要骚乱，我是学习解决问题。