Private Sub CommandButton1_Click()
Dim a, i, j
a = Cells(4, 4) '要输入的数值
For i = 1 To 10000 '如果数据行数太大,就加到100000
If (Cells(i, 1) = a) Then '判断是还为输入值
Rows(i).Select
GoTo GG
End If
Next
GG:
End Sub
如果只是突出显示可以用条件格式,如果要选中,只有VBA了
你去自学网站看看 里面有EXCL的教程 看看能不能帮你解答
在附件的黄色单元格中输入数值试试。
这个需要VBA显示