Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

Come trasporre ogni 5 o n righe da una colonna a più colonne?

doc trasporre ogni 5 righe 1

Supponendo, hai dati lunghi nella colonna A, e ora, vuoi trasporre ogni riga 5 dalla colonna A a più colonne, come ad esempio trasporre A1: A5 a C6: G6, A6: A10 a C7: G7, e così via come seguente schermata mostrata. Come hai potuto gestire questa attività senza copiare e incollare ripetutamente in Excel?

Trasponi ogni 5 o n righe da una colonna a più colonne con la formula

Trasponi ogni 5 o n righe da una colonna a più colonne con il codice VBA

Trasponi ogni 5 o n righe da una colonna a più colonne con Kutools per Excel


Trasforma ogni 5 o n righe da una colonna a più colonne:

Per trasformare ogni 5 o n righe da una colonna a più colonne, Kutools for Excel's Trasforma Range l'utilità può aiutarti a risolvere questo lavoro il più velocemente possibile. Inoltre, può aiutarti a trasporre un intervallo di dati su una singola riga o colonna.

doc trasporre ogni 5 righe 10

Kutools for Excel: con più di 200 pratici componenti aggiuntivi di Excel, liberi di provare senza limitazioni nei giorni 60. Scarica e prova gratis ora!



In Excel, è possibile applicare la seguente formula per trasporre ogni n righe da una colonna a più colonne, eseguire le operazioni seguenti:

1. Immettere la seguente formula in una cella vuota in cui si desidera inserire il risultato, ad esempio C1, = INDEX ($ A: $ A, ROW (A1) * 5-5 + COLONNA (A1)), vedi screenshot:

doc trasporre ogni 5 righe 2

Note: Nella formula sopra, AA è il riferimento di colonna che si desidera trasporre e A1 è la prima cella della colonna usata, il numero 5 indica il numero di colonne che i tuoi dati troveranno, puoi cambiarle secondo le tue necessità. E la prima cella dell'elenco deve trovarsi nella prima riga del foglio di lavoro.

2. Quindi trascina la maniglia di riempimento a destra su cinque celle e continua a trascinare la maniglia di riempimento fino all'intervallo di celle fino a visualizzare 0, vedere screenshot:

doc trasporre ogni 5 righe 3


Se non è possibile applicare correttamente la formula, anche il seguente codice VBA può essere di aiuto.

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: trasporre ogni 5 o n righe da una colonna a più colonne:

Public Sub TransposeData()
'updateby Extendoffice 20151207
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Dopo aver incollato il codice, premere F5 per eseguirlo, e apparirà una finestra di dialogo per ricordarti di selezionare la colonna che vuoi trasporre, vedi screenshot:

doc trasporre ogni 5 righe 4

4. Quindi fare clic OKe seleziona una cella in cui vuoi mettere il risultato in un'altra finestra spuntata, vedi screenshot:

doc trasporre ogni 5 righe 5

5. E fare clic su OK, i dati nella colonna sono stati convertiti in cinque colonne di cui hai bisogno, vedi screenshot:

doc trasporre ogni 5 righe 6

Note: Nel codice sopra, è possibile modificare il numero 5 ad altro numero di cui hai bisogno.


Se si dispone di Kutools for Excel, Con la sua Trasforma Range utilità, è possibile trasporre rapidamente una colonna o una riga su più colonne e righe.

Kutools for Excel : con più di 300 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Seleziona i dati nella colonna, quindi fai clic su Kutools > Range > Trasforma Range, vedi screenshot:

doc trasporre ogni 5 righe 7

2. Nel Trasforma Range finestra di dialogo, selezionare Singola colonna da coprire opzione sotto il Trasforma il tipoe quindi controllare Valore fisso sotto il Righe per record, quindi specificare il numero di colonne che si desidera trasporre in Valore fisso box, vedi screenshot:

doc trasporre ogni 5 righe 8

3. E poi clicca Ok pulsante, nella casella estratta, selezionare una cella per visualizzare il risultato, vedere screenshot:

doc trasporre ogni 5 righe 9

4. Quindi fare clic OK pulsante, e i dati della colonna sono stati trasposti ogni riga 5 come mostrato nella seguente schermata:

doc trasporre ogni 5 righe 6

Scarica e prova gratuita Kutools per Excel ora!


Kutools for Excel: con più di 200 pratici componenti aggiuntivi di Excel, liberi di provare senza limitazioni nei giorni 60. Scarica e prova gratis ora!


Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 30-day.
kte tab 201905

Scheda Office Porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maha · 4 months ago
    Thanks alot _/\_ Awesome job with =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
    worked perfectly
  • To post as a guest, your comment is unpublished.
    Arun Balaji VN · 5 months ago
    I tried only the the formula option and it worked great. Till now have been using (Transpose formula with ctrl+shift+enter) but there the disadvantage for we have delete many extra rows. when the rows to be transposed for large in the order of lakhs, then deleting them in excel is either impossible or takes a lot of time.
    this approach made the life easier by only copying the required rows... Thanks
  • To post as a guest, your comment is unpublished.
    Sian · 1 years ago
    This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
  • To post as a guest, your comment is unpublished.
    hamidreza · 1 years ago
    =INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
    It was very simple and really useful. Thank you so much
  • To post as a guest, your comment is unpublished.
    Thank · 1 years ago
    It was great! Thank you! You saved me hours of manual work!
  • To post as a guest, your comment is unpublished.
    xplode · 2 years ago
    Thank you so much!
    It was really helpful. :)
  • To post as a guest, your comment is unpublished.
    MTVN · 2 years ago
    What formula to transpose every 5 rows to a single column?
  • To post as a guest, your comment is unpublished.
    hgimongu · 2 years ago
    Hi!

    May I ask you how to add Blank cell delimits records, instead of 5 as the data I am handling hasn't got fix number of rows. I believe the part which I should change may be around this part of the code:

    For i = 1 To xLRow Step 5
    xRg.Cells(i).Resize(5).Copy
    xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    xNRow = xNRow + 1

    Best