单条查询为什么报错，如何处理？望高手指点

kou666

做了个查询模板，发现单条查询时报错，望高手指点，谢谢！

gdw831001

这种用高级查询，录个宏改下就可以，效率还高

gdw831001

是    高级筛选               

kou666

gdw831001 发表于 2018-4-25 18:52
是    高级筛选

谢谢，回复！由于数据比较多，几万条，实际查询应用时的条数是随机的，几条到几百条，所以用VBA来做，只是偶尔发现单条查询时会报错。搞不懂！所以希望高手们指点一下，谢谢！

372C

Sub 查询()
  Dim i%, lr%
  Dim ar, br, cr
  Dim d
  Application.ScreenUpdating = False
   Set d = CreateObject("Scripting.Dictionary")
       With Sheets("总表")
        lr = .[a65536].End(3).Row
        ar = .Range("a1:e" & lr)
        For i = 2 To UBound(ar)
            d(ar(i, 1)) = i
        Next i
    End With
    With Sheets("查询")
        lr = .[a65536].End(3).Row
        br = .[a1].Resize(lr)
        ReDim cr(1 To lr - 1, 1 To 4)
        For i = 1 To UBound(br) - 1
            If d.exists(br(i + 1, 1)) Then
                cr(i, 1) = ar(d(br(i + 1, 1)), 2): cr(i, 2) = ar(d(br(i + 1, 1)), 3)
                cr(i, 3) = ar(d(br(i + 1, 1)), 4): cr(i, 4) = ar(d(br(i + 1, 1)), 5)
            End If
        Next i
        .[b2:e65536].ClearContents
        .[b2].Resize(UBound(cr), 4) = cr
    End With
    Application.ScreenUpdating = True
End Sub

kou666

372C 发表于 2018-4-25 19:04
Sub 查询()
  Dim i%, lr%
  Dim ar, br, cr

你好，谢谢回复！按你的代码执行了一下，问题还是没有解决，而且，多条查询时会出现结果错行.

lsc900707

1. Sub 查询()
   
2.   Dim i%, j%
   
3.   Dim ar, br
   
4.   Dim d
   
5.   Application.ScreenUpdating = False
   
6.    Set d = CreateObject("Scripting.Dictionary")
   
7.        With Sheets("总表")
   
8.         ar = .[a1].CurrentRegion
   
9.         For i = 2 To UBound(ar)
   
10.             d(ar(i, 1)) = i
    
11.         Next i
    
12.     End With
    
13.     With Sheets("查询")
    
14.         br = .[a1].CurrentRegion
    
15.         For i = 2 To UBound(br)
    
16.             For j = 2 To UBound(br, 2)
    
17.                 br(i, j) = ar(d(br(i, 1)), j)
    
18.             Next j
    
19.         Next i
    
20.         .[a1].CurrentRegion = br
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23. End Sub
    

复制代码

lsc900707

附件供测试：

kou666

试了一下，如果把单个数据移到A3单元格，即A2空着，则查询结果正确。难道是因为当单条数据（即只有A2有数据）时，不能作为数组的缘故？希望哪位高手关注一下！

kou666

lsc900707 发表于 2018-4-25 22:22
附件供测试：

谢谢 lsc900707版主回复，这个方法可行，谢谢！能否解释一下，我的代码问题处在那里？谢谢！