- 帖子
- 23
- 主題
- 5
- 精華
- 0
- 積分
- 46
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-9-20
- 最後登錄
- 2020-6-19
|
回復 2# GBKEE
請問一下各位大大
這個公式是當N欄位的值為0的時後，刪除一整列
Option Explicit
Sub Ex()
Dim R As Range, Rng As Range
For Each R In ActiveSheet.Range("N:N").SpecialCells(xlCellTypeConstants).Rows
If Not IsError(Application.Match(0, R, 0)) Then
If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(R, Rng)
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub
若要改成N欄位的值超過1800的時後，刪除一整列
請問要如何進行修改?
感謝!! |
|
發表於 2012-9-20 13:18
| 
