ikboy

1. Sub zz()
   
2. Selection.Clear
   
3. Dim a, b(), r&, c&, n&, f$, t As Boolean
   
4. a = [a1].CurrentRegion
   
5. r = UBound(a) - 1
   
6. c = (UBound(a, 2) - 3) / 2
   
7. ReDim b(1 To r * c, 1 To 3)
   
8. t = True
   
9. For i = 2 To UBound(a)
   
10.     For j = 4 To UBound(a, 2) Step 2
    
11.         If IsDate(a(i, j)) Then
    
12.             If t Then f = Cells(i, j).NumberFormatLocal: t = false
    
13.             n = n + 1
    
14.             b(n, 1) = a(i, 2)
    
15.             b(n, 2) = a(i, j)
    
16.             b(n, 3) = a(i, j + 1)
    
17.         End If
    
18.     Next
    
19. Next
    
20. With Cells(2, UBound(a, 2) + 2)
    
21.     .Resize(n, 3) = b
    
22.     .Offset(0, 1).Resize(n).NumberFormatLocal = f
    
23.     .Resize(n, 3).Sort Cells(2, UBound(a, 2) + 2).Offset(0, 1)
    
24. End With
    
25. End Sub

½Æ»s¥N½X

ikboy

¦^´_ 3# qaqa3296

Sorry, ¦h¤F²Ä2¦æ,½Ð§R¥h¦A¸Õ¡C