Question

现在我只列出了a列中列出的部件号，并且在我经常使用的其中一个宏中，部件被添加到其中或从中删除。

这是我正在使用的子目录，用于删除部件号：

Sub DeleteIfVal(rng As Range, val)
    Dim c As Range, del As Range
    For Each c In rng.Cells
        If c.Value = val Then
            If del Is Nothing Then
                Set del = c
            Else
                Set del = Application.Union(del, c)
            End If
        End If
    Next c
    If Not del Is Nothing Then del.Delete
End Sub

现在我希望列表包含有关该部件的其他信息（部件名称，位置等），但是我现在只有基于第一列中的单元格才删除单元而不是整行

Answer 1

通过“Range.EntireRow”获取行本身（而不是其值），然后将其删除。

换句话说，使用：

而不是“del.Delete”

del.EntireRow.Delete

根据单元格的值删除行

1 个答案: