返回列表 上一主題 發帖

[發問] 有關"執行階段錯誤13 型態不符合"問題

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2016-8-29 16:47 | 顯示全部帖子
Sub 刪除_01()
Dim R&, i&
Application.ScreenUpdating = False
With Sheets("未完工維修單")
　　　R = .[B65536].End(xlUp).Row
　　　For i = R To 2 Step -1
　　　　　If Sheets("list_toexcel").[A:A].Find(.Cells(i, 2), Lookat:=xlWhole) Is Nothing Then
　　　　　　.Cells(i, 2).EntireRow.Delete
　　　　　End If
　　　Next
End With
End Sub


最基本的刪除列，須從下而上進行，較不易發生錯誤∼
資料較多的話，有其它方式，但要看完整的表格，是否有其它欄位！
　
　

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2016-8-30 10:24 | 顯示全部帖子
回復 3# waterful

刪除速度快, 是因為加了下面這行,
Application.ScreenUpdating = False '凍結程式執行過程中的畫面變化, 等執行結束再顯示結果
上面那程式是最基本的刪除法, 對新手易懂易寫!

資料若超過數千或上萬筆以上, 就要用其它更具效能的寫法, 相對有些語法較不易理解,
但對VBA有心, 還是要去接觸, 論壇有很多現成的, 可找看看, 或等其他大大看是否有空做個另解!

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題