从VLOOKUP功能中删除找到的结果行

Question

我做了一个用户表单，你可以在其中查找一个单词，它将返回找到的单词(使用 Vlookup(，你可以添加一个带有定义的新单词到数据库(顺便说一句，数据库只有两列："单词"和"definiton"(。

我还想创建一个删除函数，以便用户可以搜索一个单词，如果系统在数据库中找到一个单词，它会询问它是否是具有正确定义的正确单词，然后它将从单词和定义中删除该行(或只是单词和定义(

这是我的计划：

搜索一个单词 --这是>单词？-->如果是，请删除该单词及其定义

我试图 vlookup 这个词，然后获取 vlookup 结果的地址来删除它，但这不起作用。

有人可以帮助我吗？谢谢！

Answer 1

试图了解您的需求，您可以尝试以下

Sub Find2Delete()
Dim rng As Range
Set rng = Cells.Find(AWord, , XlFindLookIn.xlValues, XlLookAt.xlWhole)
If Not rng Is Nothing Then
if MsgBox ("Delete?", vbYesNo) = vbYes then rng.EntireRow.Delete
End If
End Sub

Answer 2

您可以遵循以下逻辑：

For i = LastRow To FirstRow+1
If Not IsError(Application.Match(Sheet.Cells(i, Column).Value, WordToFind, 0)) Then
Sheet.Rows(i).Delete
End If
Next i