Saat mengolah data di Microsoft Excel, fitur Move dan Copy Sheet adalah salah satu 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.
Artikel ini akan memberi tahu Anda cara menyalin data ke lembar kerja (workbook) lain pada Microsoft Excel.
Langkah pertama adalah memilih lembar yang ingin dipindah atau disalin. Untuk memilih beberapa lembar, cukup klik pada lembar pertama, dan kemudian tahan tombol Control saat mengklik lembar 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 lembar before yang akan ditempati lembar baru, atau Anda dapat mengklik move to end untuk menambahkan lembar tersebut pada bagian akhir workbook Anda.
Untuk menyalin lembar, 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 lembar 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 lembar yang akan disalin ke workbook baru Anda.
Pada bagian opsi Before , Anda dapat mengklik before untuk menempatkan lembar sebelum lembar tertentu, atau klik move to end untuk menempatkan lembar 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
Lihat Juga
Cara mengambil data excel dari file lain dengan macro
Cara mengambil data dari file lain di excel - Jawaban terbaik
Cara copy sheet excel ke file lain dengan macro - Jawaban terbaik
Dokumen ini berjudul « Menyalin Data ke Workbook Lain di Excel », dipublikasikan oleh pihak CCM di bawah lisensi Creative Commons. Anda dapat menyalin, menggunakan, dan memodifikasi konten halaman ini berdasarkan syarat dan ketentuan yang telah ditetapkan oleh lisensi ini. Mohon tetap mencantumkan nama CCM (id.ccm.net) pada publikasi Anda.
