Диапазон на нескольких листах книги

@Elena666 · Регистрация: 27.04.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте,

Подскажите, пожалуйста, как в excel реализовать, чтобы макрос применялся к диапазону расположенному на нескольких листах книги.
Например Лист1 А1:А20 + Лист2 А1:А20 и т.д. Таким образом, чтобы это был единый массив.
Насколько это реально сделать?

Спасибо.

Добавлено через 3 часа 0 минут
Поясню, необходимо,чтобы данный макрос применялся для Диапазонов с разных листов (то есть сравнение на повторы происходило для диапазонов с нескольких листов,как единое целое, а не каждый по отдельности).

Visual Basic

 On Error Resume Next
    ' массив цветов, используемых для заливки ячеек-дубликатов
    Colors = Array(12900829, 15849925, 14408946, 14610923, 15986394, 14281213, 14277081, _
                   9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)
 
    Dim coll As New Collection, dupes As New Collection, _
        cols As New Collection, ra As Range, cell As Range, n&
    Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange)
    If Err Then Exit Sub
 
    ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False
    For Each cell In ra.Cells ' запонимаем значение дубликатов в коллекции dupes
        Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value)
        If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value)
    Next cell
    For i& = 1 To dupes.Count ' заполняем коллекцию cols цветами для разных дубликатов
        n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1
    Next
    For Each cell In ra.Cells ' окрашиваем ячейки, если для её значения назначен цвет
        cell.Interior.Color = cols(CStr(cell.Value))
    Next cell
    Application.ScreenUpdating = True

	01.05.2017, 11:02