我需要執行以下操作:
如果在特定列中找到給定條件,則需要從 Excel 表中的資料范圍中洗掉所有值,這是我撰寫的代碼:(洗掉第一個單元格中具有 FLWE 或 FW 的所有行)
Sub cancellaflw()
Dim RowFINE, LastRowDati2 As Long
With ThisWorkbook.Sheets("Dati")
RowFINE = 1
LastRowDati2 = ThisWorkbook.Sheets("Dati").Cells(Rows.count, 1).End(xlUp).Row
For RowFINE = 1 To LastRowDati2
If .Cells(RowFINE, 1) Like "FLWE*" Or .Cells(RowFINE, 1) Like "FW*" Then
.Range("A" & RowFINE & ":X" & RowFINE).Delete
RowFINE = RowFINE - 1
End If
Next RowFINE
End With
End Sub
不幸的是,這不起作用,知道原因嗎?
謝謝, 馬特奧
uj5u.com熱心網友回復:
你犯了一個非常常見的新手錯誤。你需要改變
For RowFINE = 1 To LastRowDati2
到
For RowFINE = LastRowDati2 to 1 step -1
這意味著您現在不會更改迭代的范圍。使用當前代碼洗掉第 3 行時,第 4 行會自動變為第 3 行,但 Rowfine 不知道這已經發生。所以增加到 4,這樣你就有效地跳過了一行。
轉載請註明出處,本文鏈接:https://www.uj5u.com/qiye/435205.html
