Excel'de birden fazla seçimi veya aralığı nasıl kopyalayabilirsiniz?

Panonun yardımıyla, tüm seçili aralıkları aynı anda başka bir aralığa veya çalışma sayfasına yapıştırabilirsiniz. Lütfen şu adımları izleyin:

1Tıklayın Ana Sayfa > bölümünde Pano grubunda bulunan Pano Panelini.görüntülemek için. Ekran görüntüsüne bakın:

2. Ve ardından ihtiyacınız olan seçili aralıkları tek tek kopyalayın. Aynı zamanda, kopyalanan aralıklar Pano Panelinde görünecektir. Yukarıdaki ekran görüntüsüne bakın:

3. Tüm kopyalanan aralıkları yapıştırmak istediğiniz hedef aralığın ilk hücresini seçin ve Pano Panelindeki Tümünü Yapıştır düğmesine tıklayın.

Ve ardından tüm kopyalanan aralıklar belirlenen hedef aralığa yapıştırılacaktır.

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

Farklı çalışma kitaplarından onlarca sayfayı birleştirmek sıkıcı olabilir. Ancak Kutools for Excel'in Birleştir (çalışma sayfaları ve çalışma kitapları) araçlarıyla, sadece birkaç tıklamayla bunu gerçekleştirebilirsiniz!

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

1. Ctrl tuşunu basılı tutarak kullanmak istediğiniz birden fazla bitişik olmayan aralığı seçin.

2. Alt + F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın, Ekle > Modül'e tıklayın ve aşağıdaki kodu Modüle girin:

Option 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 if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
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 Then LeftCol = SelAreas(i).Column
Next
Set UpperLeft = Cells(TopRow, LeftCol)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(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)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

3. Ardından kodu çalıştırmak için Çalıştır düğmesine tıklayın.

4Ve şimdi lütfen aralıkları yapıştırmak için bir hücre belirtin ve açılan Birden Fazla Seçim Kopyala diyalog kutusunda Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Kutools for Excel'in Birden Fazla Aralık Kopyala aracı, etkin çalışma sayfasından birden fazla aralığı kolayca kopyalamanıza yardımcı olabilir. Lütfen şu adımları izleyin:

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

2. Birden Fazla Aralık Kopyala diyalog kutusunda, Özel Yapıştır bölümünden Tümünü seçeneğini işaretleyin ve Tamam düğmesine tıklayın. Yukarıdaki ekran görüntüsüne bakın:

Not: Eğer orijinal aralıklar gibi satır yüksekliğini ve sütun genişliğini korumak istiyorsanız, lütfen Birden Fazla Aralık Kopyala diyalog kutusundaki Satır Yüksekliğini Dahil Et seçeneğini ve Sütun Genişliğini Dahil Et seçeneğini işaretleyin.

3Ve aşağıdaki açılır kutuda aralıkları yapıştırmak için bir hücre belirtin ve Tamam düğmesine tıklayın.

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

Birden Fazla Aralık Kopyala aracı hakkında daha fazla bilgi için buraya tıklayın       

Kutools for Excel, Excel'de birçok çalışma sayfasından veya birçok çalışma kitabından birden fazla aralığı kolayca kopyalamak için başka bir Çalışma Sayfalarını Birleştir aracı sağlar. Lütfen şu adımları izleyin:

1. Kutools Plus > Birleştir'e tıklayın.

2. Açılan Çalışma Sayfalarını Birleştir – 3 Adımdan 1. Adım diyalog kutusunda lütfen Çalışma kitabındaki birden fazla çalışma sayfasını tek bir çalışma sayfasına birleştir seçeneğini işaretleyin ve İleri düğmesine tıklayın.

3Çalışma Sayfalarını Birleştir – 3 Adımdan 2. Adım diyalog kutusunda lütfen şunları yapın:

(1) Aşağıdaki Çalışma Kitabı Listesi bölümünde çalışma kitabını seçin ve ardından her çalışma sayfasından aralık belirtmek için her çalışma sayfasının arkasındaki Gözat düğmesine tıklayın;
(2) Diğer çalışma kitaplarını eklemek için Ekle düğmesine tıklayın ve yukarıdaki (1) adımı tekrar ederek eklenen çalışma kitabındaki aralıkları belirtin.
(3) Son olarak Tamamla düğmesine tıklayın.

4. Daha sonra bir Kutools for Excel diyalog kutusu açılacak ve birleştirme senaryosunu kaydetmenizi isteyecek. Lütfen ihtiyacınıza göre Evet veya Hayır düğmesine tıklayın.

Şimdiye kadar, birden fazla çalışma sayfasından veya çalışma kitabından tüm belirtilen aralıklar yeni bir çalışma kitabına kopyalanmış ve yapıştırılmış olacaktır.