Ketika kita perlu menyalin dan menempelkan data apa pun di Microsoft Excel, kita memiliki fasilitas alat pintas dan pita yang berbeda di Excel. VBA Makro juga memiliki fasilitas tersebut daripada pilihan buku kerja. VBA Tempel Khusus nilai dan format di Excel.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Nilai dan Format Menggunakan PasteSpecial.xlsm

9 Contoh untuk Menyalin Nilai dan Format dengan Tempel Khusus di Excel VBA

Dalam artikel ini, kita akan membahas 9 metode dengan Makro VBA untuk Tempel Khusus nilai dan format di Excel.

Kami akan mempertimbangkan dataset di bawah ini untuk tujuan ini.

1. Terapkan InputBox di VBA Tempel Khusus untuk Menyalin Nilai dan Format

Kita akan menggunakan opsi InputBox dalam contoh ini untuk Tempel Khusus .

Langkah 1:

• Pergi ke Pengembang tab.
• Klik pada Rekam Makro .
• Set Excel_Tempel_Khusus_1 sebagai Nama makro .
• Kemudian tekan OK .

Langkah 2:

• Sekarang, klik tombol Makro perintah.
• Pilih Makro lalu tekan Melangkah ke dalam .

Langkah 3:

• Salin dan tempelkan kode berikut pada modul perintah.

 Sub Excel_Paste_Special_1() Dim Copy_Cell As Range, Paste_Cell As Range xTitleId = "Salary_Sheet" Set Copy_Cell = Application.Selection Set Copy_Cell = Application.InputBox("Select Range to Copy :", xTitleId, Copy_Cell.Address, Type:=8) Set Paste_Cell = Application.InputBox("Paste to any blank cell:", xTitleId, Type:=8) Copy_Cell.Copy Paste_Cell.Parent.Activate Paste_Cell.PasteSpecialxlPasteValuesAndNumberFormats Paste_Cell.PasteSpecial xlPasteFormats Application.CutCopyMode = False End Sub 

Langkah 4:

• Tekan F5 untuk menjalankan kode.
• Kotak dialog baru akan muncul. Pilih rentang sumber pada kotak itu.
• Kemudian tekan OK .

Langkah 5:

• Kotak dialog lain akan muncul. Pilih rentang kosong tempat menempelkan sel yang disalin.

Sekarang, lihat dataset.

Semua data disalin dengan nilai dan format menggunakan VBA Tempel Khusus .

Baca selengkapnya: Cara Menerapkan VBA PasteSpecial dan Mempertahankan Pemformatan Sumber di Excel

2. Sisipkan Rentang Sel dengan Nilai dan Format Menggunakan xlPasteAllMenggunakanSourceTheme di VBA Paste Special

Kita akan menyisipkan cell range secara langsung pada VBA kode di bagian ini.

Langkah 1:

• Tekan Alt+F11 untuk memasuki modul perintah.
• Letakkan kode berikut pada modul perintah.

 Sub Excel_Paste_Special_2() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Langkah 2:

• Sekarang, tekan F5 untuk menjalankan kode.

Ini xlPasteAllMenggunakanSumberTema menyalin duplikat persis dari data sumber.

Baca selengkapnya: Excel VBA: Salin Nilai Sel dan Tempel ke Sel Lain

3. Gunakan Variabel VBA untuk Menyisipkan Rentang dengan Nilai dan Format Menggunakan Paste Special

Kita akan menunjukkan penggunaan variabel dalam VBA Tempel Khusus kode di sini.

Langkah 1:

• Pertama, masuk ke modul perintah dengan menekan Alt+F11 .
• Tuliskan kode di bawah ini dalam modul perintah.

 Sub Excel_Paste_Khusus_3() Dim sumber_rng As Range, paste_rng As Range Set sumber_rng = Range("B4:C9") Set paste_rng = Range("E4") sumber_rng.Copy paste_rng.Paste_Khusus Paste:=xlPasteAllUsingSourceTheme End Sub 

Langkah 2:

• Tekan F5 dan jalankan kodenya.

Baca selengkapnya: Excel VBA: Salin Rentang ke Buku Kerja Lain

4. Gunakan xlPasteValues dan xlPasteFormats untuk Menyalin Nilai dan Format di Sheet Lain dengan Menjaga Format Tidak Berubah

Metode-metode di atas digunakan untuk menyalin dan menempelkan data dalam sheet yang sama. Sekarang, kita akan menunjukkan bagaimana menggunakan VBA Tempel Khusus untuk lembaran yang berbeda.

Langkah 1:

• Masuk ke modul perintah dengan mengklik Alt+F11 dan menyalin kode berikut di atasnya.

 Private Sub Excel_Paste_Khusus_4() Application.ScreenUpdating = False Dim source_rng As Worksheet Dim paste_rng As Worksheet Set source_rng = Worksheets("Data_Set") Set paste_rng = Worksheets("Different_Sheet") Set Destination = paste_rng.Range("B2") source_rng.Range("B2:C9").Copy Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = False Application.ScreenUpdating = True End Sub 

Langkah 2:

