返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-11-19 11:05 | 只看該作者
回復 1# color790


   For i = m To 2 step -1
學海無涯_不恥下問

TOP

color790

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

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

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2013-11-19 13:37 | 只看該作者
回復 3# color790


i=2 to m,從上往下刪，會有儲存格上移的情形，
假如(3,14)跟(4,14)都是abc，而i執行到3時，會先把(3,14)刪掉，然後原本的(4,14)取代成(3,14)，
可是此時i已經變成4了，他就不會再去刪(3,14)的那個abc了，就會發生疏漏的情形。
所以要用倒回來的方式。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2013-11-19 13:42 | 只看該作者
回復 3# color790
這問題論壇有討論到
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i
  4.     For i = 1 To 10
  5.         Cells(i, "a").Select   '視窗調整成圖示,看看位置變化
  6.         Cells(i, "a").Delete
  7.     Next
  8. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

color790

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

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

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
7#
發表於 2013-11-19 22:25 | 只看該作者
本帖最後由 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

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題