Salin Data ke Buku Kerja Lain di Excel
Artikel ini akan memperkenalkan Anda kepada kedua metode menyalin data ke buku kerja lain di Microsoft Excel.
- Memindahkan atau Menyalin Data di Buku Kerja yang Sama
- Memindahkan atau Menyalin Data di Buku Kerja yang Berbeda
- Memindahkan atau Menyalin Data Menggunakan VBA
Memindahkan atau Menyalin Data di Buku Kerja yang Sama
Langkah pertama adalah memilih lembar yang ingin Anda pindahkan atau salin. Untuk memilih beberapa lembar, cukup pilih lembar pertama Anda, dan kemudian, tahan tombol Kontrol sambil mengklik lembar tambahan yang ingin Anda salin.Pada tab Beranda di bilah alat atas, temukan grup Sel, dan klik Format . Di bawah Atur Lembar, klik Pindahkan atau Salin Lembar .
Kotak dialog akan terbuka. Di daftar Sebelum, Anda bisa mengklik lembar sebelum yang ingin Anda sisipkan lembar pindah atau disalin, atau Anda bisa mengklik pindah ke ujung untuk memasukkan lembar setelah lembar terakhir di buku kerja Anda.
Untuk menyalin lembar alih-alih memindahkannya, pilih kotak centang Buat salinan yang ditemukan di kotak dialog Pindahkan atau Salin .
Memindahkan atau Menyalin Data di Buku Kerja yang Berbeda
Jika Anda ingin memindahkan atau menyalin lembar kerja Excel ke buku kerja lain, Anda harus terlebih dahulu memastikan bahwa buku kerja target terbuka di versi Microsoft Excel yang sama.Pilih lembar yang ingin Anda pindahkan atau salin. Selanjutnya, buka tab Beranda di bilah alat Anda dan klik grup Sel > Format . Di bawah Atur Lembar, klik Pindahkan atau Salin Lembar .
Kotak dialog akan terbuka. Di daftar Ke buku, pilih untuk memindahkan atau menyalin lembar yang dipilih ke buku kerja yang ada atau untuk memindahkan atau menyalin lembar ke buku kerja baru.
Di daftar Sebelum, Anda bisa mengklik lembar sebelum yang ingin Anda sisipkan lembar pindah atau disalin, atau Anda bisa mengklik pindah ke ujung untuk memasukkan lembar setelah lembar terakhir di buku kerja Anda.
Memindahkan atau Menyalin Data Menggunakan VBA
Sub CopyOpenItems ()
'
'CopyOpenItems Makro
'Salin item yang terbuka ke lembaran.
'
'Pintasan Keyboard: Ctrl + Shift + O
'
Dim wbTarget As Workbook 'workbook di mana data akan di-paste
Dim wbThis As Workbook 'workbook dari mana data akan disalin
Dim strName As String 'nama lembar sumber / buku kerja target
'disetel ke buku kerja aktif saat ini (buku sumber)
Set wbThis = ActiveWorkbook
'dapatkan nama lembar aktif buku ini
strName = ActiveSheet.Name
buka buku kerja yang memiliki nama yang sama dengan nama lembar
Set wbTarget = Workbooks.Open ("C: \ filepath \" & strName & ".xlsx")
'pilih sel A1 pada buku target
wbTarget.Range ("A1"). Pilih
'hapus nilai yang ada dari buku target
wbTarget.Range ("A1: M51"). ClearContents
'aktifkan buku sumber
wbThis. Aktifkan
Hapus semua yang ada di clipboard untuk memaksimalkan memori yang tersedia
Application.CutCopyMode = Salah
'salin rentang dari buku sumber
wbThis.Range ("A12: M62"). Salin
'rekatkan data pada buku target
wbTarget.Range ("A1"). PasteSpecial
Hapus semua yang ada di clipboard untuk memaksimalkan memori yang tersedia
Application.CutCopyMode = Salah
'simpan buku target
wbTarget. Hemat
tutup buku kerja
wbTarget.Close
'aktifkan lagi buku sumber
wbThis. Aktifkan
'ingatan yang jelas
Set wbTarget = Tidak Ada
Setel wbThis = Tidak Ada
End Sub