Метод объединения VBA без добавления диапазонов - PullRequest
Новая
       24

Метод объединения VBA без добавления диапазонов

0 голосов
/ 14 апреля 2020

У меня есть следующий код: 

Dim alllrows As Range

Dim srchrng As Range
Set srchrng  = daylist.Find(What:=string, LookIn:=xlValues)
Dim startaddr As String
startaddr = srchrng.Address


Do        
    If alllrows  Is Nothing Then
        Set alllrows = srchrng          
    Else
        Set alllrows = Union(alllrows , srchrng )            
    End If
    Set srchrng = daylist.FindNext(srchrng )

    If srchrng Is Nothing Or startaddr = srchrng .Address Then
        GoTo Done
    End If
Loop

Когда я отлаживаю, alllrows.Rows.Count всегда остается на 1. Я вижу код, попадающий в оператор объединения, но счетчик всегда остается равным единице, а значение в Диапазон также не меняется. Значение всегда отображается как первая запись, добавленная к alllrows.

...