<em>excel</em> <em>vba</em>如何查询某<

实现代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Intersect(Rows(Target.Row), Target.CurrentRegion).Select
Target.Activate
End Sub

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，百是微软开发出来在其桌面应用程序中执行通用的自动化度(OLE)任务的编程语言。

由于微软Office软件的普及，人们常见的办问公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率，例如：通过一段VBA代码，可答以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表内中，自动生成按合同号来跟踪生产量、容入库量、销售量、库存量的统计清单）等。

1、可以用InStr(查找的百单元格或文本,查找的内容)这个来查找，用“.row”来获取行号
假设你要查找A列里包含“中国”内容的单元格可以这么写度
For i = 1 To Cells(65536, 1).End(xlUp).Row '获取A列最后一个问含有数值单元格的位置，并设定循环数
If InStr(Cells(i, 1), "中国") Then '如果单元格中含有“中国”则将行号显示到答B列相应的单元格中
Cells(i, 2) = Cells(i, 1).row
End If
Next i

2、获取数据的话可以用“变量=cells(行号,列号)”来获取

不过我对VBA属于回初学，肯定还有比我这个跟好的写法，所以写的有什么的不对的地方还请见谅^答_^
首先确定查找范围zhidao,其次要注明是精确查找，还是模糊查找
我以版所有单元格内精确查找权为例。

sub 查找()
if not usedrange.find("AB123",lookat:=xlwhole) is nothing then
x=usedrange.find("AB123",lookat:=xlwhole),row
end if
end sub

Sub Find_Fun()
Dim What As String
Dim n As Integer
What = InputBox("请输入知查找道内容内", "查找功能容")
n = 1
Do While n = 1
Set Rng = ActiveSheet.UsedRange.Find(What)
If Rng Is Nothing Then
MsgBox ("没有该值")
Else
MsgBox "查找值在:"&(Chr(64 + Rng.Column) & Rng.Row)
Rng.Select
n = n + 1
End If
Loop
End Sub