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.
Memindah atau Menyalin Data di Workbook yang Sama
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