В этой статье вы узнаете, как копировать данные из одной книги в другую и переносить данные с помощью кода VBA.

[.underline] # Разберемся на примере: # У нас есть 2 книги — Книга1 и Книга2 Книга2 содержит данные, введенные в Книгу1. См. Ниже снимок Book1

img1

Данные, введенные в Book1, необходимо скопировать после транспонирования данных, когда мы нажимаем кнопку Command (Submit) в Book2. См. Ниже снимок Book2

img2

Поскольку мы вводим данные в Book1; данные будут скопированы в Book2 одним щелчком по кнопке Command.

Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img3

Нажмите кнопку Command. Откроется объект Command Button1_Click. Введите следующий код в объект CommandButton1

Частная подпрограмма CommandButton1_Click ()

Тусклый продукт как строка

Dim Price As Single

Dim Book2 As Workbook

===

Рабочие листы («sheet1»). Выберите

Продукт = Диапазон («B1»)

Цена = Диапазон («B2»)

===

Установить Book2 = Workbooks.Open («F: \ USER Account \ Desktop \ Excel \ Book2.xlsx»)

Рабочие листы («sheet1»). Диапазон («A1»). Выберите

RowCount = Worksheets («sheet1»). Range («A1»). CurrentRegion.Rows.Count

С листами («sheet1»). Диапазон («A1»)

.Offset (RowCount, 0) = Продукт

.Offset (RowCount, 1) = Цена

Конец на

Book2.Save

End Sub

img4

После нажатия на кнопку «Отправить» в Книге 1 данные будут перенесены в Книгу 2.

Если мы введем другую информацию о продуктах в Book1 и нажмем кнопку «Отправить», Book2 откроется, и данные будут скопированы, а затем сохранены.

Снимок Book1

img5

Результат в Книге2

img6

Таким образом, мы можем легко скопировать данные из одной книги Excel в другую.