Come copiare più selezioni o intervalli in Excel?

Con l'aiuto degli Appunti, puoi incollare tutti gli intervalli selezionati in un altro intervallo o foglio di lavoro in una volta sola. Procedi nel seguente modo:

1. Clicca Home > nel gruppo Appunti per visualizzare il Pannello degli Appunti degli Appunti.. Vedi screenshot:

2. Dopodiché, copia uno per uno gli intervalli selezionati di cui hai bisogno. Allo stesso tempo, gli intervalli copiati appariranno nel Pannello degli Appunti . Vedi lo screenshot sopra:

3. Seleziona la prima cella dell'intervallo di destinazione in cui incollerai tutti gli intervalli copiati e clicca sul pulsante Incolla tutto nel Pannello degli Appunti .

Dopodiché, tutti gli intervalli copiati saranno stati incollati nell'intervallo di destinazione specificato.

Combina facilmente più selezioni da diversi fogli di lavoro/cartelle di lavoro in un singolo foglio di lavoro/cartella di lavoro

Potrebbe essere tedioso combinare decine di fogli provenienti da diverse cartelle di lavoro in un unico foglio. Ma con Kutools per Excel’s Unisci (fogli di lavoro e cartelle di lavoro) utilità, puoi farlo con pochi clic!

Con il codice VBA, puoi anche copiare più intervalli selezionati e incollarli in qualsiasi altro foglio di lavoro.

1. Tenendo premuto il tasto Ctrl, seleziona più intervalli non adiacenti che desideri utilizzare.

2. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo, e inserisci il seguente codice nel Modulo:

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. Quindi clicca sul pulsante Esegui per eseguire il codice.

4. Ora specifica una cella in cui incollare gli intervalli nella finestra di dialogo Copia Selezione Multipla finestra di dialogo, e clicca sul pulsante OK . Vedi screenshot:

L'utilità Copia intervalli multipli di Kutools per Excel ti aiuta a copiare facilmente più intervalli dal foglio di lavoro attivo velocemente. Procedi nel seguente modo:

1. Seleziona gli intervalli che vuoi utilizzare uno per uno senza tenere premuto il tasto Ctrl , e poi clicca Kutools > Copia intervalli. Vedi screenshot:

2. Nella finestra di dialogo Copia intervalli multipli, seleziona l'opzione Tutti dalla sezione Incolla speciale, e clicca sul pulsante Ok. Vedi lo screenshot sopra:

Nota: Se vuoi mantenere l'altezza delle righe e la larghezza delle colonne come negli intervalli originali, seleziona le opzioni Includi altezza riga e Includi larghezza colonna nella finestra di dialogo Copia intervalli multipli.

3. E specifica una cella in cui incollare gli intervalli nella seguente finestra di dialogo, e clicca sul pulsante OK pulsante.

Ora tutti gli intervalli selezionati verranno incollati nella cella specificata con la stessa altezza delle righe e larghezza delle colonne delle selezioni originali.

Clicca qui per maggiori informazioni sull'utilità Copia intervalli multipli       

Kutools per Excel offre un'altra utilità Unisci Fogli di Lavoro per copiare facilmente più intervalli da diversi fogli di lavoro o cartelle di lavoro in Excel. Procedi nel seguente modo:

1. Clicca su Kutools Plus > Unisci.

2. Nella finestra di dialogo Unisci Fogli di Lavoro – Passo 1 di 3, seleziona l'opzione Unisci più fogli di lavoro da una cartella di lavoro in un unico foglio di lavoro opzione, e clicca sul pulsante Avanti pulsante.

3. Nella finestra di dialogo Unisci Fogli di Lavoro – Passo 2 di 3, procedi nel seguente modo:

(1) Seleziona la cartella di lavoro nella sezione Elenco dei libri di lavoro , e poi clicca sul pulsante Sfoglia dietro ogni foglio di lavoro per specificare l'intervallo da ciascun foglio di lavoro;
(2) Clicca sul pulsante Aggiungi per aggiungere altre cartelle di lavoro da cui copierai gli intervalli, e ripeti quanto sopra (1) per specificare gli intervalli nella cartella di lavoro aggiunta.
(3) Clicca sul pulsante Fine pulsante.

4. A questo punto, apparirà una finestra di dialogo di Kutools per Excel che chiede di salvare lo scenario di combinazione. Clicca sul pulsante Sì o No secondo necessità.

A questo punto, tutti gli intervalli specificati da più fogli di lavoro o cartelle di lavoro sono stati copiati e incollati in una nuova cartella di lavoro.