- 帖子
- 396
- 主題
- 12
- 精華
- 0
- 積分
- 425
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-7-2
- 最後登錄
- 2022-7-26
  
|
本帖最後由 owen06 於 2014-11-21 11:29 編輯
回復 1# lionliu
請問是要讓本來空白的chkno欄，自動產生出編號嗎？
如果是的話試試看這樣。- Sub chkno()
- Dim rcnt As Integer
- Dim i, J As Integer
- rcnt = Cells(Rows.Count, 2).End(xlUp).Row
- For i = 5 To rcnt
-
- If Cells(i, 3) <> Empty Then
- J = J + 1
- Cells(i, 1) = J
-
- Else
- Cells(i, 1) = ""
-
- End If
-
- Next i
- End Sub
|
|
發表於 2014-11-21 11:25
| 