Macro trasposizione

Hai un problema con Excel?

Nuova discussione

Macro trasposizione
di Difo81 (utente non iscritto) data: 16/10/2009
Ciao a tutti/tutte.

vorrei creare una macro per trasporre una tabella di 100 righe e 6 colonne, però non attraverso incolla speciale, trasponi che la farebbe diventare 100 colonne per 6 righe.
vorrei che in sequenza trasponesse la prima riga ( facendola diventare una una colonna per righe 6) poi a seguire la seconda ( 6 per 1) poi la terza ecc.ecc..
alla fine dovrebbe divenire 1 colonna per 600 righe
qualcuno saprebbe indicarmi come fare?

in poche parole vorrei automatizzare il copia ed incolla speciale/trasponi per tutte le righe singolarmente.
grazie
a presto
giacomo

di Ricky53 data: 18/10/2009
Ciao,
prova con questa macro.
ho ipotizzato che i dati siano nelle colonne da "a" a "f" e che vangano copiati nella colonna "h".

ciao da ricky53

Sub Copia_e_Incolonna()
' Calcola il numero di righe da copiare
    RR = Range("A" & Rows.Count).End(xlUp).Row
    J = 1
'Cicla sulle righe da copiare
    For I = 1 To RR
        Range("A" & I).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        Range("H" & J).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
' modifica il "6" se le colonne da copiare sono diverse da "6"
        J = J + 6
    Next I
End Sub

Vuoi Approfondire?