Come copiare più selezioni o intervalli in Excel?
Ad esempio, hai un foglio di lavoro di grandi dimensioni e ora vuoi solo copiare alcuni intervalli selezionati e distribuirli ad altri fogli di lavoro. Ma quando selezioni più intervalli e fai clic su Copia, verrà visualizzata una finestra di dialogo per ricordarti "Quel comando non può essere utilizzato su più selezioni". In questa condizione, come si copiano rapidamente più intervalli selezionati? Ecco alcuni trucchi per risolvere questo compito.
- Copia più intervalli selezionati con Appunti
- Copia più intervalli selezionati con il codice VBA
- Copia più intervalli selezionati da un foglio di lavoro
- Copia più intervalli da molti fogli di lavoro / cartelle di lavoro
Copia più intervalli selezionati con Appunti
Con l'aiuto di appunti, puoi incollare tutti gli intervalli selezionati in un altro intervallo o foglio di lavoro alla volta. Si prega di fare quanto segue:
1. Clic Casa > nel appunti gruppo per visualizzare il file appunti Vetro.. Vedi screenshot:
2. Quindi copia gli intervalli selezionati di cui hai bisogno uno per uno. Allo stesso tempo, gli intervalli copiati sono stati visualizzati nel file appunti Vetro. vedi screenshot sopra:
3. Seleziona la prima cella dell'intervallo di destinazione in cui incollerai tutti gli intervalli copiati e fai clic Incolla tutto nel pulsante appunti Pannello.
E poi tutti gli intervalli copiati sono stati incollati nell'intervallo di destinazione specificato.
Combina facilmente più selezioni da molti fogli di lavoro / cartelle di lavoro in un unico foglio di lavoro / cartella di lavoro
Potrebbe essere noioso combinare decine di fogli di cartelle di lavoro diverse in un unico foglio. Ma con Kutools per Excel Combina (fogli di lavoro e cartelle di lavoro) utility, puoi farlo con pochi clic!
Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now
Copia più intervalli selezionati con il codice VBA
Con il codice VBA, puoi anche copiare più intervalli selezionati e incollarli in qualsiasi altro foglio di lavoro.
1. Tenendo il Ctrl chiave e selezionare più intervalli non adiacenti che si desidera utilizzare.
2. stampa altro + F11 chiavi allo stesso tempo per aprire il Microsoft Visual Basic per le applicazioni finestra, fare clic inserire > Modulie inserisci il codice seguente nel modulo:
Opzione 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 se un intervallo non è selezionato Se TypeName (Selezione) <> "Intervallo" Allora MsgBox "Seleziona l'intervallo da copiare. È consentita una selezione multipla." Exit Sub End If 'Memorizza le aree come oggetti Range separati NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Determina l'angolo superiore sinistro cella nella selezione multipla 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) 'Ottieni l'indirizzo incolla On Error Resume Next Set PasteRange = Application.InputBox _ (Prompt: = "Specifica la cella in alto a sinistra per l'incolla range: ", _ Title: =" Copia selezione multipla ", _ Type: = 8) On Error GoTo 0 'Exit if cancelled If TypeName (PasteRange) <>" Range "Then Exit Sub' Assicurati che solo la cella in alto a sinistra sia usato Set PasteRange = PasteRange.Range ("A1") 'Controlla l'intervallo di incolla per i dati esistenti NonEmptyCellCount = 0 Per i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Aree (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))) Avanti i 'Se l'intervallo di incolla non è vuoto, avvisa l'utente If NonEmptyCellCount <> 0 Then _ If MsgBox ("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copy Multiple Selection ") <> vbYes Then Exit Sub 'Copia e incolla ogni area For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Avanti i End Sub
3. Quindi fare clic su Correre pulsante per eseguire il codice.
4. E ora specifica una cella per incollare gli intervalli nell'apertura Copia selezione multipla finestra di dialogo e fare clic su OK pulsante. Vedi screenshot:
Copia rapidamente più intervalli selezionati da un foglio di lavoro
I Copia più intervalli utilità di Kutools for Excel può aiutarti a copiare facilmente più intervalli dal foglio di lavoro attivo rapidamente. Si prega di fare quanto segue:
Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now
1. Seleziona gli intervalli che desideri utilizzare uno per uno senza tenere premuto il tasto Ctrl chiave, quindi fare clic su Kutools > Copia intervalli. Vedi screenshot:
2. Nel Copia più intervalli finestra di dialogo, controllare Tutti opzione da Incolla speciale sezione e fare clic su ok button. Vedi screenshot sopra:
Nota: Se desideri mantenere l'altezza della riga e la larghezza della colonna come gli intervalli originali, controlla Compresa l'altezza della riga opzione e Compresa la larghezza della colonna opzione nella finestra di dialogo Copia più intervalli.
3. E specificare una cella per incollare gli intervalli nella seguente finestra di messaggio e fare clic su OK pulsante.
E ora tutti gli intervalli selezionati verranno incollati nella cella specificata con la stessa altezza di riga e larghezza di colonna delle selezioni originali.
Fare clic qui per ulteriori informazioni sull'utilità Copia più intervalli
Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now
Copia più intervalli da molti fogli di lavoro / cartelle di lavoro
Kutools per Excel ne fornisce un altro Combina fogli di lavoro utilità per copiare più intervalli da molti fogli di lavoro o molte cartelle di lavoro facilmente in Excel. Si prega di fare quanto segue:
Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now
1. Clic Kutools Plus > Combinare.
2. Nella finestra di dialogo di apertura Combina fogli di lavoro - Passaggio 1 di 3, selezionare il Combina più fogli di lavoro dalla cartella di lavoro in un foglio di lavoro opzione e fare clic su Avanti pulsante.
3. Nella finestra di dialogo Combina fogli di lavoro - Passaggio 2 di 3, eseguire le seguenti operazioni:
(1) Seleziona la cartella di lavoro nel file Elenco delle cartelle di lavoro sezione, quindi fai clic su Scopri la nostra gamma di prodotti pulsante dietro ogni foglio di lavoro per specificare l'intervallo da ogni foglio di lavoro;
(2) Fare clic su Aggiungi pulsante per aggiungere altre cartelle di lavoro da cui copiare gli intervalli, quindi ripetere sopra (1) per specificare gli intervalli nella cartella di lavoro aggiunta.
(3) Fare clic su Fine pulsante.
Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now
4. Quindi viene visualizzata una finestra di dialogo Kutools per Excel che richiede il salvataggio dello scenario di combinazione. Fare clic su Sì pulsante o Non pulsante di cui hai bisogno.
Finora tutti gli intervalli specificati da più fogli di lavoro o cartelle di lavoro sono stati copiati e incollati in una nuova cartella di lavoro.
Demo: copia più intervalli selezionati da un foglio di lavoro
Demo: copia più intervalli selezionati da molte cartelle di lavoro / fogli di lavoro
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!