[發問] 如何在將比對後的資料，填入非連續區域的儲存格內

sptakung1

請教各位前輩及先進，如何在『出勤資料表』中找出正確的對應值填入『值班津貼』工作表內。

Hsieh

回復 1# sptakung1

1. Sub Ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet3
   
4.   For Each A In .Range(.[A2], .[A2].End(xlDown))
   
5.      For Each c In A.Offset(, 1).Resize(, 4)
   
6.         d(A & c) = A.Offset(, 5)
   
7.      Next
   
8.   Next
   
9. End With
   
10. With Sheet6
    
11. For i = 5 To 35
    
12.   For j = 4 To 70 Step 3
    
13.   mystr = .Cells(3, i) & .Cells(j + 1, 1)
    
14.   .Cells(j, i) = d(mystr)
    
15.   Next
    
16. Next
    
17. End With
    
18. End Sub

複製代碼

sptakung1

非常感謝超版大大的幫忙，完全符合需求，非常感謝。