°}¦C¦^¶Ç

warhead

½Ð°Ý¤@¤U¡A§Ú­n¦p¦ó±N¤Ñ¼Æ³o­Ó°}¦C¦^¶Ç¨ì¤W­±µM«áÄ~Äò¨Ï¥Î©O?

1. Public Sub µ²§ô¤é´Á1()
   
2. lastrow = Sheet4.[I65536].End(xlUp).Row
   
3.     For µ§¼Æ = 2 To lastrow               
   
4.         §å¦¸ = Sheet4.Cells(µ§¼Æ, 12)
   
5.         SDay = Sheet4.Cells(µ§¼Æ, 14)
   
6.         ¦U¤Ñ¼Æ µ§¼Æ
   
7. End Sub
   
8. Private Function ¦U¤Ñ¼Æ(µ§¼Æ)
   
9.           aa = Cells(µ§¼Æ, 9)      
   
10.          ²Ä´X¦æ = [a:a].Find(aa).Row   
    
11.          ¥kÃä´XÄæ = Cells(²Ä´X¦æ, 1).End(xlToRight).Column - 2
    
12.     ReDim Preserve ¤Ñ¼Æ(¥kÃä´XÄæ - 1)  
    
13.               ¤Ñ¼Æ²Ó¶µ = 3   
    
14.               For i = 0 To ¥kÃä´XÄæ - 1
    
15.             ¤Ñ¼Æ(i) = Cells(²Ä´X¦æ, ¤Ñ¼Æ²Ó¶µ)
    
16.                 ´X¤Ñ = ´X¤Ñ + 1 '¥[¤@¦C
    
17.                 Next i
    
18.               ¦U¤Ñ¼Æ = ¤Ñ¼Æ
    
19. End Function

½Æ»s¥N½X

warhead

¦^´_ 2# jackyq

J¤j~

§Ú§ï¦¨ ¤Ñ¼Æ = ¦U¤Ñ¼Æ( µ§¼Æ ) «á¡Aµ{¦¡Åܦ¨·|¤@ª½¦b Private Function ¦U¤Ñ¼Æ(µ§¼Æ) ³o¸Ì­±¤@ª½°õ¦æ¤£·|¦^¨ì­ì¨Óªº¦a¤è¡A

«á¨Ó§â³o¬q¾ã¦U®³±¼«á¡Aµo²{¥L´N¥¿±`¤F¡A¥L¨ä¹ê¬O¥i¥H¶Ç¦^¥hªº¡C

ÁÂÁÂ:loveliness:

jackyq

¤Ñ¼Æ = ¦U¤Ñ¼Æ( µ§¼Æ )

ok???