Question

Excel中用两个条件来查找数据

做了一个简易的例子，用一个条件查找的时候，出力的结果跟预想一样。用两个条件查找的时候就出问题了，求vba大神给指点一下。图一是要被查询的数据，图二是用一个条件查找数据的代码，下面的代码是用两个条件查找时的代码。Sub macro1() Dim rngSearchWord As Range Dim rngSearchWord_a As Range Dim strFirstAddress As String Dim blnHitWordFlg As Boolean With Sheets(1) For i = 1 To 3 Set rngSearchWord = .Columns(i).Find("A", LookAt:=xlPart) If Not rngSearchWord Is Nothing Then strFirstAddress = rngSearchWord.Address Do blnHitWordFlg = True If blnHitWordFlg = True Then MsgBox rngSearchWord.Address(0, 0) & "_行:" & rngSearchWord.Row 'add_start Set rngSearchWord_a = .Rows(rngSearchWord.Row).Find("B", LookAt:=xlPart) MsgBox rngSearchWord_a.Address(0, 0) & "_行:" & rngSearchWord_a.Row 'add_end End If Set rngSearchWord = .Columns(i).FindNext(rngSearchWord) If rngSearchWord Is Nothing Then Exit Do Loop Until strFirstAddress = rngSearchWord.Address End If Next End With End Sub
代码部分有点乱，我再重新贴张图。





Answer 1

主要是你代码里面用了两个Find，这时不应该再用FindNext，
你的本意是 Find（A），再Find（B），再找下一个A，FindNext
但是实际上你这时FindNext是执行找下一个B。
将FindNext，改为：
Set rngSearchWord = .Columns(i).Find("A", After:=rngSearchWord LookAt:=xlPart)
并且将If rngSearchWord Is Nothing Then
的判断改为将第一次查找的Range或Address赋值给一个变量，判断这时的Range 或Address是不是等于第一个。
其他可能产生的影响根据调试情况进行更改。

Answer 2

你能不能长话短说哦

追问

数据部分每行都有A和B, 为什么使用图3的代码只选出来了后两行的数据。