Question

一旦我在vba中设置了一个范围变量，有没有办法根据值删除它中的行和/或列单元？

例如：

Dim Lrange as Range

Set Lrange = Range("A1:E5")

For each row in Lrange
   If cell(Lrange.row, 3).value = "Somestring" Then
       LRange.row.delete
   End if
Next

这是可能的，还是我必须将其存储在工作表中才能操作范围？

欢迎任何建议！

Answer 1

如果你要删除，你应该在行中向后循环：

Dim Lrange                As Range
Dim n                     As Long
Set Lrange = Range("A1:E5")

For n = Lrange.Rows.Count To 1 Step -1
    If Lrange.Cells(n, 3).Value = "Somestring" Then
        Lrange.Rows(n).Delete
    End If
Next

例如。

Answer 2

如果要根据值删除工作表中的行，则以下代码将执行此操作...

Sub DeleteRows()
Dim aRange As Range, aRow As Range, aCell As Range
    Set aRange = Range("A1:E5")
    For Each aRow In aRange.Rows
        For Each aCell In aRow.Cells
            If aCell.Value = "Somestring" Then
                aRow.EntireRow.Delete
                Exit For
            End If
        Next aCell
    Next aRow
End Sub

如果要根据值更改对象在VBA中引用的范围，则以下代码将执行此操作...

Sub DeleteRowsInObject()
Dim aRange As Range, aRow As Range, aCell As Range
Dim bRange As Range, found As Boolean
    Set aRange = Range("A1:E5")
    For Each aRow In aRange.Rows
        found = False
        For Each aCell In aRow.Cells
            If aCell.Value = "Somestring" Then found = True
        Next aCell
        If Not found Then
            If bRange Is Nothing Then
                Set bRange = aRow
            Else
                Set bRange = Union(bRange, aRow)
            End If
        End If
    Next aRow
    Set aRange = bRange
    Set bRange = Nothing
End Sub

你需要注意一个与它的行/列不连续的Range对象，因为一些正常的属性/方法不一定能提供你期望的值。

如何从设定范围对象中删除行

2 个答案: