在excel中选择在某些列中包含相同值的所有行

Question

我是Stack Overflow和VBA的新手。 我尝试编写一些VBA代码以选择Excel中包含特定数字的所有行（从A到E）。

（部分）我的代码

Dim ploeg as range
Dim ploeg2 as range

For v = 1 To 100
If Cells(v, 6) = 1 Then 
Set ploeg = Range(Cells(v, 1), Cells(v, 5))
Set ploeg2 = Union(ploeg2, ploeg)
End if
Next v

Ploeg2.Select

但这不起作用...

有人可以帮我吗？

Answer 1

您非常亲密：

Sub dural()
    Dim ploeg As Range
    Dim ploeg2 As Range

    For v = 1 To 100
        If Cells(v, 6) = 1 Then
            Set ploeg = Range(Cells(v, 1), Cells(v, 5))
            If ploeg2 Is Nothing Then
                Set ploeg2 = ploeg
            Else
                Set ploeg2 = Union(ploeg2, ploeg)
            End If
        End If
    Next v
    ploeg2.Select
End Sub

您只需要创建ploeg2，然后再添加Union()。