返回列表 上一主題 發帖

Delete問題

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-19 10:23 | 顯示全部帖子

Delete問題

Hi~程式如下, 請問不知道為什麼執行過一次, 仍然會有清不乾淨的狀況, 資料大約1~3萬筆, 是哪裡出了問題? 或是先進有比較好的方法可以指導一下:'(
Sub jj()
m = Sheets("Temp1").Range("A1").CurrentRegion.Rows.Count
For i = 2 To m
If Sheets("Temp1").Cells(i, 14).Value = "abc" Then Rows(i).Delete Shift:=xlUp
Next
End Sub
收藏 分享
初學者color

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
2#
發表於 2013-11-19 13:21 | 顯示全部帖子
回復 2# Hsieh

謝謝回復, 請問為什麼會有這樣的差別呢?
初學者color

TOP

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
3#
發表於 2013-11-19 15:11 | 顯示全部帖子
回復 4# owen06

獲益良多, 感謝2位的回覆, 謝謝~~~
初學者color

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題