Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara membuat Tombol Perintah untuk menyalin dan menempelkan data di Excel?

Misalkan Anda perlu sering menyalin rentang sel ke tempat lain setelah mengubah data, metode salin dan tempel secara manual akan menjadi rumit dan memakan waktu. Bagaimana cara agar urusan salin dan tempel ini berjalan otomatis? Artikel ini akan menunjukkan kepada Anda cara menggunakan tombol perintah untuk menyalin dan menempelkan data hanya dengan satu klik.

Buat Tombol Perintah untuk menyalin dan menempelkan data dengan kode VBA


Buat Tombol Perintah untuk menyalin dan menempelkan data dengan kode VBA

Lakukan hal berikut untuk menyalin dan menempelkan data secara otomatis saat mengklik Tombol Perintah.

1. Sisipkan Tombol Perintah dengan mengklik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX). Lihat tangkapan layar:

2. Gambarlah Tombol Perintah di lembar kerja Anda dan klik kanan. Pilih Lihat kode dari menu konteks

3. Dalam bermunculan Microsoft Visual Basic untuk Aplikasi jendela, silakan ganti kode asli di jendela Kode dengan kode VBA di bawah ini.

Kode VBA: Gunakan Tombol Perintah untuk menyalin dan menempelkan data di Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Note: Di dalam kode, CommandButton1 adalah nama Tombol Perintah yang Anda sisipkan. A1: C17 adalah rentang yang perlu Anda salin, dan J1: L17 adalah rentang tujuan untuk menempelkan data. Harap ubah sesuai kebutuhan Anda.

4. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela. Dan matikan Mode Desain di bawah tab Pengembang.

5. Sekarang klik Command Button, semua data dalam range A1: C17 akan disalin dan ditempelkan ke dalam range J1: L17 tanpa format sel.


