- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
本帖最後由 luhpro 於 2013-11-19 22:27 編輯
回復 6# color790
這邊提出一點 : 其實要從上到下依序刪列也是沒問題的,
只需要配合 Do...While 並於刪列時不做遞增列號的動作即可,
甚至這樣的方式連資料末列都不用預先計算是第幾列,
且刪完當下即可透過 (列號減一) 得知剩餘資料筆數.
Sub jj()
i = 2
With Sheets("Temp1")
Do While .Cells(i, 1) <> ""
If .Cells(i, 14) = "abc" Then
Rows(i).Delete Shift:=xlUp
Else
i = i + 1
End If
Loop
End With
Msgbox "經過篩選, 剩餘資料共 " & i-1 & " 筆"
End Sub |
|
發表於 2013-11-19 22:25
| 