Промпт: макрос VBA для рутинной задачи

GigaChat 2 Max01.10.2026

Макрос VBA для распределения строк по менеджерам

Sub РаспределениеПоМенеджерам()
    Dim wsSource As Worksheet ' Лист-источник (лист Продажи)
    Dim wsTarget As Worksheet ' Целевой лист (где будет размещаться результат)
    
    Dim LastRow As Long       ' Последняя заполненная строка
    Dim i As Long             ' Счётчик циклов по строкам
    Dim ManagerName As String ' Имя менеджера
    Dim CountRows As Long     ' Количество обработанных записей
    
    Set wsSource = ThisWorkbook.Worksheets("Продажи") ' Указываем источник данных
    
    Application.ScreenUpdating = False ' Отключаем обновление экрана во время выполнения макроса
    
    LastRow = wsSource.Cells(wsSource.Rows.Count, "C").End(xlUp).Row ' Определяем последнюю строку с данными
    
    For i = 2 To LastRow ' Начинаем цикл обработки строк начиная со второй строки (первая содержит заголовок)
        ManagerName = Trim(wsSource.Cells(i, "C").Value) ' Получаем имя менеджера из текущей строки
        
        If Len(ManagerName) > 0 Then ' Проверяем наличие имени менеджера
            On Error Resume Next ' Если возникнут ошибки при создании листа, игнорируем их временно
            
            Set wsTarget = Nothing ' Обнуляем целевую рабочую область перед проверкой её существования
            Set wsTarget = ThisWorkbook.Sheets(ManagerName) ' Пробуем найти лист с именем текущего менеджера
            
            On Error GoTo 0 ' Возвращаемся к стандартной обработке ошибок после проверки наличия листа
            
            If wsTarget Is Nothing Then ' Если лист ещё не существует, создаём новый лист
                With ThisWorkbook
                    .Sheets.Add After:=.Sheets(.Sheets.Count) ' Создаём новый лист после последнего существующего
                    ActiveSheet.Name = ManagerName           ' Назначаем новому листу имя менеджера
                    
                    ' Копируем шапку таблицы на вновь созданный лист
                    wsSource.Range("A1:E1").Copy Destination:=ActiveSheet.Range("A1")
                End With
                
                Set wsTarget = ThisWorkbook.Sheets(ManagerName) ' Перезаписываем переменную целевой рабочей области новым листом
            End If
            
            ' Добавляем данные текущей строки на соответствующий менеджерский лист
            wsSource.Rows(i).Copy Destination:=wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Offset(1, 0)
            
            CountRows = CountRows + 1 ' Увеличиваем счетчик обработанных строк
        End If
    Next i
    
    MsgBox "Обработано " & CountRows & " строк.", vbInformation, "Распределение завершено"
    
    Application.ScreenUpdating = True ' Включаем отображение изменений на экране обратно
End Sub

Пошаговая инструкция для добавления и запуска макроса:

Шаг 1. Открытие редактора Visual Basic (VBE):

1. В открытом файле Excel перейдите на вкладку «Разработчик» → нажмите «Visual Basic».

🔹 Если вкладка «Разработчик» отсутствует: откройте меню Файл → Параметры → Настроить ленту → установите флажок напротив пункта «Разработчик».

Либо используйте сочетание клавиш <kbd>Alt+F11</kbd>.

Шаг 2. Создание модуля:

1. В редакторе VBE выберите проект вашего файла (Project Explorer слева).
2. Щёлкните правой кнопкой мыши по названию проекта (обычно VBAProject) → выберите пункт «Insert» («Вставить») → «Module» («Модуль»).

Шаг 3. Вставка макроса:

1. Скопируйте приведённый выше код и вставьте его в окно нового модуля.

Шаг 4. Запуск макроса вручную:

1. Вернитесь в интерфейс Excel (<kbd>Alt+Q</kbd>) и снова зайдите на вкладку «Разработчик».
2. Нажмите кнопку «Макросы», выберите ваш макрос (РаспределениеПоМенеджерам), кликните «Выполнить».

Как создать кнопку на листе для быстрого запуска макроса?

Шаг 1. Создание кнопки:

