Excel'de birden çok seçim veya aralık nasıl kopyalanır?
Örneğin, büyük bir çalışma sayfanız var ve şimdi yalnızca seçilen bazı aralıkları kopyalayıp diğer çalışma sayfalarına dağıtmak istiyorsunuz. Ancak, birden çok aralığı seçip kopyala'yı tıkladığınızda, "Bu komut birden çok seçimde kullanılamaz" hatırlatan bir istem iletişim kutusu görünecektir. Bu durumda, birden çok seçili aralığı nasıl hızlı bir şekilde kopyalarsınız? İşte bu görevi çözmeniz için bazı püf noktaları.
- Pano ile birden çok seçili aralığı kopyala
- VBA kodu ile birden fazla seçili aralığı kopyalayın
- Bir çalışma sayfasından birden çok seçili aralığı kopyala
- Birçok çalışma sayfasından / çalışma kitabından birden çok aralığı kopyalayın
Pano ile birden çok seçili aralığı kopyala
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!
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın
VBA kodu ile birden fazla seçili aralığı kopyalayın
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:
Bir çalışma sayfasından birden çok seçili aralığı hızla kopyalayı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:
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alı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ürkiye 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 - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın
Birçok çalışma sayfasından / çalışma kitabından birden çok aralığı kopyalayı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:
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alı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.
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alı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ı.
Demo: Bir çalışma sayfasından birden çok seçili aralığı kopyalayın
Demo: Birçok çalışma kitabından / çalışma sayfasından birden çok seçili aralığı kopyalayın
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!