VBA多条件查询

zh2783458

怎样同时满足条件B1、B2、D1、D2、G1、G2六个条件，利用VBA从全年数据表中查询出符合第三行条件的内容？谢谢！

看见星光

1. Sub DataCount()
   
2.     Dim arr, brr, i&, j&, k&
   
3.     Dim dat, nCode, nCode1, nCode2, dat1, dat2
   
4.     arr = Sheets("全年数据").[a1].CurrentRegion
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     dat1 = Val([b1]): dat2 = Val([b2])
   
7.     nCode1 = Val([d1]): nCode2 = Val([d2])
   
8.     For i = 2 To UBound(arr)
   
9.         dat = Val(arr(i, 8))
   
10.         nCode = Val(arr(i, 1))
    
11.         If dat >= dat1 And dat <= dat2 Then
    
12.             If nCode >= nCode1 And nCode <= nCode2 Then
    
13.                 k = k + 1
    
14.                 For j = 4 To 12
    
15.                     brr(k, j - 3) = arr(i, j)
    
16.                 Next j
    
17.                 brr(k, 10) = arr(i, 14)
    
18.                 brr(k, 11) = arr(i, 16)
    
19.             End If
    
20.         End If
    
21.     Next i
    
22.     ActiveSheet.UsedRange.Offset(3).ClearContents
    
23.     If k Then
    
24.         Range("a4").Resize(k, 11) = brr
    
25.         MsgBox "ok"
    
26.     End If
    
27. End Sub

复制代码

看见星光

VBA多条件查询r.rar (18.07 KB, 下载次数: 31)

2018-6-15 11:24 上传

点击文件名下载附件

zh2783458

看见星光 发表于 2018-6-15 11:24

非常感谢看见星光老师的及时回复，但在流水账表中A列和B列显示的是科目名称，而我需要的是科目代码，另外再增加了 一个查询条件，恳请老师有空时，再帮我解决一下，谢谢！