[算表] 某欄位的值小於10就自動刪除某一行的問題
軟體: excel
版本: 2003
Sub marco()
For i = 1 To 50
With Cells(i, 1)
If .Value < 10 Then Rows((i) & ":" & (i)).EntireRow.Delete Shift:=xlUp
End With
Next i
End Sub
小弟剛開始學習使用VBA 首先有個問題 就是上述的條件
A
1 10
2 8
3 15
4 7
5 6
6 7
7 20
我執行以後會遇到一個問題
A4 整行刪除了 所以A5整行會向上遞補 但是程式已經去檢查A5(也就是原來的A6)
以至於A5那一行沒有刪除到
請問有什麼方法可以解決的嗎?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.167.70.21
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
