请教一个语句的写法

天地一相

感谢帮助！如何获得A列自下向上找首个等于某值（如100）的单元格的行号。

cjc209

倒序循环定位

天地一相

cjc209 发表于 2023-3-8 21:36
倒序循环定位

不懂呀，给个句子呢，谢谢。

cjc209

Sub 过程名()
    For i = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Sheet1.Cells(i, 1).Value = 100 Then
            行号 = Sheet1.Cells(i, 1).Row
            Exit For
        End If
    Next
End Sub

cjc209

这么简单的问题            

cjc209

一点基础都没有 就不需学vba 给你代码你可能还是不懂

天地一相

cjc209 发表于 2023-3-8 21:47
一点基础都没有 就不需学vba 给你代码你可能还是不懂

谢谢，下载看了，是我没表述清楚。我想要这个：获得A列自下向上找首个等于某值（如100）的单元格的行号。
我要获得这个值赋值给删除操作。

cjc209

一会儿这样 一会儿那样 行号 定位了 你怎么处理都行 只是加相应代码就行了

gwjkkkkk

Option Explicit
Sub TEST()
    Dim rngFind As Range
   
    With Columns(1)
    Set rngFind = .Find(100, , , xlWhole, , xlPrevious)
        If Not rngFind Is Nothing Then
            MsgBox rngFind.Row
        End If
    End With
   
    Set rngFind = Nothing
End Sub