nissin

³o­Ó¥ÎVLOOKUP¤Ó½ÆÂø¤F
¥ÎVBA³B²z¥i¯à·|¤ñ¸û²³æ

nissin

¸Õ¸Õ³o­Ó

1. Sub copydata()
   
2. Dim s1 As Long, s2 As Long, s3 As Long, d1 As Long, d2 As Long
   
3. Dim wages As Long, OT As Long
   
4. 
   
5. i = 1
   
6. While Sheets(1).Cells(i, 1) <> "Á~ª÷"
   
7.     i = i + 1
   
8. Wend
   
9. wages = i
   
10. 
    
11. While Sheets(1).Cells(i, 1) <> "¥[¯Z"
    
12.     i = i + 1
    
13. Wend
    
14. OT = i
    
15. 
    
16. For i = wages To Sheets(1).UsedRange.Rows.Count
    
17.     s1 = Left(Sheets(1).Cells(i, 2), 4)
    
18.     s2 = Mid(Sheets(1).Cells(i, 2), 6, InStr(1, Sheets(1).Cells(i, 2), "¤ë") - 5 - 1)
    
19.     If InStr(1, Sheets(1).Cells(i, 2), "-") <> 0 Then
    
20.         s3 = Mid(Sheets(1).Cells(i, 2), InStr(1, Sheets(1).Cells(i, 2), "-") + 1, Len(Sheets(1).Cells(i, 2)) - (InStr(1, Sheets(1).Cells(i, 2), "-") + 1))
    
21.     Else
    
22.         s3 = 0
    
23.     End If
    
24.     For j = 2 To Sheets(2).UsedRange.Rows.Count
    
25.         d1 = Left(Sheets(2).Cells(j, 1), 4)
    
26.         d2 = Mid(Sheets(2).Cells(j, 1), 6, InStr(1, Sheets(2).Cells(j, 1), "¤ë") - 1 - 5)
    
27.         
    
28.         If d1 * 100 + d2 >= s1 * 100 + s2 Then
    
29.             If s3 <> 0 Then
    
30.                 If d1 * 100 + d2 <= s1 * 100 + s3 Then
    
31.                     If i >= OT Then
    
32.                         Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 3)
    
33.                     Else
    
34.                         Sheets(2).Cells(j, 2) = Sheets(1).Cells(i, 3)
    
35.                     End If
    
36.                 End If
    
37.             Else
    
38.                 If i >= OT Then
    
39.                     Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 3)
    
40.                 Else
    
41.                     Sheets(2).Cells(j, 2) = Sheets(1).Cells(i, 3)
    
42.                 End If
    
43.             End If
    
44.         End If
    
45.     Next j
    
46. Next i
    
47. End Sub

½Æ»s¥N½X