Raggruppamento dati da piu colonne in un unica colonna

Question

Vediamo se mi riuscite a dare una mano prima che butti via il pc dalla finestra

in C1 ho un numero in D1 altro numero in E1 altro numero ancora in F1 altro numero ancora .... per un totale di 10 colonne, queste 10 colonne hanno un totale di 300 righe per un totale di 3000 numeri

io vorrei copiare in un unica colonna (A) con 3000 righe le 10 colonne con 300 righe 

A1 =C1

A2= D1

A3=E1

A4=D1

....

a11=c2

A12=d2

A13=e2

etc

Che formula uso? Ho provato a bloccare parzialmente con il $ ma nessun risultato o meglio mi salta 10 righe invece di andare sulla C2 mi va su c10

Grazie e scusate se non sono stato chiaro (ps preferirei formule invece che macro)

Answer 1

Perfetto..... funziona tutto ..... tramite formula non ce nulla ??? 

in A1:  =SCARTO($A$1;ARROTONDA.PER.ECC(RIF.RIGA(A1)/10;)-1;RESTO(RIF.RIGA(A1)-1;10)+2) e copia in basso per 3000 righe

---

fai sapere, grazie

ciao paoloard

http://riolab.org

***********************************************

Se la risposta ti ha aiutato "Vota come Utile".

Se ha risolto il problema "Segna come Risposta".

Answer 2

Vediamo se mi riuscite a dare una mano prima che butti via il pc dalla finestra

in C1 ho un numero in D1 altro numero in E1 altro numero ancora in F1 altro numero ancora .... per un totale di 10 colonne, queste 10 colonne hanno un totale di 300 righe per un totale di 3000 numeri

io vorrei copiare in un unica colonna (A) con 3000 righe le 10 colonne con 300 righe 

A1 =C1

A2= D1

A3=E1

A4=D1

....

a11=c2

A12=d2

A13=e2

etc

 

Che formula uso? Ho provato a bloccare parzialmente con il $ ma nessun risultato o meglio mi salta 10 righe invece di andare sulla C2 mi va su c10

Grazie e scusate se non sono stato chiaro (ps preferirei formule invece che macro)

Questo dovrebbe fare quanto chiedi:

Public Sub m()

    Dim lCol As Long

    Dim lRighe As Long

    Dim lCont As Long

    Dim sh As Worksheet

    lCont = 1

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        For lRighe = 1 To 300

            For lCol = 3 To 12

                Cells(lCont, 1).Value = Cells(lRighe, lCol).Value

                lCont = lCont + 1

            Next

        Next

    End With

    Set sh = Nothing

End Sub

Copi/(incollalo in un modulo standard, modifica il nome del foglio con il tuo e lancialo. Se non hai mai utilizzato le macro, vedi qui:http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

Eheheh :) Grazie.... :D

Answer 4

Perfetto..... funziona tutto ..... tramite formula non ce nulla ??? 

in A1:  =SCARTO($A$1;ARROTONDA.PER.ECC(RIF.RIGA(A1)/10;)-1;RESTO(RIF.RIGA(A1)-1;10)+2) e copia in basso per 3000 righe

---

Molto comodo... ;-). Ciao Paolo.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 5

Perfetto..... funziona tutto ..... tramite formula non ce nulla ???