Condividi:        

Suddivisione colonne excel

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

Suddivisione colonne excel

Postdi fara15 » 14/03/13 20:38

Buona sera,

dopo vani tentativi di risolvere personalmente il problema ho deciso di rivolgermi a questo splendido Forum.
Sul foglio1 di Excel sono presenti 200 gruppi composti di 5 colonne (D-E-F-G-H) -colonna vuota - (J-K-L-M-N) - colonna vuota - e così a seguire.

Vorrei realizzare quanto segue:

copiare sul foglio2 nella colonna G --- la colonna D del foglio1;
copiare sul foglio3 nella colonna G --- la colonna E del foglio1;
copiare sul foglio4 nella colonna G --- la colonna G del foglio1;
copiare sul foglio5 nella colonna G --- la colonna H del foglio1;

copiare sul foglio2 nella colonna H --- la colonna J del foglio1;
copiare sul foglio3 nella colonna H --- la colonna K del foglio1;
copiare sul foglio4 nella colonna H --- la colonna M del foglio1;
copiare sul foglio5 nella colonna H --- la colonna N del foglio1;

copiare sul foglio2 nella colonna I --- la colonna P del foglio1;
copiare sul foglio3 nella colonna I --- la colonna Q del foglio1;
copiare sul foglio4 nella colonna I --- la colonna S del foglio1;
copiare sul foglio5 nella colonna I --- la colonna T del foglio1;

e così di a seguire.

Vi ringrazio anticipatamente
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Sponsor
 

Re: Suddivisione colonne excel

Postdi wallace&gromit » 14/03/13 21:31

lo so che è brutta e che altri sapranno fare meglio di me... ma intanto sparo questa formula da inserire in colonna H del foglio2.
Codice: Seleziona tutto
=INDIRETTO(INDIRIZZO(RIF.RIGA();RIF.COLONNA()-(RIF.COLONNA()-7)+(RIF.COLONNA()-7)*6-3;;;"Foglio1"))
il foglio1 deve chiamarsi veramente così, altrimenti devi sostituire nella formula il suo vero nome.
nei fogli successivi dovrai modificare il -3, per il foglio3:
Codice: Seleziona tutto
=INDIRETTO(INDIRIZZO(RIF.RIGA();RIF.COLONNA()-(RIF.COLONNA()-7)+(RIF.COLONNA()-7)*6-2;;;"Foglio1"))
, ecc.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Suddivisione colonne excel

Postdi Anthony47 » 14/03/13 23:53

Se i dati fossero pochi probabilmente la soluzione suggerita da wallace&gromit (vedi sopra) sarebbe l' ideale (il "-3" citato da W&G deve diventare "-2", "-0" e "+1" nelle formule degli altri fogli); se invece si tratta di lunghi elenchi allora potrebbe andare meglio una macro, come questa:
Codice: Seleziona tutto
Sub farazz()
Sheets("Foglio1").Select   '<<<
KK = 2
For I = 1 To 5
    JJ = 0
    If I <> 3 Then
        For J = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 6
            Range("D:D").Offset(, I - 1 + J - 1).Copy
            Sheets("Foglio" & (KK)).Cells(1, 7).Offset(0, JJ).PasteSpecial _
                Paste:=xlPasteValuesAndNumberFormats
            JJ = JJ + 1
        Next J
        KK = KK + 1
    End If
Next I
End Sub
Uso:
-da Excel, Alt-F11 per aprire l' editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame vuoto di dx
Poi torna su excel ed esegui la macro farazz: Alt-F8, scegli quel nome nell' elenco che ti propone, premi Esegui.

L' origine dati e' in Foglio1, ma puo' essere modificata intervenendo sull' istruzione marcata <<<; i fogli di destinazione devono invece chiamarsi proprio Foglio2, Foglio3, Foglio4 e Foglio5.

Ciao a tutti.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Suddivisione colonne excel

Postdi fara15 » 16/03/13 12:43

Ringrazio vivamente Anthony47 e W&G per le soluzioni adottate che funzionano perfettamente.
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01


Torna a Applicazioni Office Windows


Topic correlati a "Suddivisione colonne excel":


Chi c’è in linea

Visitano il forum: Ricky0185 e 56 ospiti