表格VBA写一段代码

Question

表格VBA写一段代码在D1写入数据，点击按钮后，就选中表格中这行，如图，看图!

Answer 1

楼主完全可以自行一段查找的宏
然后修改下

手机答复如下
sub aaaa()

set rng=columns(1).find([d1].value)
if not rng is nothing then
rng.entirerow.select
end if

end sub追答

有问题继续反馈吧

追问

没问题，再百度求助下

Answer 2

我会追答

不需要点击按钮

Answer 3

按钮代码：

Sub 查询跳转()
  Dim n As Integer
  n = Application.IfError(Application.Match(Range("D1"), Range("A:A"), 0), 0)
  If n = 0 Then
    MsgBox "没有找到！"
  Else
    Rows(n).Select
  End If
End Sub

效果如图：

追问

在不，百度求助下