owen06

回復 1# lionliu


    請問是要讓本來空白的chkno欄，自動產生出編號嗎？
    如果是的話試試看這樣。

1. Sub chkno()
   
2. Dim rcnt As Integer
   
3. Dim i, J As Integer
   
4. rcnt = Cells(Rows.Count, 2).End(xlUp).Row
   
5. 
   
6. For i = 5 To rcnt
   
7.    
   
8.     If Cells(i, 3) <> Empty Then
   
9.      J = J + 1
   
10.     Cells(i, 1) = J
    
11.   
    
12.     Else
    
13.     Cells(i, 1) = ""
    
14.         
    
15.     End If
    
16. 
    
17. Next i
    
18. End Sub

複製代碼

owen06

回復 3# lionliu


    下次當發生這種不知道自己寫的程式哪邊有問題的時候，就按f8逐行執行，
    看看設定變數的變化，這樣就能發現問題出在哪了。