basarasy

回復 1# aoss98

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro   
   
4. MyBRow = 1
   
5. MyANo = 1   
   
6.    
   
7.     Range("B65536").Select
   
8.    Selection.End(xlUp).Select   
   
9.    MyRow = Selection.Row   
   
10.     Do   
    
11.     If Range("B" & MyBRow).Value = "" Then   
    
12.     MyBRow = MyBRow + 1   
    
13.     MyANo = MyANo + 1
    
14.     Else     
    
15.     Range("A" & MyBRow).Value = MyANo   
    
16.     MyBRow = MyBRow + 1        
    
17.     End If   
    
18.     Loop Until MyBRow = MyRow + 1           
    
19. End Sub

複製代碼

我只會用一般的vba ><