类型不匹配，无法操作

awen7878

Sub 身份证查询()
Dim sf  As long

Dim t As byte

For sf = 2 To 271965 Step 1

  If Worksheets("基础数据").Cells(sf, 2).Value = Worksheets("查询窗口").Cells(2, 1).Value Then

  t = Application.WorksheetFunction.CountA(Worksheets("查询窗口").Range("b:b"))

      Worksheets("查询窗口").Range("b" & t + 1).Value = Worksheets("基础数据").Range("a" & sf).Value
      Worksheets("查询窗口").Range("c" & t + 1).Value = Worksheets("基础数据").Range("c" & sf).Value
      Worksheets("查询窗口").Range("d" & t + 1).Value = Worksheets("基础数据").Range("d" & sf).Value
      Worksheets("查询窗口").Range("e" & t + 1).Value = Worksheets("基础数据").Range("e" & sf).Value
      Worksheets("查询窗口").Range("f" & t + 1).Value = Worksheets("基础数据").Range("f" & sf).Value
      Worksheets("查询窗口").Range("g" & t + 1).Value = Worksheets("基础数据").Range("g" & sf).Value
    End If

Next sf
MsgBox "查询完毕"
End Sub
请高手看看哪里出了问题，如何解决。谢谢

abc123281

如果真有271965行数据   建议使用数组 或者其他方法
建议上传附件  并说明详细要求

microyip

没有附件，只能猜，估计是t获取错了，可能B列是个不连续的数据

awen7878

附件已经上传，真的数据接近30万条，数组公式无法计算

chxw68

1. Sub test()
   
2.   Dim r&, i&
   
3.   Dim arr, brr
   
4.   With Worksheets("查询窗口")
   
5.     sfz = .Range("b2")
   
6.   End With
   
7.   With Worksheets("基础数据")
   
8.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.     arr = .Range("a2:g" & r)
   
10.     For i = 1 To UBound(arr)
    
11.       If arr(i, 2) = sfz Then
    
12.         Exit For
    
13.       End If
    
14.     Next
    
15.   End With
    
16.   If i <= UBound(arr) Then
    
17.     With Worksheets("查询窗口")
    
18.       .Columns(2).NumberFormatLocal = "@"
    
19.       .Range("a2").Resize(1, UBound(arr, 2)) = Application.Index(arr, i, 0)
    
20.     End With
    
21.   Else
    
22.     MsgBox "没有查询到符合条件数据！"
    
23.   End If
    
24. End Sub
    

复制代码

chxw68

详见附件。