Выборка используемых ячеек на листе

[darthraziel]

Доброго времени суток!

Немножко зашел в тупичок со вроде бы несложным макросом.

Задача стоит следующая: необходимо, чтобы из определенного диапазона выбирались все ячейки, которые содержат какое-либо значение. Однако есть два условия, которые хотелось бы выполнить при этом, и вот тут у меня возникли затруднения.

Необходимо, чтобы этот процесс:
1) не учитывал скрытые листы, строки и столбцы (это важно)
2) способен был работать с листами, которые закрыты для изменений (это не столь важно, но желательно).

Буду благодарен любому совету. Код макроса прилагается.

Private Function SpecialCells_TypeConstants(ra As Range) As Range

    On Error Resume Next: en& = Err.Number

        Dim cell As Range
        For Each cell In Intersect(ra, ra.Worksheet.UsedRange).Cells
             If Trim(cell.Value) <> "" Then    
                If SpecialCells_TypeConstants Is Nothing Then
                     Set SpecialCells_TypeConstants = cell
                 Else
                     Set SpecialCells_TypeConstants = Union(SpecialCells_TypeConstants, cell)
                 End If
             End If
         Next cell

     If en& = 0 Then Err.Clear
     
End Function

[Скрипт]

darthraziel, не ответ на ваш вопрос, просто замечание по коду.

Эту команду нужно поместить в другое место:

en& = Err.Number

В вашем случае эта команда ничего не делает.


Эта команда без смысла, т.к. в объекте "Err" и так чисто:

If en& = 0 Then Err.Clear

[EducatedFool]

Макрос взят отсюда:
http://excelvba.ru/code/SpecialCells

Насчёт en& = Err.Number и If en& = 0 Then Err.Clear — не обращайте внимания,
этот кусок кода я взял из своей программы, где это важно
(если до запуска процедуры была ошибка - её нельзя сбрасывать, если во время процедуры произошла ошибка - её сбрасываем)

Вообще, макрос предназначен прежде всего для работы с защищёнными листами,
и к задаче, озвученной darthraziel, мало пригоден

не учитывал скрытые листы

вообще-то, макрос работает только с одним листом.
Считать в диапазон (объект типа RANGE) ячейки с разных листов не получится.

[darthraziel]

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

Макрос взят отсюда:
http://excelvba.ru/code/SpecialCells

Абсолютно так, я бы сразу поставил ссылку на источник, но, честно говоря, уже и забыл, откуда какой кусок брал.
Спасибо за ссылку, добавлю себе в избранное.

Касаемо скрытых листов - это я заговорился немножко. У меня этот блок просто используется в основном макросе, где выписываются адреса всех таких ячеек для целой книги. И вот там бы неплохо как-то проигнорировать скрытые листы.

Public Sub CompareFiles()

Dim ViewRng As Range, FilledRng As Range

n = 8

On Error Resume Next: en& = Err.Number

    For sheet = 2 To ActiveWorkbook.Sheets.Count
    
        Worksheets(sheet).Activate
        Set ViewRng = Range("a1:zz1000")
        Set FilledRng = SpecialCells_TypeConstants(ViewRng) 
        If Not FilledRng Is Nothing Then
        For Each cell In FilledRng.Cells
            
            Worksheets(1).Cells(n, 1).Value = Worksheets(sheet).Name
            Worksheets(1).Cells(n, 2).Value = cell.Address
            n = n + 1
            
        Next cell
        End If
    Next sheet
    
If en& = 0 Then Err.Clear

Worksheets(1).Activate

End Sub

[darthraziel]

Похоже, я немного поторопился с созданием топика, прошу прощения.

После небольшого перерыва все проблемы были решены, большое спасибо откликнувшимся.