vba - 选择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() 添加之前.