Terkait artikel:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (58)
Rated 4.5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Saya telah menggunakan fungsi ini di buku kerja saya. Saya menggunakan tombol x aktif untuk menyalin dan menempelkan data dalam lembar yang sama pada beberapa lembar. Namun ada lembar tanpa tombol x aktif atau makro yang mendapatkan data tempel dari bidang masing-masing pada lembar yang tidak saya inginkan. Membantu?
Komentar ini diminimalkan oleh moderator di situs
Dapatkah saya memiliki kode yang akan menyalin rentang I4:L26 dari Sheet2 (disebut TransferSheet) (tombol akan ada di lembar ini) ke Sheet1 (disebut JobsToDo) pada baris C (baris pertama yang kosong karena ini akan memiliki data yang ditambahkan terus-menerus, silakan
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda bisa mengubah kode untuk menempelkan hasil ke halaman lain di buku kerja? dan bagaimana Anda memasukkan baris sebelum memasukkan data baru sehingga tidak menimpanya
Komentar ini diminimalkan oleh moderator di situs
Hi Jason,
Jika Anda ingin menempelkan hasilnya ke lembar kerja lain di dalam buku kerja, silakan coba kode VBA di bawah ini.

Sub CommandButton1_Click Pribadi ()
Redupkan xSheet, xDWS Sebagai Lembar Kerja
Redupkan xFNum Sebagai Integer
Redupkan xSRg Sebagai Rentang

On Error Resume Next
Set xSRg = Application.InputBox("Silakan pilih sel untuk menempelkan rentang:", "Kutools for Excel", xTxt, , , , , 8)
Jika xSRg Bukan Apa-apa Kemudian Keluar dari Sub

Application.ScreenUpdating = Salah
Rentang("A1:C17 ").Salin
xSRg.PasteSpecial Paste:=xlValues, Operasi:=xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = Benar

End Sub
Komentar ini diminimalkan oleh moderator di situs
bagaimana rumus bagi kita untuk menyalin file
lalu tempel ke lembar berikutnya. dan tempel yang berikutnya beri spasi atau terus turun tanpa menghapus tempel sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode VBA di bawah ini dapat membantu Anda memecahkan masalah. Silakan coba. Terima kasih.

Sub CommandButton1_Click Pribadi ()
Redupkan xSheet, xDWS Sebagai Lembar Kerja
Redupkan xFNum Sebagai Integer
Redupkan xSRg Sebagai Rentang

On Error Resume Next
Set xSRg = Application.InputBox("Silakan pilih sel untuk menempelkan rentang:", "Kutools for Excel", xTxt, , , , , 8)
Jika xSRg Bukan Apa-apa Kemudian Keluar dari Sub

Application.ScreenUpdating = Salah
Rentang("A1:C17 ").Salin
xSRg.PasteSpecial Paste:=xlValues, Operasi:=xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = Benar

End Sub
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika saya ingin membuat antrian tempel?
Untuk menjelaskan lebih lanjut. Saya mengklik CommandButton1 lalu menyalin A1. Ketika saya telah menggunakan tempel, salin dari A1 - Kemudian saya ingin menyalin A2 tanpa mengklik tombol lain, sehingga saya dapat langsung menempelkan A2, di tempat lain. Kemudian Ketika saya telah menggunakan tempel, salin dari A2 lalu salin A3. Jika itu mungkin? Bisakah ini juga bekerja di latar belakang saat menggunakan lembar Excel normal, dan coba lakukan tindakan ini di mana saya menyalin dari Excel, lalu menempel di program yang sama sekali berbeda seperti browser internet, program lain, kata, file txt, dan sebagainya ?

Artikel ini sangat membantu, terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Hai Magnus,
Maaf tidak dapat membantu Anda dengan itu. Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
Saya ingin memperluas satu langkah ini... Setelah menempelkan nilai sebenarnya bukan rumus... Saya perlu menyalin sel baru dan menempel di program lain yang bukan excel, apakah saya perlu mengklik tombol salin rumus dari a sel tertentu dan melewati nilai aktual di sel lain, lalu salin nilai baru itu ke papan klip windows untuk melewati di aplikasi lain. Semoga ini masuk akal, dan hargai bantuan Anda untuk mengetahui cara menambahkan kode baru... Saya tahu apa yang saya inginkan, hanya saja tidak terbiasa dengan cara mengkodekannya...
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode telah diperbarui di artikel, silakan coba. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk tombol perintah untuk langsung menempelkan rentang yang dipilih ke lembar tertentu (di sel kosong berikutnya) daripada harus memasukkan setiap kali Anda ingin menempelkan data?
Komentar ini diminimalkan oleh moderator di situs
Hi Adam,
Kode VBA di bawah ini dapat membantu Anda memecahkan masalah.
Anda perlu mengganti "Sheet4" dan "A1:C17" dalam kode dengan lembar dan rentang yang Anda tentukan.

Sub CommandButton1_Click Pribadi ()
Redupkan xSWName As String
Redupkan xSheet Sebagai Lembar Kerja
Redupkan xPSsheet Sebagai Lembar Kerja
Redupkan xIntR Sebagai Integer
xSWName = "Sheet4"
On Error Resume Next
Application.ScreenUpdating = Salah
Setel xSheet = ActiveSheet
Jika xSheet.Name <> "Definisi" Dan xSheet.Name <> "fx" Dan xSheet.Name <> "Perlu" Kemudian
xSheet.Range("A1:C17 ").Salin
Setel xPSsheet = Lembar Kerja.Item(xSWName)
xIntR = xPSsheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operasi:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
sangat bagus, saya perlu menyalin dan menempel berkali-kali apakah mungkin membuat pilihan untuk menempelkan satu baris data ke 3 baris atau 5 baris apa pun yang saya suka?
Komentar ini diminimalkan oleh moderator di situs
Maaf tidak dapat membantu Anda dengan itu
Komentar ini diminimalkan oleh moderator di situs
pak bagaimana cara menyalin rentang sel di lembar kerja saat ini lalu menempel ke lembar kerja lain?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode VBA di bawah ini dapat membantu Anda memecahkan masalah.
Anda perlu mengganti "Sheet4" dan "A1:C17" dalam kode dengan lembar dan rentang yang Anda tentukan.

Sub CommandButton1_Click Pribadi ()
Redupkan xSWName As String
Redupkan xSheet Sebagai Lembar Kerja
Redupkan xPSsheet Sebagai Lembar Kerja
Redupkan xIntR Sebagai Integer
xSWName = "Sheet4"
On Error Resume Next
Application.ScreenUpdating = Salah
Setel xSheet = ActiveSheet
Jika xSheet.Name <> "Definisi" Dan xSheet.Name <> "fx" Dan xSheet.Name <> "Perlu" Kemudian
xSheet.Range("A1:C17 ").Salin
Setel xPSsheet = Lembar Kerja.Item(xSWName)
xIntR = xPSsheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operasi:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Jika saya ingin menyalin ini bukan di buku kerja saat ini tetapi ke buku kerja lain (yang masih belum dibuka) di excel. Bagaimana cara mengubah kode VBA ini?
Komentar ini diminimalkan oleh moderator di situs
Hai Robby,
Maaf tidak dapat membantu Anda dengan itu. Terima kasih telah berkomentar.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki qusrion Saya memiliki lembar 1 dengan kolom tanggal b3:b33 dan saya ingin itu disalin ke lembar 2 B33:b63 teksnya tetapi saya memerlukan format yang sama untuk teks yaitu ukuran warna
Komentar ini diminimalkan oleh moderator di situs
Penulis yang terhormat,

Artikel yang Anda sebutkan di atas sangat membantu saya. Saya tidak terbiasa dengan kode dan perintah excel. Saya masih perlu tahu daripada artikel ini. Saya setuju dengan salin dan tempel ke lembar berikutnya. Tapi saya masih perlu tahu "cara menempel dan menambahkan baris baru di lembar berikutnya setiap kali saya menekan tombol". Jika tidak, data saya di lembar berikutnya akan diganti setiap saat. Saya akan sangat berterima kasih dan menantikan balasan Anda.
Komentar ini diminimalkan oleh moderator di situs
Hai Kyaw Ye Min,
Maaf untuk membalas begitu terlambat. Ikuti langkah-langkahnya dan ganti kode dengan di bawah ini. Dalam kode, Sheet4 adalah lembar kerja tujuan tempat Anda akan menyalin data, harap ubah dan rentang yang disalin A1:C17 sesuai kebutuhan. Terima kasih atas komentar Anda.

Sub CommandButton1_Click Pribadi ()
Redupkan xSWName As String
Redupkan xSheet Sebagai Lembar Kerja
Redupkan xPSsheet Sebagai Lembar Kerja
Redupkan xIntR Sebagai Integer
xSWName = "Sheet4"
On Error Resume Next
Application.ScreenUpdating = Salah
Setel xSheet = ActiveSheet
Jika xSheet.Name <> "Definisi" Dan xSheet.Name <> "fx" Dan xSheet.Name <> "Perlu" Kemudian
xSheet.Range("A1:C17 ").Salin
Setel xPSsheet = Lembar Kerja.Item(xSWName)
xIntR = xPSsheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operasi:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo tolong bantu. Saya memerlukan hal yang sama seperti di atas tetapi saya hanya perlu menempelkan sel aktif apa pun ke baris baru (jika mungkin di atas entri sebelumnya) di lembar kerja yang berbeda. Sangat menghargai bantuan apa pun dengan ini. Salam Hormat
Komentar ini diminimalkan oleh moderator di situs
hai, bantu kasus saya, saya ingin memiliki tombol untuk menghasilkan makro di mana saya memiliki excel dan mengekspor data di mana dalam <" "> ke Word, terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai,
Maaf saya tidak mengerti maksud Anda. Akan lebih baik jika Anda bisa menjelaskan dengan lebih detail tentang apa yang Anda coba lakukan.
Komentar ini diminimalkan oleh moderator di situs
Saya mencari bantuan agar pengguna dapat mengklik nomor baris dan kemudian menekan tombol perintah yang akan membuat salinan dari baris itu dan memasukkannya ke baris di bawahnya.
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Maaf belum bisa membantu. Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
master bagaimana jika berbeda sheet dan copy data yang diinginkan
contoh sheet1 hanya data kolom B & kolom D copy ke sheet2
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
silakan kirim VBAcode untuk menyalin konten sel tunggal menggunakan klik tombol perintah tanpa menggunakan kotak teks sehingga dapat menempel di aplikasi apa pun seperti notepad, msword
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin membuat tombol yang hanya menyalin satu sel yang dipilih pada satu lembar ke lembar lain? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai lexi,
Kode VBA di bawah ini dapat membantu Anda memecahkan masalah. Silakan ubah "Sheet3" menjadi nama sheet sesuai kebutuhan.
Pilih sel dan tekan tombol perintah untuk membuatnya berfungsi.

Sub CommandButton1_Click Pribadi ()
Redupkan xSWName As String
Redupkan xSheet Sebagai Lembar Kerja
Redupkan xPSsheet Sebagai Lembar Kerja
Redupkan xIntR Sebagai Integer
xSWName = "Sheet3"
On Error Resume Next
Application.ScreenUpdating = Salah
Setel xSheet = ActiveSheet
Jika xSheet.Name <> "Definisi" Dan xSheet.Name <> "fx" Dan xSheet.Name <> "Perlu" Kemudian
Seleksi.Wilayah Saat Ini.Pilih
Seleksi.Salin
Setel xPSsheet = Lembar Kerja.Item(xSWName)
xIntR = xPSsheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operasi:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo!
Apakah ada cara untuk membuat kode sehingga saya dapat memiliki tombol untuk menyalin rentang (katakanlah A1: D5).
Dan kemudian tempel ke A6:D10.

Dan jika saya menekan tombol sekali lagi itu akan menyalin A1:D5 ke A11:D15.

Dan seterusnya?
Komentar ini diminimalkan oleh moderator di situs
Hai Jonas,
Maaf tidak dapat membantu Anda untuk itu. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa - saya telah beradaptasi untuk s.sheet saya tetapi saya membutuhkannya untuk lebih dinamis dan menggunakan label daripada kode keras lokasi sel.
Yaitu di range A2-A6 cari nama 'Jamie' lalu cari nama di Kolom K2 dan paste

Saya juga membutuhkan setiap klik untuk memberi +1 dan menjalankan salin dan tempel yang sama tetapi ke kolom berikutnya yaitu

klik 1 - tempel ke Q1, Klik 2 - tempel ke Q2 dll

Contoh:

Kolom A Kolom B ...... Kolom K Kolom L
1. Nama Jam Kerja Nama Q1 Q2 Q3 Q4
2. Jamie 22 Sammy
3. Sammy 40 Judith
4. Judith 18 Jamie
5. Tammy 16 Keith
6. Keith 42 Tammy


Bantuan apa pun akan sangat dihargai.
Komentar ini diminimalkan oleh moderator di situs
bagaimana kode untuk menyalin sel dari rentang a1 ke a5 untuk menempel ke c1 dan ke sel yang tersedia berikutnya secara berurutan?
Komentar ini diminimalkan oleh moderator di situs
dan juga, salin dan tempel sel satu per satu..
Terima kasih untuk bantuannya!
Komentar ini diminimalkan oleh moderator di situs
Hai kawan. ini butuh bantuan, tolong. Saya perlu membuat tombol 10* di lembar kerja saya (Sheet1) yang akan menyalin 3 sel, Contoh: Sheet1, A1, B1, C1. lalu paste di Sheet2 A1, B1, C1. kemudian jika saya mengklik tombol 4, contoh: Sheet1, A4, B4, C4, saya perlu ini untuk melewati di Sheet2, A2, B2, C2. Jika saya mengklik Tombol 2 maka harus melewati Sheet2, A3, B3, C3. Saya harap ini masuk akal.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan