Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyalin hanya sempadan julat yang dipilih dalam Excel?

Semasa menggunakan Microsoft Excel, mudah untuk menyalin nilai sel sahaja, pemformatan sel, formula sel dan sebagainya dari julat dengan fungsi Tampal Khas. Tetapi adakah anda pernah cuba menyalin hanya gaya sempadan dari julat dalam Excel? Artikel ini akan menunjukkan cara menyalin hanya sempadan julat terpilih ke julat baharu dalam Excel.

Salin hanya sempadan julat terpilih dengan kod VBA


anak panah gelembung kanan biruSalin hanya sempadan julat terpilih dengan kod VBA


Kod VBA berikut boleh membantu anda hanya menyalin gaya sempadan sel terpilih, dan kemudian gunakan gaya sempadan ini untuk julat baharu dalam Excel. Sila buat seperti berikut.

1. Tekan butang Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul, dan kemudian salin dan tampal di bawah kod VBA ke dalam tetingkap Kod.

Kod VBA: Salin hanya sempadan julat yang dipilih dalam Excel

Sub CopyBorders()
    Dim xRg As Range
    ActiveWorkbook.Styles("Normal").IncludeBorder = False
    On Error Resume Next
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
     
    With Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
        xRg.Copy
        .PasteSpecial -4122
        .Resize(xRg.Rows.Count, xRg.Columns.Count).Style = "Normal"
    End With
    ActiveWorkbook.Styles("Normal").IncludeBorder = True
End Sub

3. Tekan butang F5 kunci untuk menjalankan kod. Pada mulanya muncul Kutools untuk Excel kotak dialog, sila pilih julat dengan sempadan yang perlu anda salin, dan kemudian klik OK butang.

4. Pada yang kedua Kutools untuk Excel kotak dialog, sila pilih sel untuk memohon sempadan disalin, kemudian klik OK butang. Lihat tangkapan skrin:

Kemudian anda boleh melihat hanya gaya sempadan julat yang dipilih disalin dan diterapkan pada julat baru seperti gambar di bawah yang ditunjukkan.


anak panah gelembung kanan biruRelated articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    David Kassover · 2 months ago
    The code also copied my numeric formats and overwrote those in the target cells. Perhaps I did something wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi David,
      In my case, the code only copy the borders into the target cells. Can you tell me your Excel version? Thank you for your comment.