lpk187

¦^´_ 1# toromru

1. Option Explicit
   
2. 
   
3. Public Sub ex()
   
4. Dim I As Date
   
5. Dim r%, dN%, j%
   
6. r = 1
   
7. dN = DateSerial(Year(Date), Month(Date) + 2, 0) - DateSerial(Year(Date), Month(Date) + 1, 1) + 1 '­pºâ¦¸¤ë¦³´X¤Ñ
   
8. For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step dN '
   
9.         For I = DateSerial(Year(Date), Month(Date) + 1, 1) To DateSerial(Year(Date), Month(Date) + 2, 0) '¶ñ¼g¤é´Á
   
10.             If Cells(r, 1) <> "" Then '¹J¨ìAÄ榳ªÅ¥Õ¡A´N°±¤î
    
11.                 Cells(r, 2) = Format(I, "m/ d")
    
12.                 r = r + 1
    
13.             End If
    
14.         Next
    
15. Next
    
16. End Sub

½Æ»s¥N½X