Dengan bantuan dari clipboard, Anda bisa menempelkan semua rentang yang dipilih ke rentang atau lembar kerja lain sekaligus. Harap lakukan sebagai berikut:

1. Klik Beranda > dalam clipboard grup untuk menampilkan clipboard Pane.. Lihat tangkapan layar:

2. Dan kemudian salin rentang yang dipilih yang Anda butuhkan satu per satu. Pada saat yang sama, rentang yang disalin telah muncul di clipboard Pane. lihat tangkapan layar di atas:

3. Pilih sel pertama dari rentang tujuan yang akan Anda tempelkan semua rentang yang disalin, dan klik Tempel Semua tombol di clipboard Panel.

Dan kemudian semua rentang yang disalin telah ditempelkan ke rentang tujuan yang ditentukan.

Gabungkan beberapa pilihan dengan mudah dari banyak lembar kerja / buku kerja ke dalam satu lembar kerja / buku kerja

Mungkin membosankan untuk menggabungkan lusinan lembar dari workbook yang berbeda menjadi satu lembar. Tetapi dengan Kutools for Excel's Gabungkan (lembar kerja dan buku kerja) utilitas, Anda dapat menyelesaikannya hanya dengan beberapa klik!

Dengan kode VBA, Anda juga dapat menyalin beberapa rentang yang dipilih dan menempelkannya ke lembar kerja lainnya.

1. Memegangnya Ctrl kunci dan pilih beberapa rentang yang tidak berdekatan yang ingin Anda gunakan.

2. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk aplikasi window, klik Menyisipkan > Modul, dan masukkan kode berikut ke dalam Modul:

Opsi Explicit Sub CopyMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer 'Exit jika kisaran tidak dipilih Jika TypeName (Pilihan) <> "Range" Kemudian MsgBox "Pilih kisaran yang akan disalin. Pilihan ganda diperbolehkan." Keluar dari Sub End Jika 'Simpan area sebagai objek Jarak terpisah NumAreas = Seleksi.Areas.Count ReDim SelAreas (1 Ke NumAreas) Untuk i = 1 Ke NumAreas Atur SelAreas (i) = Seleksi Area (i) Berikutnya' Tentukan kiri atas sel dalam beberapa pilihan TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas (i) .Row <TopRow Then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Lalu LeftCol = SelAreas (i) .Column Berikutnya Set UpperLeft = Sel (TopRow, LeftCol) 'Dapatkan alamat tempel Pada Kesalahan Lanjutkan Berikutnya Set PasteRange = Application.InputBox _ (Prompt: = "Tentukan sel kiri atas untuk menempelkan range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On Error GoTo 0 'Keluar jika dibatalkan Jika TypeName (PasteRange) <>" Range "Lalu Keluar dari Sub' Pastikan hanya sel kiri atas yang digunakan Set PasteRange = PasteRange.Range ("A1") 'Periksa rentang tempel untuk data yang ada NonEmptyCellCount = 0 Untuk i = 1 Ke NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Area (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + SelAreas) (i) .Columns.Count - 1))) Selanjutnya i 'Jika rentang tempel tidak kosong, peringatkan pengguna Jika NonEmptyCellCount <> 0 Lalu _ Jika MsgBox ("Timpa data yang ada?", vbQuestion + vbYesNo, _ "Salin Beberapa Pilihan ") <> vbYes Kemudian Keluar Sub 'Salin dan tempel setiap area Untuk i = 1 Ke NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i). Salin PasteRange.Offset ( RowOffset, ColOffset) Selanjutnya i End Sub

3. Kemudian klik Run tombol untuk menjalankan kode.

4. Dan sekarang tentukan sel untuk menempelkan rentang di pembukaan Salin Beberapa Pilihan kotak dialog, dan klik OK tombol. Lihat tangkapan layar:

Grafik Salin Beberapa Rentang kegunaan Kutools untuk Excel dapat membantu Anda dengan mudah menyalin beberapa rentang dari lembar kerja aktif dengan cepat. Harap lakukan sebagai berikut:

1. Pilih rentang yang ingin Anda gunakan satu per satu tanpa menahan Ctrl kunci, lalu klik Kutools > Salin Rentang. Lihat tangkapan layar:

2. di Salin Beberapa Rentang kotak dialog, periksa Semua opsi dari Tempel khusus bagian, dan klik Oke button. Lihat tangkapan layar di atas:

Catatan: Jika Anda ingin mempertahankan tinggi baris dan lebar kolom seperti kisaran aslinya, harap periksa Termasuk tinggi baris pilihan dan Termasuk lebar kolom opsi di kotak dialog Salin Beberapa Rentang.

3. Dan tentukan sel untuk menempelkan rentang di kotak prompt berikut, dan klik OK .

Dan sekarang semua rentang yang dipilih akan ditempelkan ke sel yang ditentukan dengan tinggi baris dan lebar kolom yang sama seperti pilihan asli.

Klik di sini untuk informasi lebih lanjut tentang utilitas Salin Beberapa Rentang       

Kutools for Excel menyediakan yang lain Gabungkan Lembar Kerja utilitas untuk menyalin beberapa rentang dari banyak lembar kerja atau banyak buku kerja dengan mudah di Excel. Harap lakukan sebagai berikut:

1. klik Kutools Ditambah > Menggabungkan.

2. Pada kotak dialog Combine Worksheets - Langkah 1 dari 3 pembuka, centang Gabungkan beberapa lembar kerja dari buku kerja menjadi satu lembar kerja pilihan, dan klik Selanjutnya .

3. Di kotak dialog Gabungkan Lembar Kerja - Langkah 2 dari 3, lakukan seperti di bawah ini:

(1) Pilih buku kerja di Daftar buku kerja bagian, dan kemudian klik Browse tombol di belakang setiap lembar kerja untuk menentukan rentang dari setiap lembar kerja;
(2) Klik Add tombol untuk menambahkan buku kerja lain yang akan Anda salin rentangnya, lalu ulangi di atas (1) untuk menentukan rentang dalam buku kerja yang ditambahkan.
(3) Klik Finish .

4. Kemudian kotak dialog Kutools for excel keluar dan meminta skenario kombinasi tabungan. Silakan klik Yes tombol atau Tidak tombol yang Anda butuhkan.

Sejauh ini semua rentang tertentu dari beberapa lembar kerja atau buku kerja telah disalin dan ditempelkan ke buku kerja baru.