Vba 找到一个值并删除出现该值的行

我是VBA编程新手，到了一个地步，我被卡住了。。这可能不是太难，但我会感谢任何帮助

基本声明和其他内容：

Dim found As Range
Dim ArtNr As String
Tabelle1.Activate
ArtNr = InputBox("..")
Range("L1") = ArtNr
MsgBox ("..")

以下是关键代码，我想在其中查找以前输入的值并删除出现此值的行：

编辑：要删除的行未被删除

Set found = ActiveSheet.Columns(2).Find _
           (what:=ActiveSheet.Range("L1"), LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then found.EntireRow.Delete

End Sub

有什么建议吗？

有一个参数

LookAt

，其选项可以是以下选项之一

---

使用

lookat:=xlPart

而不是

lookat:=xlother

的方法。使用Autofilter.nope，未更改。。它仍然不会删除这一行它对我有效，尽管我认为它只会找到

范围（“L1”）

lookat:=xlWhole

中的一个实例，可能是因为有一个不需要的空间

xlWhole

表示您正在寻找精确的匹配项。如果您没有寻找精确匹配，请尝试

lookat:=xlPart

问题是单元格中的值有空格，或者在Inputbox中输入的文本有空格。您可以使用

Range（“L1”）=Trim（ArtNr）

处理输入框中的空格，但很遗憾，您无法处理工作表中的空格。要获得精确匹配，必须确保工作表中的单元格没有空格。所以“废话”和“废话”就不一样了