7мес
Программирование
+2Макрос для Excel
Не очень понимаю за VBA
Подскажите пожалуйста шаблон макроса для переноса данных из книга1 лист1 в книга2 лист2
По дате
По рейтингу
12345678910111213141516171819202122232425262728293031
Sub ПереносДанных()
' Объявление переменных
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
' Установка ссылок на рабочие книги и листы
Set wb1 = Workbooks("Книга1.xlsx") ' Замените "Книга1.xlsx" на имя вашей книги
Set ws1 = wb1.Sheets("Лист1") ' Замените "Лист1" на имя вашего листа
Set wb2 = Workbooks("Книга2.xlsx") ' Замените "Книга2.xlsx" на имя вашей книги
Set ws2 = wb2.Sheets("Лист2") ' Замените "Лист2" на имя вашего листа
' Проверка, открыты ли книги
On Error Resume Next
If wb1 Is Nothing Then
MsgBox "Книга1 не найдена!", vbCritical
Exit Sub
End If
If wb2 Is Nothing Then
MsgBox "Книга2 не найдена!", vbCritical
Exit Sub
End If
On Error GoTo 0
' Копирование данных
ws1.Cells.Copy ws2.Cells
' Сообщение об успешном завершении
MsgBox "Данные успешно перенесены!", vbInformation
End Sub можно ещё использовать Power Quiery
Открыл в Экселе два файла Книга1 и Книга2.
Запустил «Запись макроса».
Скопировал ячейку А1 на Листе1 Книги1.
Переключился на окно Книги2.
И вставил в ячейку А2 Листа1 то что скопировал в Книге1.
Остановил запись макроса.
Посмотрел в редакторе VBA то, что написал Эксель.
И вот что увидел.
12345678910
Sub Макрос1()
Sheets("Лист1").Select
Range("A1").Select
Selection.Copy
Windows("Книга2").Activate
Sheets("Лист1").Select
Range("A2").Select
ActiveSheet.Paste
End Sub
