Yardımıyla panoya, seçilen tüm aralıkları aynı anda başka bir aralığa veya çalışma sayfasına yapıştırabilirsiniz. Lütfen aşağıdaki işlemleri yapın:

1. tıklayın Ana Sayfa > içinde panoya görüntülemek için grup panoya Bölmesi.. Ekran görüntüsüne bakın:

2. Ve sonra ihtiyacınız olan seçili aralıkları birer birer kopyalayın. Aynı zamanda, kopyalanan aralıklar, panoya Bölmesi. yukarıdaki ekran görüntüsüne bakın:

3. Kopyalanan tüm aralıkları yapıştıracağınız hedef aralığın ilk hücresini seçin ve Tümünü Yapıştır düğmesi panoya Bölme.

Ve sonra kopyalanan tüm aralıklar, belirtilen hedef aralığına yapıştırılmıştır.

Birçok çalışma sayfasından / çalışma kitabından birden çok seçimi tek bir çalışma sayfasına / çalışma kitabına kolayca birleştirin

Farklı çalışma kitaplarından düzinelerce sayfayı tek bir sayfada birleştirmek yorucu olabilir. Ancak Kutools for Excel's ile Birleştir (çalışma sayfaları ve çalışma kitapları) yardımcı program, sadece birkaç tıklama ile halledebilirsiniz!

VBA kodu ile, birden fazla seçili aralığı kopyalayabilir ve bunları başka bir çalışma sayfasına yapıştırabilirsiniz.

1. Tutma Ctrl tuşuna basın ve kullanmak istediğiniz bitişik olmayan birden çok aralığı seçin.

2. Basın Ara Toplam + F11 tuşlarını aynı anda açmak için Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modülve aşağıdaki kodu Modüle girin:

Seçenek Açık Alt CopyMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range As UpperLeft As Integer Dim NumAreas As Integer, i As Integer Dim TopSow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Tamsayı Olarak Dim bir aralık seçilmezse TürAdı (Seçim) <> "Aralık" Sonra Mesaj Kutusu "Kopyalanacak aralığı seçin. Çoklu seçime izin verilir." Exit Sub End If 'Alanları ayrı Range nesneleri olarak sakla NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Sol üst kısmı belirleyin çoklu seçimdeki hücre TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count i = 1 To NumAreas If SelAreas (i) .Row <TopRow Then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Then LeftCol = SelAreas (i) .Column Next Set UpperLeft = Hücreler (TopRow, LeftCol) 'Yapıştırma adresini alın Hatada Devam Ettir Sonraki Ayarla PasteRange = Application.InputBox _ (Prompt: = "Yapıştırma için sol üst hücreyi belirtin aralık: ", _ Başlık: =" Çoklu Seçimi Kopyala ", _ Tür: = 8) Hata Durumunda Git 0 'İptal Edildiyse Çık TürAdı (PasteRange) <>" Aralık "Sonra Alttan Çık' Yalnızca sol üst hücrenin kullanılan Set PasteRange = PasteRange.Range ("A1") 'Mevcut veriler için yapıştırma aralığını kontrol et NonEmptyCellCount = 0 i = 1 için NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Alanlar (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))) Sonraki i 'Yapıştırma aralığı boş değilse kullanıcıyı uyarın Eğer NonEmptyCellCount <> 0 Sonra _ If MsgBox ("Mevcut verilerin üzerine yazılsın mı?", vbQuestion + vbYesNo, _ "Çoklu Seçimi Kopyala ") <> vbYes Sonra Alt Çık 'Her alanı kopyalayıp yapıştırın i = 1 için NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i). RowOffset, ColOffset) Next i End Sub

3. Ardından, koşmak kodu çalıştırmak için düğmeye basın.

4. Ve şimdi aralıkları açılışta yapıştırmak için lütfen bir hücre belirtin Çoklu Seçimi Kopyala iletişim kutusunu tıklayın ve OK buton. Ekran görüntüsüne bakın:

The Birden Fazla Aralığı Kopyala yarar Kutools for Excel Etkin çalışma sayfasından birden çok aralığı kolayca kopyalamanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:

1. Kullanmak istediğiniz aralıkları tuşunu basılı tutmadan tek tek seçin. Ctrl tuşuna ve ardından tıklayın Kutools > Aralıkları Kopyala. Ekran görüntüsüne bakın:

2. In Birden Fazla Aralığı Kopyala iletişim kutusu, işaretleyin Tümü opsiyon Özel yapıştır bölümüne tıklayın ve Tamam button. Yukarıdaki ekran görüntüsüne bakın:

Not: Satır yüksekliğini ve sütun genişliğini orijinal aralıklar olarak tutmak istiyorsanız, lütfen kontrol edin Satır yüksekliği dahil seçenek ve Sütun genişliği dahil Birden Çok Aralık Kopyala iletişim kutusundaki seçeneği.

3. Ve aralıkları aşağıdaki istem kutusuna yapıştırmak için bir hücre belirtin ve OK düğmesine basın.

Ve şimdi seçilen tüm aralıklar, orijinal seçimlerle aynı satır yüksekliği ve sütun genişliğiyle belirtilen hücreye yapıştırılacaktır.

Birden Çok Aralığı Kopyalama yardımcı programı hakkında daha fazla bilgi için burayı tıklayın       

Kutools for Excel başka bir Çalışma Sayfalarını Birleştirin birçok çalışma sayfasından veya birçok çalışma kitabından birden çok aralığı Excel'de kolayca kopyalamak için yardımcı program. Lütfen aşağıdaki işlemleri yapın:

1. tık Kutools Artı > Birleştirmek.

2. Çalışma Sayfalarını Birleştir - Adım 1/3 iletişim kutusunun açılışında, lütfen Çalışma kitabındaki birden çok çalışma sayfasını tek bir çalışma sayfasına birleştirin seçeneğini tıklayın ve Sonraki düğmesine basın.

3. Çalışma Sayfalarını Birleştir - Adım 2/3 iletişim kutusunda, lütfen aşağıdaki işlemleri gerçekleştirin:

(1) Çalışma kitabını seçin Çalışma kitabı listesi bölümünü ve ardından Araştır her çalışma sayfasından aralığı belirtmek için her çalışma sayfasının arkasındaki düğmesi;
(2) Ekle aralıkları kopyalayacağınız diğer çalışma kitaplarını eklemek için düğmesine basın ve ardından eklenen çalışma kitabındaki aralıkları belirtmek için yukarıda (1) öğesini tekrarlayın.
(3) Bitiş düğmesine basın.

4. Ardından bir Kutools for excel iletişim kutusu çıkar ve kombinasyon senaryosunu kaydetmenizi ister. Lütfen tıklayın Evet düğmesi veya Yok hayır İhtiyacınız olan düğme.

Şimdiye kadar birden çok çalışma sayfasından veya çalışma kitabından belirtilen tüm aralıklar kopyalandı ve yeni bir çalışma kitabına yapıştırıldı.