[已解决]条件找最后一个为1的单元格所在行。

跑跑2014

详细情况在工作薄中说明，请高手看 这个要如何写呢，

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-4-10 00:38

1. x = [A:A].Find("1", , xlValues, xlWhole, , xlPrevious).Row

复制代码

跳转到最佳答案楼层

那么的帅

1. x = [A:A].Find("1", , xlValues, xlWhole, , xlPrevious).Row

复制代码

810126769

Sub test()
Dim arr, i&, r&, k&
arr = [a1].CurrentRegion
For i = UBound(arr) To 1 Step -1
    If arr(i, 1) = 1 Then
        r = i
        Exit For
    End If
Next i
End Sub

这个r 就是最后一个为1的行