麻烦大神写代码

zw0713

谢谢！谢谢！谢谢！

Lonzo丶

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. Dim xlApp As Excel.Application
   
4. Dim xlBook As Excel.Workbook
   
5. Dim sh As Excel.Worksheet
   
6. Dim d As Object, myr1, myr2, i, j
   
7.     Set xlApp = New Excel.Application
   
8.     Set xlBook = xlApp.Workbooks.Open("C:\Users\Jing.Zhang\Desktop\Desktop\333\6-12.xlsx") '改成你自己的路径
   
9.     Set sh = xlBook.Worksheets("Sheet2")
   
10.     Set d = CreateObject("scripting.dictionary")
    
11.     myr1 = sh.[b65535].End(3).Row
    
12.         For i = 2 To myr1
    
13.             Set d(sh.Cells(i, 2).Value) = sh.Range(sh.Cells(i, 6), sh.Cells(i, 7))
    
14.         Next
    
15.     myr2 = [b65535].End(3).Row
    
16.         For j = 2 To myr2
    
17.             If Cells(j, 2).Value <> "" Then
    
18.                 If d.exists(Cells(j, 2).Value) Then
    
19.                     Cells(j, 6).Resize(1, 2) = Application.Transpose(Application.Transpose(d(Cells(j, 2).Value)))
    
20.                 End If
    
21.             End If
    
22.         Next
    
23.     xlBook.Close False
    
24. Application.ScreenUpdating = True
    
25. MsgBox "Done"
    
26. End Sub

复制代码

Lonzo丶

另外我有一个疑问，为什么不直接用vlookup函数