excel - 如果在单元格上找到特定值，则删除范围内的所有单元格 - VBA

Question

我需要执行以下操作:
如果在特定列中找到给定条件，则需要从 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

不幸的是，这不起作用，知道原因吗？
谢谢，
马泰奥

Answer 1

你犯了一个非常常见的新手错误。你需要改变

For RowFINE = 1 To LastRowDati2

至

For RowFINE = LastRowDati2 to 1 step -1

这意味着您现在不会更改迭代的范围。使用当前代码删除第 3 行时，第 4 行会自动变为第 3 行，但 Rowfine 不知道这已经发生。所以增加到 4，这样你就有效地跳过了一行。