oobird

1. Sub XX()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. a = [FLOOR(MID($A$2,3,2)*7+DATE(2000+LEFT($A$2,2),1,1),7)-12]
   
4. For i = 0 To 6
   
5. d(Format(a + i, "ddd")) = Format(a + i, "yyyy/m/d")
   
6. Next
   
7. For Each c In Range([b4], [b65536].End(3))
   
8. c(1, 0) = d(Application.Proper(c.Value))
   
9. Next
   
10. End Sub

複製代碼

B1.rar (7.6 KB)

下載次數: 10

2011-1-27 22:09