小白请大神写段VBA代码,十分感谢!!!

wangdong78

要达到的目的:到文件名"原始数据"里找到与本文件C2相同的"站名"后对应的为同一天日期,且该日期时间须大于本文件F2的日期时间,对应的"原始数据"文件里D2的'运单号'提取放在本文件H2"证明单号"单元格里.十分感谢!!!具体需求在文件里,感谢大神,同时也想请给予推存如何学好VBA,再次谢谢各位!!!

wangdong78

路过的VBA大神请留步,并留下您的高超技艺!谢谢您!!!

鄂龙蒙

1. Sub 查询()
   
2.      Sheet1.Range("H2:I10000").ClearContents
   
3.      Application.ScreenUpdating = False
   
4.      Dim wb As Workbook
   
5.      Set wb = GetObject(ThisWorkbook.Path & "\原始数据.xlsx")
   
6.      ar = wb.Worksheets(1).Range("A1").CurrentRegion
   
7.      wb.Save: wb.Close
   
8.      br = Sheet1.Range("A1").CurrentRegion
   
9.      For x = 2 To UBound(br)
   
10.          For i = 2 To UBound(ar)
    
11.              If br(x, 3) = ar(i, 3) And Day(br(x, 6)) = Day(ar(i, 5)) And _
    
12.                 (Hour(br(x, 6)) * 60 + Hour(br(x, 6))) > (Hour(ar(i, 5) * 60 + Hour(ar(i, 5)))) Then
    
13.                  br(x, 8) = ar(i, 4): br(x, 9) = ar(i, 5)
    
14.              End If
    
15.          Next
    
16.      Next
    
17.     Sheet1.[A1].Resize(UBound(br), UBound(br, 2)) = br
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

wangdong78

鄂龙蒙 发表于 2017-12-8 20:18

十分感谢大神，因为解决了，所以来的有点晚!谢谢您！顺祝您天天好运！