Menyalin Data ke Workbook Lain di Excel

Ajukan pertanyaan
Saat mengolah data di Microsoft Excel, fitur Move dan Copy Sheet adalah salah cara mudah untuk memindah atau menyalin seluruh data pada sebuah sheet ke lokasi lain. Sebagai alternatif, Anda dapat menggunakan VBA (Visual Basic for Applications) untuk membantu proses ini secara otomatis dan tidak begitu membosankan.

Artikel ini akan memberi tahu Anda cara menyalin data ke lembar kerja (workbook) lain pada Microsoft Excel.



Memindah atau Menyalin Data di Workbook yang Sama

Langkah pertama adalah memilih sheet yang ingin dipindah atau disalin. Untuk memilih beberapa sheet, cukup klik pada sheet pertama, dan kemudian tahan tombol Control saat mengklik sheet lain yang ingin disalin.


Pada tab toolbar Home atas, cari bagian Cells, dan klik Format. Di bawah Organize Sheets, klik Move or Copy Sheet.

Sebuah kotak dialog akan terbuka. Pada daftar Before, Anda dapat mengklik sheet before yang akan ditempati sheet baru, atau Anda dapat mengklik move to end untuk menambahkan sheet tersebut pada bagian akhir workbook Anda.

Untuk menyalin sheet, pilih Create a copy pada kotak dialog yang muncul setelah mengklik perintah Move or Copy.

Memindah atau menyalin Data di Workbook yang Berbeda

Jika Anda ingin memindah atau menyalin sheet Excel ke workbook lain, Anda harus memastikan workbook tujuan memiliki versi Microsoft Excel yang sama.


Pilih sheet yang ingin Anda pindah atau salin. Berikutnya, pergi ke tab Home pada toolbar dan klik Cells > Format. Di bawah Organize Sheets, klik Move or Copy Sheet.

Sebuah kotak dialog akan terbuka. Pada daftar To book, pilih sheet yang akan disalin ke workbook baru Anda.

Pada bagian opsi Before , Anda dapat mengklik before untuk menempatkan sheet sebelum sheet tertentu, atau klik move to end untuk menempatkan sheet pada akhir workbook Anda.

Memindah atau Menyalin Data Menggunakan VBA


Sub CopyOpenItems()
'
' CopyOpenItems Macro
' Copy open items to sheet.
'
' Keyboard Shortcut: Ctrl+Shift+O
'
Dim wbTarget As Workbook 'workbook di mana data akan ditempatkan
Dim wbThis As Workbook 'workbook asal data yang akan disalin
Dim strName As String 'nama sumber sheet/

'set to the current active workbook (the source book)
Set wbThis = ActiveWorkbook

'get the active sheetname of the book
strName = ActiveSheet.Name

'open a workbook that has same name as the sheet name
Set wbTarget = Workbooks.Open("C:\filepath\" & strName & ".xlsx")

'select cell A1 on the target book
wbTarget.Range("A1").Select

'clear existing values form target book
wbTarget.Range("A1:M51").ClearContents

'activate the source book
wbThis.Activate

'clear any thing on clipboard to maximize available memory
Application.CutCopyMode = False

'copy the range from source book
wbThis.Range("A12:M62").Copy

'paste the data on the target book
wbTarget.Range("A1").PasteSpecial

'clear any thing on clipboard to maximize available memory
Application.CutCopyMode = False

'save the target book
wbTarget.Save

'close the workbook
wbTarget.Close

'activate the source book again
wbThis.Activate

'clear memory
Set wbTarget = Nothing
Set wbThis = Nothing

End Sub
Jean-François Pillou

Dalam penulisan konten, kami bekerja sama dengan para ahli IT, di bawah arahan Jean-François Pillou, Pendiri CCM.net sekaligus Direktur Digital di Grup Figaro. CCM adalah situs web teknologi nomor satu di Perancis dan tersedia dalam 11 bahasa.

Pelajari lebih lanjut tentang tim CCM