实例讲解利用EXCEL的VBA实现多条件查询数据

利用EXCEL的VBA实现多条件查询数据,officeba以下例实现查询品种A在2005年12月份的进价
    月份       品种名称   数量 单价 金额
2005年11月份 A 10 2.6 26
2005年11月份 B 20 3 60
2005年11月份 C 30 3.5 105
2005年12月份 A 15 2.55 38.25
2005年12月份 B 5 3.2 16
2005年12月份 C 8 3.8 30.4
2006年01月份 A 50 2.58 129
2006年01月份 B 28 3.1 86.8
2006年01月份 C 39 3.6 140.4

具体VBA解决方案如下，
Sub Test()
Dim CR As Range
Dim tStr As String
Dim fStr1 As String, fStr2 As String
fStr1 = "08年12月份"
fStr2 = "A"
With ActiveSheet.Range("A:A")
     Set CR = .Find(fStr1, LookIn:=xlvalues)
     If Not CR Is Nothing Then
         tStr = CR.Address
         Do
             If CR.Offset(0, 1) = fStr2 Then
                 MsgBox "找到数据!在第" & CR.Row & "行!"
                 Exit Sub
             End If
             Set CR = .FindNext(CR)
         Loop While Not CR Is Nothing And CR.Address <> tStr
     Else
         MsgBox "没有找到数据!"
     End If
End With
End Sub
大家可以分析下这个VBA过程。