VBA-Excel查找并选择多个单元格

Question

我正在编写代码，但我陷入了这个问题，我认为这个问题应该不会太难解决，但我无法解决它。

我需要我的程序来查找具有特定值的所有单元格并选择它们。但他们应该在子程序结束时保持选中状态。所以我改变了一些我在网上找到的代码并写道:

Sub FindAll()
 With Worksheets(4).Range("a1:l500")
 Set c = .Find("myValue", LookIn:=xlValues)
 If Not c Is Nothing Then
    firstAddress = c.Address
    Do
        Worksheets(4).Range(c.Address).Activate   
        Set c = .FindNext(c)

    Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

当然，它会按顺序选择它们，但它们不会保持选中状态，所以最后我只选择了最后找到的单元格

谁能帮我解决这个问题吗？提前致谢

Answer 1

使用Union method将范围收集到一个不连续的范围中，然后.在离开子项之前选择它们

Sub FindAll()
    Dim firstAddress As String, c As Range, rALL As Range
    With Worksheets(4).Range("a1:l500")
        Set c = .Find("myValue", LookIn:=xlValues)
        If Not c Is Nothing Then
            Set rALL = c
            firstAddress = c.Address
            Do
                Set rALL = Union(rALL, c)
                Worksheets(4).Range(c.Address).Activate
                Set c = .FindNext(c)

            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        .Activate
        If Not rALL Is Nothing Then rALL.Select
    End With
End Sub