Как скопировать формулы на другой лист Excel VBA

Excel VBA — очень мощный инструмент, позволяющий программно копировать формулы с одного листа на другой. В этой статье мы покажем вам, как использовать Excel VBA для копирования формул на другой лист.

Сначала мы создадим простой макрос, который будет копировать формулу из одной ячейки в другую на том же листе. Затем мы изменим макрос, чтобы он скопировал формулу на другой лист.

Начиная

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

Запись макроса

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

1. Откройте книгу, содержащую лист с формулами, которые вы хотите скопировать.

2. Нажмите кнопку «Запись макроса» на вкладке «Разработчик». Если вы не видите вкладку «Разработчик», нажмите здесь, чтобы узнать, как ее добавить.

3. Введите имя макроса и при необходимости выберите комбинацию клавиш.

4. Нажмите «ОК».

5. Выберите ячейку с формулой, которую вы хотите скопировать.

6. Нажмите «Ctrl» + «C», чтобы скопировать выделенную ячейку.

7. Выберите ячейку, в которую вы хотите вставить скопированную формулу.

8. Нажмите «Ctrl» + «V», чтобы вставить скопированную формулу.

9. Нажмите кнопку «Остановить запись» на вкладке «Разработчик».

Теперь ваш макрос готов к использованию! Чтобы запустить его, просто нажмите назначенную ему комбинацию клавиш или нажмите кнопку «Макросы» на вкладке «Разработчик» и выберите свой макрос из списка.

Написание кода VBA вручную

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

1. Откройте книгу, содержащую лист с формулами, которые вы хотите скопировать.

2. Нажмите «Alt» + «F11», чтобы открыть редактор Visual Basic.

3. Нажмите «Вставить» > «Модуль».

4. Введите в модуль следующий код:

Подпрограмма копирования()

Dim sourceRange As Range

Затемнить targetRange As Range

Установите sourceRange = Range («A1») 'Замените A1 на ячейку с формулой

Set targetRange = Range("B1") 'Измените B1 на желаемую ячейку вставки

targetRange.Formula = исходный диапазон.Formula

Конец сабвуфера

5. Нажмите «F5», чтобы запустить код.

Теперь ваша формула должна быть скопирована в нужную ячейку!

Изменение макроса для копирования формул на другой лист

Макрос, который мы записали в предыдущем разделе, будет копировать формулы только в пределах одного листа. Однако вы можете легко изменить его, чтобы скопировать формулы на другой лист. Для этого выполните следующие действия:

1. Откройте книгу, содержащую лист с формулами, которые вы хотите скопировать.

2. Нажмите «Alt» + «F11», чтобы открыть редактор Visual Basic.

3. Дважды щелкните свой макрос в списке в левой части экрана. Код вашего макроса появится справа.

4. Найдите следующую строку кода:

Set targetRange = Range("B1") 'Измените B1 на желаемую ячейку вставки

5. Измените «B1» на ячейку на другом листе, куда вы хотите вставить формулу, используя следующий формат: SheetName!CellAddress. Например, если вы хотите вставить формулу в ячейку B2 на листе с именем «Лист2», вы должны изменить код на этот:

Установить targetRange = Sheets("Лист2").Range("B2")

6. Нажмите «F5», чтобы запустить код. Теперь ваша формула должна быть скопирована на другой лист!

Последние мысли

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

Это конец учебника.