Vba: cara menempelkan nilai dan mempertahankan pemformatan

Anda dapat menggunakan sintaks berikut di VBA untuk menyalin rentang sel dan menempelkan nilai dan pemformatan sumber ke lokasi baru:

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

Makro khusus ini akan menyalin sel dalam rentang A1:C11 dan menempelkan nilai sel dengan formatnya ke dalam rentang yang dimulai dari sel A13 .

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

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Tempel Nilai dan Tetap 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:C11 ke lokasi baru dan mempertahankan formatnya.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa nilai sel asli telah ditempelkan dengan formatnya ke dalam rentang sel yang dimulai dari sel A13 .

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 menempelkan nilai saja tanpa memformat
VBA: Cara menyalin garis yang terlihat ke lembar lain
VBA: menyalin baris ke lembar lain berdasarkan kriteria