1. Активируйтесь на нужном листе Excel.
2. Перейдите на вкладку «Разработчик» → инструмент «Форма» (или через панель инструментов справа: кнопка с изображением маленького квадратика и стрелочки).
3. Нарисуйте прямоугольник-кнопку на рабочем листе там, где удобно.

Шаг 2. Связывание кнопки с макросом:

1. Кликните дважды по нарисованной кнопке, откроется окно назначения макросов.
2. Выберите макрос РаспределениеПоМенеджерам и подтвердите выбор нажатием ОК.

Теперь вы можете запускать макрос простым кликом по этой кнопке.

ChatGPT (GPT-5.5)01.10.2026

Ниже готовый макрос VBA для Excel: он берёт строки с листа «Продажи» и раскладывает их по отдельным листам в зависимости от значения в столбце C «Менеджер».

• Заголовки находятся в строке 1.
• Исходные данные не удаляются.
• Если листа для менеджера нет — он создаётся.
• Если лист уже есть — данные добавляются в конец.
• Заголовок копируется на новый лист.
• В конце выводится сообщение со счётчиком обработанных строк.

Option Explicit

Sub Разнести_Продажи_По_Менеджерам()

    ' Объявляем переменные
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    Dim targetRow As Long
    Dim managerName As String
    Dim processedCount As Long
    
    ' Указываем книгу, в которой выполняется макрос
    Set wb = ThisWorkbook
    
    ' Проверяем, существует ли основной лист "Продажи"
    If Not SheetExists("Продажи", wb) Then
        MsgBox "Лист ""Продажи"" не найден. Проверьте название листа.", vbCritical
        Exit Sub
    End If
    
    ' Назначаем основной лист с данными
    Set wsSource = wb.Worksheets("Продажи")
    
    ' Определяем последнюю заполненную строку по столбцу C, где находится менеджер
    lastRow = wsSource.Cells(wsSource.Rows.Count, "C").End(xlUp).Row
    
    ' Определяем последний заполненный столбец по строке заголовков
    lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
    
    ' Проверяем, есть ли данные кроме строки заголовков
    If lastRow < 2 Then
        MsgBox "На листе ""Продажи"" нет строк с данными для обработки.", vbInformation
        Exit Sub
    End If
    
    ' Отключаем обновление экрана для ускорения работы макроса
    Application.ScreenUpdating = False
    
    ' Отключаем автоматический пересчёт формул для ускорения работы
    Application.Calculation = xlCalculationManual
    
    ' Сбрасываем счётчик обработанных строк
    processedCount = 0
    
    ' Перебираем строки с данными, начиная со 2-й строки
    For i = 2 To lastRow
    
        ' Получаем имя менеджера из столбца C
        managerName = Trim(CStr(wsSource.Cells(i, "C").Value))
        
        ' Проверяем, что имя менеджера не пустое
        If managerName <> "" Then
        
            ' Приводим имя листа к допустимому виду для Excel
            managerName = CleanSheetName(managerName)
            
            ' Проверяем, существует ли лист для данного менеджера
            If SheetExists(managerName, wb) Then
                
                ' Если лист существует, назначаем его целевым листом
                Set wsTarget = wb.Worksheets(managerName)
                
            Else
                
                ' Если листа нет, создаём новый лист в конце книги
                Set wsTarget = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))
                
                ' Присваиваем новому листу имя менеджера
                wsTarget.Name = managerName
                
                ' Копируем строку заголовков с основного листа на новый лист
                wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, lastCol)).Copy _
                    Destination:=wsTarget.Cells(1, 1)
                
            End If
            
            ' Если лист существовал, но на нём нет заголовков, копируем заголовки
            If Application.WorksheetFunction.CountA(wsTarget.Rows(1)) = 0 Then
                wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, lastCol)).Copy _
                    Destination:=wsTarget.Cells(1, 1)
            End If
            
            ' Определяем следующую свободную строку на листе менеджера
            targetRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row + 1
            
            ' Если лист пустой и End(xlUp) вернул первую строку, начинаем запись со 2-й строки
            If targetRow < 2 Then targetRow = 2
            
            ' Копируем текущую строку с основного листа на лист менеджера
            wsSource.Range(wsSource.Cells(i, 1), wsSource.Cells(i, lastCol)).Copy _
                Destination:=wsTarget.Cells(targetRow, 1)
            
            ' Увеличиваем счётчик обработанных строк
            processedCount = processedCount + 1
        
        End If
        
    Next i
    
    ' Включаем обратно автоматический пересчёт формул
    Application.Calculation = xlCalculationAutomatic
    
    ' Включаем обратно обновление экрана
    Application.ScreenUpdating = True
    
    ' Показываем сообщение об окончании работы макроса
    MsgBox "Готово!" & vbCrLf & _
           "Обработано строк: " & processedCount & vbCrLf & _
           "Исходные данные на листе ""Продажи"" не удалялись.", _
           vbInformation

