- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-11-20
- 最後登錄
- 2022-9-27
|
Sub aanb()
Csh = ActiveSheet.UsedRange.Rows.Count '以 整個SHEET最後一筆資料
For i = Csh To 2 Step -1 '從最後面開始作業
If Cells(i, 11) = "" Then Rows(i).Delete '如果空白則刪除
Next
End Sub |
|
發表於 2015-11-25 11:26
| 