[已解决]关键词查询

金点子双色球

关键词查询.rar (17.67 KB, 下载次数: 9)

2014-11-20 23:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-21 04:47

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr(1 To 20000, 1 To 7), i%, j&, s&, k%
   
3. nd = [f4]: gjc = [h4]
   
4. n = ActiveSheet.Index + 1
   
5. For i = n To n + 2
   
6.     arr = Sheets(i).UsedRange
   
7.     If InStr(arr(1, 1), nd) Then
   
8.         For j = 4 To UBound(arr)
   
9.             If arr(j, 4) Like "*" & gjc & "*" Then
   
10.                 s = s + 1
    
11.                 For k = 2 To UBound(arr, 2)
    
12.                     brr(s, k - 1) = arr(j, k)
    
13.                 Next
    
14.             End If
    
15.         Next
    
16.     End If
    
17. Next
    
18. [c7:i500].ClearContents
    
19. If s > 0 Then Range("c7").Resize(s, 7) = brr
    
20. End Sub

复制代码

dsmch

………………

金点子双色球

dsmch 发表于 2014-11-21 04:47
………………

老师您好！您太有才了啊，功能基本实现，就是2011年度查询时，提示“下标越界9”。请老师修改一下。谢谢！！！！

baksy

C7单元格复制以下公式，三键回车(公式复制后,点一下公式编辑栏的任意位置,先按住 ctrl、shift 两个键,然后敲enter键)，
横拉、下拉；
=INDEX(OFFSET(INDIRECT(LOOKUP($F$4,{2011,2012,2013},{"上两年数据!","上一年数据!","本年数据!"})&"B1:B999"),,COLUMN()-3),SMALL(IF(ISERROR(FIND($H$4,INDIRECT(LOOKUP($F$4,{2011,2012,2013},{"上两年数据!","上一年数据!","本年数据!"})&"F4:F99"))),999,ROW($4:$99)),ROW(A1)))&""

金点子双色球

金点子双色球 发表于 2014-11-21 09:10
老师您好！您太有才了啊，功能基本实现，就是2011年度查询时，提示“下标越界9”。请老师修改一下。谢谢！ ...

加了一句就好了。非常感谢！设为最佳答案。