§PÂ_Àx¦s®æ¬O§_¦³«_¸¹.rar (6.49 KB)
¸Ô¦pªþ¥ó¡A¦bBÄæ¤â°Ê²£¥Í«á¡AA¡BCÄæ¦Û°Ê²£¥Í(ºc«ä¦p¤U)
For i = 2 to
if cells(i,2) ¦³«_¸¹ Then
cells(i,1) = ROW()-1
Na = cells(i,2)
else
cells(i,3) = Na
Next
¦ý¬O¬d§ä¤Fºô¸ô¥u¦³§ä¨ìSet cell = Range("B1:B2000").FIND(":", LookIn:=xlValues, LookAt:=xlPart)
®M¥Î¨ì°j°é¤£ª¾¬O§_¦³Ãþ¦üªº¼gªk¡HÁٽЫe½ú̧iª¾¡A·P¿E¤£ºÉ¡I |