excel - 在 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'：类型不匹配”。我不知道还能做什么。

标签： excelvba