老师们！新年好！求助代码

sidneyheyong

各位老师！新年好！求助一个代码。谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.2.19
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("加班明细")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 20)
   
8.     End With
   
9.     For i = 4 To UBound(arr)
   
10.         s = arr(i, 2)
    
11.         d(s) = arr(i, 20)
    
12.     Next
    
13.     With Sheets("工资总表")
    
14.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
    
15.         For i = 6 To r
    
16.             s = .Cells(i, 2)
    
17.             If d.Exists(s) Then
    
18.                 .Cells(i, 6) = d(s)
    
19.             Else
    
20.                 .Cells(i, 6) = ""
    
21.             End If
    
22.         Next
    
23.     End With
    
24.     Set d = Nothing
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

limonet

函数也是excel的精华，=IFNA(VLOOKUP(B6,加班明细!B:T,19,),0)

明天会更好zj

简单公式能搞定的，不必要用代码=IFERROR(VLOOKUP(B6,加班明细!B:T,19,),"")

sidneyheyong

非常的谢谢2位老师！结果OK

saghj

sidneyheyong

再一次感谢老师们的解答

grf1973

wps版本。。

sidneyheyong

VBA代码我还没有学到数组这里来，最好是 不用数组的一个代码。谢谢！