Вычитание диапазонов

[gsg]

Здравствуйте.
Насколько я понял, функции, обратной Union, к сожалению, не существует.

Хотелось бы услышать совет, в каком направлении думать, чтобы оперативнее решить такой вопрос:

допустим, задан диапазон
Range(a1:a20)

из него необходимо исключить диапазоны
Range(a5:a8) и Range(a14:a18)

чтобы получить в конечном итоге диапазон
Range(a1:a4,a9:a14,a19:a20)

[Казанский]

Решение "в лоб" - перебрать ячейки:

Function Exclude(rFrom As Range, rWhat As Range) As Range
Dim c As Range
If rFrom.Parent Is rWhat.Parent Then
    For Each c In rFrom
        If Intersect(c, rWhat) Is Nothing Then
            If Exclude Is Nothing Then Set Exclude = c Else Set Exclude = Union(Exclude, c)
        End If
    Next
Else
    Set Exclude = rFrom
End If
End Function

Попробуйте в окне Immediate:

?exclude(range("A1:A20"),range("A5:A8,A14:A18")).Address

[gsg]

спасибо! То, что нужно.

а что означает

rFrom.Parent Is rWhat.Parent

[Watcher_1982]

Сообщение от gsg

Здравствуйте.
Насколько я понял, функции, обратной Union, к сожалению, не существует.

Хотелось бы услышать совет, в каком направлении думать, чтобы оперативнее решить такой вопрос:

допустим, задан диапазон
Range(a1:a20)

из него необходимо исключить диапазоны
Range(a5:a8) и Range(a14:a18)

чтобы получить в конечном итоге диапазон
Range(a1:a4,a9:a14,a19:a20)

Я бы попробовал диапазон загнать (в данном примере) в одномерный массив, и те значения которые надо исключить, сделал бы нулями.
А потом уже пройдясь по этому массиву получил бы диапазоны....
Надеюсь понятно изложил мое видение

[kuklp]

А ничего, что загонять пришлось бы по одной ячейке, как массив, так и исключения? И что это даст, по сравнению со способом, предложенным Казанским, кроме траты времени на дополнительную обработку еще и массива в памяти? Вы выложите код, мож тогда понятней станет.

[Казанский]

Сообщение от gsg

спасибо! То, что нужно.

а что означает

rFrom.Parent Is rWhat.Parent

Проверка того, что диапазоны находятся на одном листе. Если аргументами Intersect являются диапазоны с разных листов, возникает ошибка.

[Ищущий ответа]

Здравствуйте! Помогите пож. разобраться с задачкой, а точнее с эффективным использованием функции Count_CellColor....)

Имеется таблица.....В колонке A наименование объектов. В колонке A между наименованиями иеются пустые ячейки колонки A. в колонке B указаны значения площадей и пустых ячеек нет.В колонке В определенные значения выделены красным цветом и разбросаны по колонке B. В колонке С результат работы функции Count_CellColor....Как можно просчитать количество выделенных ячеек красным цветом между наименованиями и проставить результат в колонке С напротив наименования

Заранее примного благодарен........)

[Hugo121]

Ищущий ответа давно бы уже получил ответ, если бы открыл свою тему с примером, а не встревал (извините, другого слова не подобрал) 3 раза с этим вопросом в чужие темы.
Тем более, что UDF Count_CellColor не у всех есть...