Как запустить один и тот же макрос на нескольких листах одновременно в Excel?

В Excel вы можете запустить макрос на одном листе, но что делать, если вам нужно применить один и тот же макрос сразу к нескольким листам? Вместо того чтобы запускать макрос для каждого листа по отдельности, вы можете выполнить его на всех выбранных листах одновременно. В этом руководстве мы покажем вам, как использовать VBA для запуска одного и того же макроса на нескольких листах более эффективным способом, экономя ваше время и усилия.

Запуск или выполнение одного и того же макроса на нескольких листах одновременно с помощью кода VBA

Запуск или выполнение одного и того же макроса на нескольких листах одновременно с помощью кода VBA

Чтобы запустить макрос на нескольких листах одновременно, не активируя его по одному листу за раз, вы можете применить следующий код VBA, пожалуйста, действуйте так:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий макрос в окно Модуля.

Код VBA: Запуск одного и того же макроса на нескольких листах одновременно:

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

Примечание: В приведенном выше коде скопируйте и вставьте свой собственный код без заголовка Sub и нижнего колонтитула End Sub между скриптами Sub Runcode() и End Sub . См. скриншот:

3. Затем поместите курсор в первую часть макроса и нажмите клавишу F5, чтобы запустить код, и ваш макрос будет применен ко всем листам по очереди.

Легкое удаление макросов из нескольких книг

Инструмент Пакетное удаление всех макросов Kutools для Excel позволяет быстро удалять макросы из нескольких книг одновременно.

Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас