用VBA代码快速一键查询上万条数据

tanglf188

一个函数就能解决了，VBA反倒累赘了

gwjkkkkk

大家用字典，我用纯数组来一个，参与一下。。。
Sub TEST1()
Dim arr, brr, i&, j&, R&
arr = [a1].CurrentRegion
brr = Sheets(2).[a1].CurrentRegion
For i = 2 To UBound(arr)
  For j = 2 To UBound(brr)
     If brr(j, 2) = arr(i, 2) Then
        For k = 3 To UBound(arr, 2)
           arr(i, k) = brr(j, k)
        Next k
        Exit For
     End If
  Next j
Next i
Columns(2).NumberFormatLocal = "@"
[A21].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

gwjkkkkk

请参考附件。。。

lixiaoxue

ykcbf1100 发表于 2022-11-25 13:54
是这意思吗？

every good!非常正确，简洁！

Hontyu

  参与一下

Hontyu

.................

fzxba

1. Sub test1()
   
2.   Dim Conn As Object, SQL As String
   
3.   Set Conn = CreateObject("ADODB.Connection")
   
4.   Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
5.   Sheet1.Activate
   
6.   SQL = ActiveSheet.Name & "$A1:B" & Range("B65536").End(xlUp).Row
   
7.   SQL = "SELECT a.*,来源,产品,货架区,对应区域 FROM [" & SQL & "] a LEFT JOIN [数据表$] b ON a.出仓码=b.出仓码 "
   
8.   Range("A2").CopyFromRecordset Conn.Execute(SQL)
   
9.   Conn.Close
   
10.   Set Conn = Nothing
    
11.   Beep
    
12. End Sub

复制代码