根据Excel Mac中的某个单元格值删除行

Question

我一直在尝试从Excel文件中删除数百行，其中每行都有一个包含单词“ V1”的单元格。我设法在网上找到一些与我的问题有关的VBA代码。

Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
End Sub

不幸的是，每次我运行代码以选择单元格范围并输入“ V1”作为删除行的值时，都会收到错误消息“运行时错误'13'：类型不匹配”。我不知道该怎么办。