Выполнение макроса для всех листов книги - Microsoft Office Excel

Обыватель · 02.04.2019, 15:36

Добрый день!

Подскажите, пожалуйста, как правильно изменить код, чтобы выполнить макрос сразу для всех листов книги?

Пробовал варианты с перебором листов, но не получилось.

Спасибо.

IgorGO · 02.04.2019, 18:46

Код:

Sub multiFindandReplace4()
  Dim myList As Range, ws As Worksheet
  Set myList = Sheets("критерии").Range("A1:B1") 'two column range with find/replace pairs
  For Each ws In Worksheets
    If ws.Name <> "критерии" Then ws.Columns(1).Replace myList.Cells(1), myList.Cells(2), xlPart, xlByRows, True
  Next cell
End Sub

Обыватель · 03.04.2019, 09:29

Большое спасибо!

Так гораздо оптимальнее.

02.04.2019, 18:46	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Sub multiFindandReplace4() Dim myList As Range, ws As Worksheet Set myList = Sheets("критерии").Range("A1:B1") 'two column range with find/replace pairs For Each ws In Worksheets If ws.Name <> "критерии" Then ws.Columns(1).Replace myList.Cells(1), myList.Cells(2), xlPart, xlByRows, True Next cell End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выполнение макроса на нескольких листах книги	AlexIzu	Microsoft Office Excel	2	25.12.2013 11:17
выполнение макроса на всех листах кроме первого	moose123	Microsoft Office Excel	3	13.06.2012 23:07
Как в этом макросе указать , что-бы было название каждого листа и книги ,при сборе всех листов на один ?	Александр 33	Microsoft Office Excel	9	06.01.2011 18:40
Как создать кнопку для всех листов книги?	kipish_lp	Microsoft Office Excel	5	06.05.2010 17:43
Выполнение макроса во всех листах	Bu$ter	Microsoft Office Excel	18	14.11.2008 14:34

03.04.2019, 09:29	#3
Обыватель Пользователь Регистрация: 21.01.2008 Сообщений: 98	Большое спасибо! Так гораздо оптимальнее.