Всех с наступающим.
рабочая книга может содержать от 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
Шпец Докапыч, здравствуйте
спасибо за ответ
Book1... Book4 - это условные имена
Настояшие имена не имеют нумерации. Как прописать имена списком: "Book", "Test", " Work", "Учет" ?
Какое назначение "*"
"Book[1-4].*"
Добавьте еще один цикл по списку имен
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
boa. спасибо
а ".*" - это что и как ?
Это точка и любое количество (от 0 и больше) знаков после нее
спасибо, всех с наступающим