Med hjelp av utklippstavlen, kan du lime inn alle de valgte områdene til et annet område eller regneark om gangen. Gjør følgende:

1. Klikk Hjem, og klikk deretter knappen i Utklippstavle-gruppen. Se skjermbilde:

2. Deretter utklippstavlen Task Pane vises.

3. Og deretter kopiere de valgte områdene som du trenger en etter en. Samtidig har de kopierte områder blitt dukket opp i utklippstavlen Task Pane. se skjermbilde:

4. Deretter åpner du et nytt regneark eller i det aktive regnearket, velger du en celle du ønsker å lime de utvalgte områdene. Og klikk Lim Alt fra utklippstavlen Task Pane. Og alle de kopierte områder har blitt limt inn i det angitte stedet.

Kopier flere utvalgte områder med VBA-kode

Med VBA-kode, kan du også kopiere flere utvalgte områder og lime dem inn i noen annen arket.

1. Trykk Ctrl-tasten, og velg områdene du ønsker å bruke.

2. Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
Option Explicit
Sub CopyMultipleSelection ()
Dim SelAreas () As Range
Dim PasteRange As spenner
Dim UpperLeft Som Range
Dim NumAreas As Integer, jeg As Integer
Dim TopRow As Long, LeftCol As Integer
Dim RowOffset As Long, ColOffset As Integer
Dim NonEmptyCellCount As Integer
'Avslutt hvis et område ikke er valgt
Hvis Typename (Utvalg) < > "Range" Så
MsgBox "Velg området som skal kopieres. En flervalg er tillatt."
Exit Sub
End If
Butikk de områdene som separate treet gjenstander
NumAreas = Selection.Areas.Count
ReDim SelAreas (1 Til NumAreas)
For i = 1 Til NumAreas
Set SelAreas (i) = Selection.Areas (i)
Neste
'Bestem cellen øverst til venstre i flere utvalg
TopRow = ActiveSheet.Rows.Count
LeftCol = ActiveSheet.Columns.Count
For i = 1 Til NumAreas
Hvis SelAreas (i) .Row < TopRow Så TopRow = SelAreas (i) .Row
Hvis SelAreas (i) .Column < LeftCol Så LeftCol = SelAreas (i) .Column
Neste
Set UpperLeft = Cells (TopRow, LeftCol)
"Få paste adressen
På Error Resume Next
Sett PasteRange = Application.InputBox _
(Tekst: = "Angi cellen øverst til venstre for lim serien:", _
Tittel: = " Kopier utover flere Selection ", _
Type: = 8)
On Error GoTo 0
'Avslutt ved avbestilling
Hvis Typename (PasteRange) < > "Range" Then Exit Sub
'Sørg bare cellen øverst til venstre brukes
Sett PasteRange = PasteRange.Range ("A1")
' Sjekk lim utvalg for eksisterende data
NonEmptyCellCount = 0
For i = 1 Til 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)))
Neste i
'Hvis pasta Rekkevidden er ikke tom, advarer brukeren
Hvis NonEmptyCellCount < > 0 Then _
Hvis MsgBox ("Overskriv eksisterende data?", VbQuestion + vbYesNo, _
"Kopier Multiple Selection") < > vbYes Then Exit Sub
'Kopier og lim hvert område
For i = 1 Til NumAreas
RowOffset = SelAreas (i) .Row - TopRow
ColOffset = SelAreas (i) .Column - LeftCol
SelAreas (i) .Copy PasteRange.Offset (RowOffset, ColOffset)
Neste i
End Sub

3. Klikk deretter på knappen for å kjøre koden. Og en Copy Multiple Selection teksten boks vil komme ut for å minne deg på å angi en celle for å lime områdene. Se skjermbilde:

fire. Klikk på OK. Og alt av utvalgte områder har blitt limt inn i en bestemt celle.

Raskt kopiere flere utvalgte områder med Kutools for Excel

Kopier flere områder av Kutools for Excel er et nyttig verktøy for å raskt og enkelt å håndtere denne oppgaven .

Kutools for Excel:
med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 30 dager. Få den nå

Hvis du har installert Kutools for Excel, kan du gjøre som følgende:

1. Hold nede Ctrl-tasten og velg områdene du vil bruke en etter en. Og klikk Kutools > Kopier Ranges ..., se skjermbilde:

2. I Kopier dialogboksen flere områder boksen, sjekk All alternativet Lim spesiell. (hvis du vil beholde radhøyde og kolonnebredde som de opprinnelige områder, vennligst sjekk inkludert radhøyde og med kolonnebredde.) se skjermbilde:

3. Og klikk deretter på OK. Og angi en celle for å lime inn områder i følgende melding boksen.

4. Klikk deretter på OK, alle de utvalgte områdene vil bli limt inn i den spesifiserte cellen som samme radhøyde og kolonnebredde som de opprinnelige valgene.

Klikk for å vite mer om Kopier flere områder har. < .no>

Previous:Hvordan endre negativt tall til null i Excel

Next Page:Hvordan vise eller skjule Horisontal & Loddrett rullefelt i Microsoft Excel?