Condividi:        

[Excel] Transpose

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Transpose

Postdi Mariottide » 16/09/12 11:29

Ciao a tutti, ho un foglio di questo tipo:
____________________
blocco
A B C
D E F
blocco
G H I
J K L
____________________

avrei bisogno che in un altro foglio escano delle colonne ordinate così:
____________________
A G
B H
C I
D J
E K
F L
____________________

qual è la maniera più veloce per ottenere questo ordinamento?
Grazie
Mariottide
Utente Junior
 
Post: 12
Iscritto il: 16/09/12 11:16

Sponsor
 

Re: [Excel] Transpose

Postdi Flash30005 » 16/09/12 12:10

Ciao Mariottide e benvenuto nel Forum

Non se se è più veloce ma dovrebbe risolvere il tuo quesito in un battito di ciglia
Codice: Seleziona tutto
Sub Trasponi2()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Cells.ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
Col = 0
For RR1 = 1 To UR1 Step 2
    Col = Col + 1
    MCol = Col Mod 2
    If MCol = 0 Then MCol = 2
    For NR = 0 To 1
        Ws1.Range("A" & RR1 + NR & ":C" & RR1 + NR).Copy
        Ws2.Cells(Rows.Count, MCol).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Next NR
Next RR1
Ws2.Rows("1:1").Delete Shift:=xlUp
Application.CutCopyMode = False
Range("A1").Select
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Transpose

Postdi Mariottide » 16/09/12 14:15

Perfetto, grazie 1000!
Mariottide
Utente Junior
 
Post: 12
Iscritto il: 16/09/12 11:16


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Transpose":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti