Med hjälp av Urklippkan du klistra in alla valda områden i ett annat intervall eller kalkylblad åt gången. Gör så här:

1. Klicka Home > i Urklipp grupp för att visa Urklipp Pane.. Se skärmdump:

2. Kopiera sedan de valda intervallen som du behöver en efter en. Samtidigt har de kopierade områdena dykt upp i Urklipp Pane. se skärmdump ovan:

3. Välj den första cellen i destinationsområdet som du klistrar in alla kopierade områden till och klicka Klistra in alla knapp i Urklipp Ruta.

Och sedan har alla kopierade områden klistrats in i det angivna destinationsområdet.

Kombinera enkelt flera val från många kalkylblad / arbetsböcker i ett kalkylblad / arbetsbok

Det kan vara tråkigt att kombinera dussintals ark från olika arbetsböcker till ett ark. Men med Kutools för Excel Kombinera (kalkylblad och arbetsböcker) verktyget kan du få det gjort med bara några klick!

Med VBA-kod kan du också kopiera flera valda områden och klistra in dem i något annat kalkylblad.

1. Håller ctrl och välj flera icke intilliggande områden som du vill använda.

2. Tryck andra + F11 tangenter samtidigt för att öppna Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulernaoch mata in följande kod i modulen:

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. Klicka sedan på Körning för att köra koden.

4. Och nu vänligen ange en cell för att klistra in intervallen i öppningen Kopiera flera val dialogrutan och klicka på OK knapp. Se skärmdump:

Smakämnen Kopiera flera områden nytta av Kutools för Excel kan hjälpa dig att enkelt kopiera flera intervall från det aktiva kalkylbladet snabbt. Gör så här:

1. Välj de intervall du vill använda en efter en utan att hålla ned ctrl och klicka sedan på Kutools > Kopiera intervall. Se skärmdump:

2. I Kopiera flera områden dialogruta, kontrollera Alla alternativ från Klistra in speciellt avsnittet och klicka på Okej Button. Se skärmdump ovan:

Notera: Om du vill behålla radhöjden och kolumnbredden som originalintervallen, kontrollera Inklusive radhöjd alternativ och Inklusive kolonnbredd alternativ i dialogrutan Kopiera flera områden.

3. Och ange en cell för att klistra in intervallen i följande rutan och klicka på OK knapp.

Och nu klistras alla valda intervall in i den angivna cellen med samma radhöjd och kolumnbredd som de ursprungliga markeringarna.

Klicka här för mer information om Copy Multiple Ranges-verktyget       

Kutools för Excel ger en annan Kombinera arbetsblad verktyg för att kopiera flera intervall från många kalkylblad eller många arbetsböcker enkelt i Excel. Gör så här:

1. klick Kutools Plus > Kombinera.

2. I dialogrutan Kombinera kalkylblad - Steg 1 av 3, kontrollera Kombinera flera kalkylblad från arbetsboken till ett kalkylblad alternativet och klicka på Nästa knapp.

3. I dialogrutan Kombinera kalkylblad - steg 2 av 3 gör du så här:

(1) Välj arbetsboken i Arbetsbokslista och klicka sedan på Bläddra knapp bakom varje kalkylblad för att specificera intervallet från varje kalkylblad;
(2) Klicka på Lägg till knappen för att lägga till andra arbetsböcker som du kommer att kopiera varierar från, och upprepa sedan ovan (1) för att specificera intervall i den tillagda arbetsboken.
(3) Klicka på Finish knapp.

4. Sedan kommer en Kutools for excel-dialogruta ut och ber om att spara kombinationsscenariot. Klicka på Ja knapp eller Nej knappen som du behöver.

Hittills har alla angivna intervall från flera kalkylblad eller arbetsböcker kopierats och klistrats in i en ny arbetsbok.