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

Question

我是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

有什么建议吗？

Answer 1

Range.Find有一个参数LookAt，其选项可以是以下之一

使用lookat:=xlPart代替lookat:=xlWhole