EXCEL 宏 符合条件的单元格行号提取
发布网友
发布时间:2022-05-06 22:59
我来回答
共2个回答
热心网友
时间:2023-10-22 20:32
Sub 行号()
Dim x As Long
x = InputBox("请输入要查找的数字:")
For r = 1 To [A65536].End(xlUp).Row
If Cells(r, 1) = x Then n = n & "," & r
Next r
MsgBox Mid(n, 2)
End Sub
热心网友
时间:2023-10-22 20:33
Dim rag As Range
For Each rag In Range("A:A")
If rag.Value = 5 Then
n = rag.Row
MsgBox (n)
End If
Next