End Sub


Function SheetExists(sheetName As String, wb As Workbook) As Boolean

    ' Объявляем переменную для проверки листа
    Dim ws As Worksheet
    
    ' На случай ошибки, если лист не найден
    On Error Resume Next
    
    ' Пробуем обратиться к листу по имени
    Set ws = wb.Worksheets(sheetName)
    
    ' Возвращаем True, если лист найден
    SheetExists = Not ws Is Nothing
    
    ' Возвращаем обычную обработку ошибок
    On Error GoTo 0

End Function


Function CleanSheetName(sheetName As String) As String

    ' Удаляем из имени листа символы, которые запрещены в Excel
    sheetName = Replace(sheetName, "\", "_")
    sheetName = Replace(sheetName, "/", "_")
    sheetName = Replace(sheetName, "?", "_")
    sheetName = Replace(sheetName, "*", "_")
    sheetName = Replace(sheetName, "[", "_")
    sheetName = Replace(sheetName, "]", "_")
    sheetName = Replace(sheetName, ":", "_")
    
    ' Убираем лишние пробелы по краям
    sheetName = Trim(sheetName)
    
    ' Ограничиваем имя листа 31 символом — это ограничение Excel
    If Len(sheetName) > 31 Then
        sheetName = Left(sheetName, 31)
    End If
    
    ' Если после очистки имя оказалось пустым, задаём техническое имя
    If sheetName = "" Then
        sheetName = "Без_менеджера"
    End If
    
    ' Возвращаем очищенное имя листа
    CleanSheetName = sheetName

End Function

Как вставить и запустить макрос

1. Откройте Excel-файл с данными.
2. Убедитесь, что лист с исходными данными называется «Продажи».
3. Нажмите Alt + F11 — откроется редактор VBA.
4. В верхнем меню выберите Insert / Вставка → Module / Модуль.
5. Вставьте в открывшееся окно весь код макроса.
6. Закройте редактор VBA или вернитесь в Excel.
7. Сохраните файл в формате:
8. **Книга Excel с поддержкой макросов (.xlsm)*.
9. Для запуска макроса нажмите Alt + F8.
10. Выберите макрос:

``text
Разнести_Продажи_По_Менеджерам
``

1. Нажмите Выполнить.

После выполнения появится сообщение с количеством обработанных строк.

Как сделать кнопку на листе для запуска макроса

1. Откройте лист «Продажи» или любой другой лист, где хотите разместить кнопку.
2. Включите вкладку Разработчик, если она не отображается:
3. Файл → Параметры → Настроить ленту
4. Поставьте галочку Разработчик
5. Нажмите ОК
6. Перейдите на вкладку Разработчик.
7. Нажмите Вставить.
8. В разделе Элементы управления формы выберите Кнопка.
9. Нарисуйте кнопку на листе мышкой.
10. Excel сразу предложит назначить макрос.
11. Выберите:

``text
Разнести_Продажи_По_Менеджерам
``

1. Нажмите ОК.
2. Щёлкните правой кнопкой по кнопке и выберите Изменить текст.
3. Например, напишите:

``text
Разнести по менеджерам
``

Теперь при нажатии на кнопку строки будут распределяться по листам менеджеров.

Claude Sonnet 501.10.2026

Макрос VBA: Распределение строк по листам менеджеров

Код макроса

Sub РаспределитьПоМенеджерам()

    ' === Объявление переменных ===
    Dim wsSource As Worksheet      ' Исходный лист "Продажи"
    Dim wsTarget As Worksheet      ' Лист конкретного менеджера
    Dim lastRow As Long            ' Номер последней строки с данными
    Dim i As Long                  ' Счётчик цикла по строкам
    Dim managerName As String      ' Имя менеджера из столбца C
    Dim safeName As String         ' Очищенное имя для названия листа
    Dim processedCount As Long     ' Счётчик обработанных строк
    Dim lastRowTarget As Long      ' Следующая свободная строка на листе менеджера

    ' === Отключаем обновление экрана и события для ускорения ===
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ' === Проверяем, что исходный лист "Продажи" существует ===
    On Error Resume Next
    Set wsSource = ThisWorkbook.Sheets("Продажи")
    On Error GoTo 0

    If wsSource Is Nothing Then
        MsgBox "Лист 'Продажи' не найден!", vbCritical, "Ошибка"
        GoTo Завершение
    End If

    ' === Определяем последнюю строку с данными в столбце C (не более 5000) ===
    lastRow = wsSource.Cells(wsSource.Rows.Count, "C").End(xlUp).Row
    If lastRow > 5000 Then lastRow = 5000

    If lastRow < 2 Then
        MsgBox "Нет данных для обработки.", vbInformation
        GoTo Завершение
    End If

    processedCount = 0

    ' === Основной цикл по строкам данных (со 2-й строки, т.к. 1-я — заголовки) ===
    For i = 2 To lastRow

        managerName = Trim(wsSource.Cells(i, "C").Value)

        ' Пропускаем строки с пустым именем менеджера
        If managerName <> "" Then

            ' --- Формируем допустимое имя листа (убираем запрещённые символы, обрезаем до 31 символа) ---
            safeName = ОчиститьИмяЛиста(managerName)

            ' --- Проверяем, существует ли уже лист с таким именем ---
            Set wsTarget = Nothing
            On Error Resume Next
            Set wsTarget = ThisWorkbook.Sheets(safeName)
            On Error GoTo 0

            ' --- Если лист не найден — создаём новый и копируем в него заголовки ---
            If wsTarget Is Nothing Then
                Set wsTarget = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                wsTarget.Name = safeName
                wsSource.Rows(1).Copy Destination:=wsTarget.Rows(1)
            End If

            ' --- Находим первую свободную строку на листе менеджера ---
            lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1

            ' --- Копируем строку с исходными данными (исходные данные НЕ удаляются) ---
            wsSource.Rows(i).Copy Destination:=wsTarget.Rows(lastRowTarget)

            processedCount = processedCount + 1
        End If

    Next i

Завершение:
    ' === Включаем обратно обновление экрана и события ===
    Application.ScreenUpdating = True
    Application.EnableEvents = True

    ' === Сообщение об итогах работы макроса ===
    If processedCount > 0 Then
        MsgBox "Готово! Обработано строк: " & processedCount, vbInformation, "Результат"
    End If

End Sub


' === Вспомогательная функция: очистка имени менеджера для использования в качестве имени листа ===
Function ОчиститьИмяЛиста(ByVal имя As String) As String
    Dim запрещённые As Variant
    Dim символ As Variant

    ' Символы, запрещённые в именах листов Excel
    запрещённые = Array("\", "/", "?", "*", "[", "]", ":")

    For Each символ In запрещённые
        имя = Replace(имя, символ, "_")
    Next символ

    ' Имя листа не может быть длиннее 31 символа
    If Len(имя) > 31 Then
        имя = Left(имя, 31)
    End If

    ОчиститьИмяЛиста = имя
End Function

Важно: при повторном запуске макроса строки будут добавлены на листы менеджеров ещё раз (дублирование), так как исходные данные не удаляются и не помечаются как обработанные. Если нужна защита от повторного запуска — дайте знать, добавлю проверку.

Как вставить и запустить макрос

1. Откройте файл Excel с листом «Продажи».
2. Нажмите Alt + F11 — откроется редактор VBA.
3. В меню редактора выберите Insert → Module (Вставка → Модуль).
4. Скопируйте весь код выше и вставьте его в появившееся окно модуля.
5. Нажмите Ctrl + S, чтобы сохранить файл. Excel предложит сохранить в формате с поддержкой макросов — выберите **«Книга Excel с поддержкой макросов» (.xlsm)*.
6. Закройте редактор VBA (Alt + Q) или оставьте открытым.
7. Чтобы запустить макрос:
8. Вернитесь в Excel, нажмите Alt + F8.
9. В списке выберите РаспределитьПоМенеджерам.
10. Нажмите Выполнить.
11. После завершения появится сообщение с количеством обработанных строк.

Как сделать кнопку запуска на листе

1. Перейдите на вкладку Разработчик (если её нет — включите через Файл → Параметры → Настроить ленту, поставьте галочку «Разработчик»).
2. На вкладке Разработчик нажмите Вставить → Кнопка (Элемент управления формы) (значок прямоугольника в разделе «Формы»).
3. Нарисуйте кнопку мышью в любом месте листа «Продажи».
4. В открывшемся окне «Назначить макрос» выберите РаспределитьПоМенеджерам и нажмите ОК.
5. При необходимости кликните правой кнопкой по кнопке → Изменить текст, чтобы написать, например, «Разнести по менеджерам».
6. Теперь достаточно нажимать эту кнопку на листе — макрос будет запускаться автоматически.

Gemini 2.5 Flash30.09.2026

Вот макрос VBA для Excel, который разносит строки с основного листа "Продажи" по отдельным листам, создавая их по значению в столбце "Менеджер".

Sub РазнестиПоМенеджерам()

    ' Объявление переменных
    Dim wsПродажи As Worksheet ' Лист "Продажи"
    Dim wsМенеджер As Worksheet ' Лист для конкретного менеджера
    Dim rПоследняяСтрока As Long ' Номер последней строки с данными на листе "Продажи"
    Dim i As Long ' Счетчик для цикла по строкам
    Dim sМенеджер As String ' Имя менеджера из текущей строки
    Dim rЦелеваяСтрока As Long ' Номер последней строки на листе менеджера
    Dim lОбработанныеСтроки As Long ' Счетчик обработанных строк
    Dim rЗаголовок As Range ' Диапазон заголовков
    Dim bЛистСуществует As Boolean ' Флаг для проверки существования листа

    ' Отключаем обновление экрана для ускорения выполнения макроса
    Application.ScreenUpdating = False
    ' Отключаем отображение предупреждений (например, при удалении листа)
    Application.DisplayAlerts = False

    ' Устанавливаем ссылку на лист "Продажи"
    Set wsПродажи = ThisWorkbook.Sheets("Продажи")

    ' Проверяем, существует ли лист "Продажи"
    On Error Resume Next ' Включаем обработку ошибок, чтобы не прерывать выполнение
    Set wsПродажи = ThisWorkbook.Sheets("Продажи")
    On Error GoTo 0 ' Отключаем обработку ошибок

    If wsПродажи Is Nothing Then
        MsgBox "Лист 'Продажи' не найден. Пожалуйста, убедитесь, что лист с таким именем существует.", vbCritical
        Exit Sub ' Прерываем выполнение макроса
    End If

    ' Находим номер последней строки с данными на листе "Продажи" в столбце A
    rПоследняяСтрока = wsПродажи.Cells(wsПродажи.Rows.Count, "A").End(xlUp).Row

    ' Проверяем, есть ли данные, кроме заголовков
    If rПоследняяСтрока < 2 Then
        MsgBox "На листе 'Продажи' нет данных для обработки (только заголовки или пустой лист).", vbInformation
        ' Включаем обновление экрана и отображение предупреждений перед выходом
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
        Exit Sub
    End If

    ' Копируем заголовки (строка 1)
    Set rЗаголовок = wsПродажи.Rows(1)

    ' Инициализируем счетчик обработанных строк
    lОбработанныеСтроки = 0

    ' Запускаем цикл по строкам, начиная со второй (первая - заголовки)
    For i = 2 To rПоследняяСтрока
        ' Получаем имя менеджера из столбца C текущей строки
        sМенеджер = Trim(wsПродажи.Cells(i, "C").Value)

        ' Проверяем, что имя менеджера не пустое
        If sМенеджер <> "" Then
            ' Проверяем, существует ли уже лист с именем этого менеджера
            bЛистСуществует = False
            For Each wsМенеджер In ThisWorkbook.Worksheets
                If wsМенеджер.Name = sМенеджер Then
                    bЛистСуществует = True
                    Exit For
                End If
            Next wsМенеджер

            ' Если лист не существует, создаем его и копируем заголовки
            If Not bЛистСуществует Then
                Set wsМенеджер = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                wsМенеджер.Name = sМенеджер
                rЗаголовок.Copy Destination:=wsМенеджер.Rows(1)
            Else
                ' Если лист существует, устанавливаем на него ссылку
                Set wsМенеджер = ThisWorkbook.Sheets(sМенеджер)
            End If

            ' Находим номер последней строки на листе менеджера
            ' Если лист только что создан, rЦелеваяСтрока будет 1 (для заголовков)
            rЦелеваяСтрока = wsМенеджер.Cells(wsМенеджер.Rows.Count, "A").End(xlUp).Row

            ' Копируем текущую строку с листа "Продажи" на лист менеджера
            ' Вставляем на следующую свободную строку
            wsПродажи.Rows(i).Copy Destination:=wsМенеджер.Rows(rЦелеваяСтрока + 1)

            ' Увеличиваем счетчик обработанных строк
            lОбработанныеСтроки = lОбработанныеСтроки + 1
        End If
    Next i

    ' Включаем обновление экрана и отображение предупреждений
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    ' Выводим сообщение об окончании работы
    MsgBox "Разнесение данных завершено!" & vbCrLf & _
           "Обработано строк: " & lОбработанныеСтроки, vbInformation

End Sub

Как вставить и запустить макрос по шагам:

1. Откройте редактор VBA:
2. Нажмите Alt + F11 в Excel. Откроется окно Microsoft Visual Basic for Applications.

1. Вставьте новый модуль:
2. В окне редактора VBA, в левой панели "Project - VBAProject", найдите ваш файл Excel (например, VBAProject (ВашФайл.xlsx)).
3. Щелкните правой кнопной мыши по VBAProject (ВашФайл.xlsx).
4. Выберите Insert (Вставить) -> Module (Модуль).
5. В центральной части окна появится пустой модуль.

1. Вставьте код макроса:
2. Скопируйте весь код, представленный выше, начиная с Sub РазнестиПоМенеджерам() и заканчивая End Sub.
3. Вставьте скопированный код в пустой модуль.

1. Сохраните книгу с поддержкой макросов:
2. Вернитесь в Excel.
3. Нажмите Файл -> Сохранить как.
4. В выпадающем списке "Тип файла" выберите Книга Excel с поддержкой макросов (*.xlsm).
5. Нажмите Сохранить.

1. Запустите макрос:
2. Способ 1 (из редактора VBA): В окне редактора VBA, установите курсор в любое место внутри кода макроса (Sub РазнестиПоМенеджерам() ... End Sub) и нажмите F5 или кнопку Run Sub/UserForm (зеленый треугольник).
3. Способ 2 (из Excel):
4. Перейдите на вкладку Разработчик (если ее нет, включите: Файл -> Параметры -> Настроить ленту -> поставьте галочку напротив Разработчик).
5. На вкладке Разработчик нажмите Макросы.
6. В появившемся списке выберите РазнестиПоМенеджерам и нажмите Выполнить.

Как сделать кнопку на листе для запуска макроса:

1. Включите вкладку "Разработчик" (если еще не включена, см. шаг 5 из предыдущего раздела).

1. Вставьте кнопку:
2. На вкладке Разработчик, в группе Элементы управления, нажмите Вставить.
3. В разделе Элементы управления формой выберите первую кнопку (Кнопка (элемент управления формы)).
4. Нарисуйте кнопку на листе, щелкнув и перетащив мышью.

1. Назначьте макрос кнопке:
2. Как только вы отпустите кнопку мыши после рисования, появится диалоговое окно "Назначить макрос".
3. В списке выберите РазнестиПоМенеджерам.
4. Нажмите ОК.

1. Измените текст кнопки (необязательно):
2. Щелкните правой кнопкой мыши по кнопке.
3. Выберите Изменить текст.
4. Введите желаемый текст, например, "Разнести по менеджерам".
5. Щелкните в любом месте листа, чтобы выйти из режима редактирования.

Теперь, когда вы нажмете эту кнопку, макрос РазнестиПоМенеджерам будет выполнен.