列中的行数为未知行数

我刚刚开始用VBA编程。 我想问你如何添加一个排名函数来计算整列数据的排名。 我在B列有数据，我想在A列中排名。

现在我可以做1行（A2），但我想macros继续，直到B列中有一个空行，我不想在查询中键入一个严格的范围，因为有可能，更多的行将是在未来增加。

请，你能帮我吗？ 你是最棒的！ 先谢谢你

Answer 1

考虑：

Sub dural() Dim N As Long N = Cells(Rows.Count, "B").End(xlUp).Row Range("A2:A" & N).Formula = "=rank(B2,B$2:B" & N & ")" End Sub