Vba: cara menempelkan nilai saja tanpa memformat

Anda dapat menggunakan sintaks berikut di VBA untuk menyalin rentang sel tertentu dan menempelkan nilainya hanya ke lokasi baru tanpa memformat:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Makro khusus ini akan menyalin sel dalam rentang A1:D9 dan menempelkan nilai sel tanpa pemformatan apa pun ke dalam rentang yang dimulai dari sel A12 .

Catatan : Baris Application.CutCopyMode = False menetapkan bahwa mode potong dan salin harus dinonaktifkan setelah makro dijalankan.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Tempel nilai saja tanpa memformat menggunakan VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Katakanlah kita ingin menyalin dan menempelkan semua nilai dalam rentang A1:D9 ke lokasi baru tanpa memformat.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa nilai sel asli telah ditempelkan ke lokasi baru tanpa pemformatan apa pun.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA PasteSpecial di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung jumlah kolom yang digunakan