两表符合三个值相同时，在对应栏写入值

尼克松

此表上有三栏值需要与“报销明细（结果是用透时表计算的值）”与本表的“月份、部门名称、金额”三者一致时，在本表填写入当前日期，“经手人”填写入--李四

谢谢！

liulang0808

楼主的这个需求，使用字典进行匹配吧
或者直接使用for遍历也可以的

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("报销明细").[a3:j18]
   
5.     For j = 3 To UBound(arr)
   
6.         For i = 2 To 10
   
7.             If Len(arr(j, i)) > 0 Then
   
8.                 d(arr(2, i) & arr(j, 1) & arr(j, i)) = ""
   
9.             End If
   
10.         Next i
    
11.     Next j
    
12.     arr = [a1].CurrentRegion
    
13.     For j = 2 To UBound(arr)
    
14.         If d.exists(arr(j, 1) & arr(j, 2) & arr(j, 3)) Then
    
15.             arr(j, 4) = Date
    
16.             arr(j, 5) = "李四"
    
17.         End If
    
18.     Next j
    
19.     [a1].CurrentRegion = arr
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

尼克松

liulang0808 发表于 2017-11-10 16:51
附件内容供参考。。。。。。

谢谢！非常感谢！

尼克松

liulang0808 发表于 2017-11-10 16:50

http://club.excelhome.net/thread-1380707-1-1.html

大神帮帮忙！谢谢！