Como copiar várias seleções ou intervalos no Excel?

Com a ajuda da Área de Transferência, você pode colar todos os intervalos selecionados em outro intervalo ou planilha de uma só vez. Por favor, siga os passos abaixo:

1. Clique em Início > no grupo Área de Transferência para exibir o Área de Transferência Painel.. Veja a captura de tela:

2. Em seguida, copie os intervalos selecionados que você precisa um por um. Ao mesmo tempo, os intervalos copiados aparecerão no Painel da Área de Transferência . veja a captura de tela acima:

3. Selecione a primeira célula do intervalo de destino onde você colará todos os intervalos copiados e clique no botão Colar Tudo no Painel da Área de Transferência .

E então todos os intervalos copiados serão colados no intervalo de destino especificado.

Combine facilmente múltiplas seleções de várias planilhas/pastas de trabalho em uma única planilha/pasta de trabalho

Pode ser tedioso combinar dezenas de planilhas de diferentes pastas de trabalho em uma só. Mas com o Kutools para Excel’s Consolidar (planilhas e pastas de trabalho) utilitário, você pode fazer isso com apenas alguns cliques!

Com o código VBA, você também pode copiar múltiplos intervalos selecionados e colá-los em qualquer outra planilha.

1. Mantenha pressionada a tecla Ctrl e selecione vários intervalos não adjacentes que deseja usar.

2. Pressione as teclas Alt + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e insira o seguinte código no Módulo:

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. Em seguida, clique no botão Executar para rodar o código.

4. E agora especifique uma célula para colar os intervalos na caixa de diálogo Copiar Múltiplas Seleções que se abrirá, e clique no botão OK . Veja a captura de tela:

O utilitário Copiar Múltiplos Intervalos do Kutools para Excel pode ajudá-lo a copiar facilmente múltiplos intervalos da planilha ativa rapidamente. Por favor, siga os passos abaixo:

1. Selecione os intervalos que deseja usar um por um sem manter pressionada a tecla Ctrl e depois clique em Kutools > Copiar Intervalos. Veja a captura de tela:

2. Na caixa de diálogo Copiar Múltiplos Intervalos, marque a opção Tudo na seção Colar Especial e clique no botão Ok. Veja a captura de tela acima:

Observação: Se você quiser manter a altura das linhas e a largura das colunas como nos intervalos originais, marque as opções Incluir Altura da Linha e Incluir Largura da Coluna na caixa de diálogo Copiar Múltiplos Intervalos.

3. E especifique uma célula para colar os intervalos na caixa de diálogo a seguir e clique no botão OK botão.

E agora todos os intervalos selecionados serão colados na célula especificada com a mesma altura de linha e largura de coluna das seleções originais.

Clique aqui para mais informações sobre o utilitário Copiar Múltiplos Intervalos       

O Kutools para Excel oferece outro utilitário Consolidar Planilhas para copiar múltiplos intervalos de várias planilhas ou várias pastas de trabalho facilmente no Excel. Por favor, siga os passos abaixo:

1. Clique em Kutools Plus > Consolidar.

2. Na caixa de diálogo Consolidar Planilhas – Passo 1 de 3 que se abre, marque a opção Consolidar múltiplas planilhas de uma pasta de trabalho em uma única planilha e clique no botão Próximo botão.

3. Na caixa de diálogo Consolidar Planilhas – Passo 2 de 3, faça o seguinte:

(1) Selecione a pasta de trabalho na seção Lista de Pastas de Trabalho e clique no botão Procurar atrás de cada planilha para especificar o intervalo de cada planilha;
(2) Clique no botão Adicionar para adicionar outras pastas de trabalho das quais você copiará os intervalos e repita o passo acima (1) para especificar intervalos na pasta de trabalho adicionada.
(3) Clique no botão Concluir botão.

4. Depois disso, uma caixa de diálogo do Kutools para Excel aparecerá perguntando se deseja salvar o cenário de consolidação. Clique no botão Sim ou Não conforme necessário.

Até agora, todos os intervalos especificados de várias planilhas ou pastas de trabalho foram copiados e colados em uma nova pasta de trabalho.