Скопіюйте дані в іншу книгу в Excel
Ця стаття ознайомить вас з обома методами копіювання даних в іншу книгу в Microsoft Excel.
- Перемістити або скопіювати дані в ту ж книгу
- Переміщення або копіювання даних у різних робочих книгах
- Переміщення або копіювання даних за допомогою VBA
Перемістити або скопіювати дані в ту ж книгу
Першим кроком є вибір аркушів, які ви хочете перемістити або скопіювати. Щоб вибрати кілька аркушів, просто виберіть перший аркуш, а потім утримуйте клавішу Control під час натискання додаткових аркушів, які потрібно скопіювати.На вкладці " Головна " верхньої панелі інструментів знайдіть групу " Клітини " та клацніть " Формат" . У розділі Організація аркушів натисніть кнопку Перемістити або скопіювати аркуш .
Відкриється діалогове вікно. У списку До ви можете натиснути на аркуш, перед яким ви хочете вставити переміщені або скопійовані аркуші, або клацнути на кінці, щоб вставити аркуші після останнього аркуша робочої книги.
Щоб скопіювати аркуші замість переміщення, встановіть прапорець Створити копію у діалоговому вікні Перемістити або копіювати .
Переміщення або копіювання даних у різних робочих книгах
Якщо ви хочете перемістити або скопіювати робочі таблиці Excel в іншу книгу, спочатку необхідно переконатися, що цільова робоча книга відкрита в одній версії Microsoft Excel.Виберіть аркуші, які потрібно перемістити або скопіювати. Далі перейдіть на вкладку " Головна" на панелі інструментів і натисніть групу " Клітини "> " Формат" . У розділі Організація аркушів натисніть кнопку Перемістити або скопіювати аркуш .
Відкриється діалогове вікно. У списку Щоб забронювати, виберіть або перемістіть або скопіюйте вибрані аркуші до існуючої книги або перемістіть або скопіюйте аркуші до нової робочої книги.
У списку До ви можете натиснути на аркуш, перед яким ви хочете вставити переміщені або скопійовані аркуші, або клацнути на кінці, щоб вставити аркуші після останнього аркуша робочої книги.
Переміщення або копіювання даних за допомогою VBA
Підпрограма CopyOpenItems ()
'
"CopyOpenItems Macro
'Копіювати відкриті елементи до аркуша.
'
"Комбінація клавіш: Ctrl + Shift + O
'
Dim wbTarget As Workbook 'книга, де дані повинні бути вставлені
Dim wbThis As Workbook 'книга, з якої дані повинні бути скопійовані
Dim strName As String 'ім'я вихідного аркуша / цільової книги
"встановлено на поточну активну книгу (книга-джерело)
Встановіть wbThis = ActiveWorkbook
'Отримати активну назву листа книги
strName = ActiveSheet.Name
'відкрийте книгу, яка має таку саму назву, як і назва аркуша
Встановити wbTarget = Workbook.Open ("C: шлях до файлу" & strName & ".xlsx")
'виберіть осередок A1 на цільовій книзі
wbTarget.Range ("A1")
'очистити існуючі значення форми цільової книги
wbTarget.Range ("A1: M51")
'активуйте книгу-джерело
wbThis.Activate
'Зніміть будь-яку річ у буфері обміну, щоб максимізувати доступну пам'ять
Application.CutCopyMode = False
'копіювати діапазон із вихідної книги
wbThis.Range ("A12: M62")
'Вставте дані в цільову книгу
wbTarget.Range ("A1")
'Зніміть будь-яку річ у буфері обміну, щоб максимізувати доступну пам'ять
Application.CutCopyMode = False
'зберегти цільову книгу
wbTarget.Save
'закрити книгу
wbTarget.Close
'знову активуйте книгу-джерело
wbThis.Activate
'Ясна пам'ять
Встановити wbTarget = Ніщо
Встановити wbThis = Нічого
End Sub