请问直接复制这段代码能用吗?不能的话能否给一段完整代码?谢谢!
追答Sub 查找()
If Not UsedRange.Find("AB123", lookat:=xlWhole) Is Nothing Then
x = UsedRange.Find("AB123", lookat:=xlWhole).Row
MsgBox "你查找的值在第" & x & "行"
End If
End Sub
运行时错误:424,要求对象
大神,这是什么情况?
下载我给的表看看
谢谢!这回可以了,另外再问一下有没有办法一打开excel就自动运行这个宏呢?
追答将代码改为
Private Sub Workbook_Open()
f Not UsedRange.Find("AB123", lookat:=xlWhole) Is Nothing Then
x = UsedRange.Find("AB123", lookat:=xlWhole).Row
MsgBox "你查找的值在第" & x & "行"
End IfEnd Sub
我不是想要弹出框,而是想把这个行数赋给一个变量,能不能给一段完整代码(直接复制就能用的那种)
谢谢!
不明白,这样吗,变量r
Sub kk()
dim r(0 to 500,1 to 2)
For Each v In Selection
If v.Value = "aa" Then r(i,1)=v.Row :i=i+1
Next
End Sub