Печать

Пожалуйста, войдите или зарегистрируйтесь.
1 час 1 день 1 неделя 1 месяц Навсегда

[0mega]

Всех с наступающим.

рабочая книга может содержать от 3 до 12 листов
1 лист - 1 таблица
 Кол-во строк в таблицах: 12 -150
Кол-во столбцов:  25-30
 Row 1:6 это шапка, таблица начинается с 7-ой строки
Макрос должен проверить таблицы на всех листах
Оставить все ячейки с формулами и очистить содержимое ячеек без формул (форматирование,  УФ, шрифт, размер ячеек не изменять)

P.S.
 если возможно , пусть макрос обрабатывает все открытые книги ( Book1, Book2  всего 4 шт)

[Шпец Докапыч]

Код: [Выделить]

Sub valClear()
    On Error Resume Next
    For Each wb In Application.Workbooks
        If wb.Name Like "Book[1-4].*" Then
            For Each sh In wb.Sheets
                sh.Range("A7:AD156").SpecialCells(2, 23).ClearContents
            Next
        End If
    Next
End Sub

[0mega]

Шпец Докапыч, здравствуйте

спасибо за ответ
 
Book1... Book4 - это условные имена
 Настояшие имена не имеют нумерации. Как прописать имена  списком: "Book", "Test", " Work", "Учет" ?
 Какое назначение "*"
"Book[1-4].*"

[boa]

Добавьте еще один цикл по списку имен

Код: [Выделить]

Sub valClear()
    On Error Resume Next
    For Each wb In Application.Workbooks
      For Each SearchName In [{"Book", "Test", " Work", "Учет"}]
        If wb.Name Like SearchName & ".*" Then
            For Each sh In wb.Sheets
                sh.Range("A7:AD156").SpecialCells(2, 23).ClearContents
            Next
        End If
      Next
    Next
End Sub


[0mega]

boa. спасибо
 а  ".*" - это что и как ?

[vikttur]

Это точка и любое количество (от 0 и больше) знаков после нее

[0mega]

спасибо, всех с наступающим