• Tekan F5 untuk menjalankan kode.

Kita bisa melihat bahwa data dari Data_Set disalin ke Lembar_Berbeda .

Baca selengkapnya: Cara Menggunakan VBA PasteSpecial untuk Rumus dan Format di Excel (3 Cara)

Bacaan Serupa

• Cara Menyalin Beberapa Sel ke Lembar Lain di Excel (9 Metode)
• Perbedaan Antara Tempel dan Tempel Khusus di Excel
• Excel VBA untuk Menyalin Data dari Buku Kerja Lain tanpa Membuka
• Cara Menyalin dan Menempel di Excel dan Menjaga Ukuran Sel (7 Contoh)
• Salin dan Tempel Nilai ke Baris Kosong Berikutnya dengan Excel VBA (3 Contoh)

5. Gunakan xlPasteFormats untuk Menempelkan Format Saja

Pada metode sebelumnya, kita menyalin seluruh data dan menempelkannya tanpa perubahan. Tetapi pada bagian ini, kita hanya akan menyalin format data.

Langkah 1:

• Pergi ke modul perintah dengan menekan Alt+F11 .
• Salin dan tempelkan kode di bawah ini dalam modul perintah.

 Sub Excel_Paste_Special_5() Range("B2:C9").Copy Range("E2").PasteSpecial xlPasteFormats End Sub 

Langkah 2:

• Sekarang, tekan tombol F5 dan jalankan kodenya.

Lihatlah dataset. Hanya format yang disalin, tidak ada nilai yang ada di sini.

Baca selengkapnya: Cara Menyalin dan Menempel di Excel Tanpa Mengubah Format

6. Gunakan xlPasteValues untuk Menempelkan Nilai Saja

Kita bisa menyalin nilai hanya dengan menggunakan VBA Tempel Khusus .

Langkah 1:

• Tekan Alt+F11 untuk memasuki modul perintah.
• Tulis kode berikut pada modul perintah.

 Sub Excel_Paste_Special_6() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteValues End Sub 

Langkah 2:

• Klik pada F5 dan jalankan kodenya.

Perhatikan dataset. Hanya nilai yang disalin di sini. Tidak ada format yang disalin dalam metode ini.

Baca selengkapnya: Cara Menggunakan VBA untuk Menempel Nilai Hanya dengan Tanpa Pemformatan di Excel

7. Salin dan Tempel Semua Isi Sel Tunggal

Di bagian sebelumnya, kita menyalin rentang data. Di sini, kita hanya akan menyalin satu sel.

Langkah 1:

• Sekarang, tekan Alt+F11 dan masuk ke modul perintah.
• Ketikkan kode berikut pada modul.

 Sub Excel_Paste_Special_7() Range("B4").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Langkah 2:

• Sekarang, tekan tombol F5 untuk menjalankan kode.

Kita bisa melihat bahwa satu sel disalin di sini, bukan rentang.

Baca selengkapnya: Rumus untuk Menyalin dan Menempel Nilai di Excel (5 Contoh)

8. Salin dan Tempel Semua Atribut Kolom Tertentu dengan VBA

Seperti sel tunggal, kita bisa menyalin satu kolom dalam dataset.

Langkah 1:

• Cukup tekan tombol Alt+F11 untuk memasuki modul perintah.
• Tulis kode di bawah ini dalam modul.

 Sub Excel_Paste_Khusus_8() Dim sumber_rng As Range, paste_rng As Range Set sumber_rng = Kolom("C") Set paste_rng = Kolom("E") sumber_rng.Copy paste_rng.PasteKhusus Tempel:=xlPasteAllMenggunakanSumberSumber End Sub 

Langkah 2:

• Jalankan kode dengan menekan F5 .

Di sini, kita bisa melihat bahwa Kolom B disalin ke Kolom E .

Baca selengkapnya: [Diperbaiki]: Klik Kanan Salin dan Tempel Tidak Bekerja di Excel (11 Solusi)

9. Salin dan Tempel Semua Atribut Baris dengan Excel VBA

Demikian pula, kita bisa menyalin satu baris menggunakan Tempel Khusus .

Langkah 1:

• Klik pada Alt+F11 untuk masuk ke modul perintah.
• Salin kode berikut pada modul perintah.

 Sub Excel_Paste_Khusus_9() Dim sumber_rng As Range, tempel_rng As Range Set sumber_rng = Baris("4") Set tempel_rng = Baris("11") sumber_rng.Copy tempel_rng.Tempel_Khusus Tempel:=xlPasteAllMenggunakanSumberTema End Sub 

Langkah 2:

• Jalankan kode dengan menekan F5 .

Di sini, Baris 4 disalin ke Baris 11 .

Baca selengkapnya: Cara Menyalin Beberapa Baris di Excel Menggunakan Makro (4 Contoh)

Kesimpulan

Dalam artikel ini, kami telah menjelaskan 9 metode VBA Tempel Nilai dan format khusus di Excel. Saya harap ini akan memenuhi kebutuhan Anda. Silakan lihat situs web kami Exceldemy.com dan berikan saran Anda dalam kotak komentar.