{"id":1434,"date":"2015-02-12T13:00:24","date_gmt":"2015-02-12T12:00:24","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=1434"},"modified":"2015-02-12T13:00:24","modified_gmt":"2015-02-12T12:00:24","slug":"061-trasportare-un-elenco-di-numeri-in-orizzontale","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2015\/02\/061-trasportare-un-elenco-di-numeri-in-orizzontale\/","title":{"rendered":"061. Trasportare un elenco di numeri in orizzontale"},"content":{"rendered":"
\"Download<\/a><\/div>

Domanda:<\/p>\n

Ho cinquanta e pi\u00f9 righe.
\nin ognuna di queste righe ci possono essere da uno a cinque numeri,
\nad es. A1 B1 C1 D1 D1
\nriga 1 > 32 44 31 28 5
\nriga\u00a02 > 2 30 27 4 1
\nriga\u00a03 > 7 13 41 8
\nriga\u00a04 > 6 48 50 49 68
\nriga 5 > 81 18 15 3
\nriga\u00a06 > 66 55 85
\nvorrei che il tutto fosse trasportato in una sola riga, ad es.
\nA1 B1 C1 D1 E1 F1 G1 H1 I1 L1
\nriga 1 > 32 44 31 28 5 2 30 27 4 1 etc etc.<\/p>\n

Risposta:
\n<\/p>\n

Ho risolto la necessit\u00e0 del nostro lettore
\ncon il seguente codice:<\/p>\n

‘>>> inibisco visualizzazione cambiamenti nel foglio
\nApplication.ScreenUpdating = False<\/p>\n

‘>>> identifico ultima riga non vuota
\nLast_Row = Sheet1.Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row<\/p>\n

‘>>> ciclo dalla riga 1 all’ultima riga non vuota
\nFor i = 2 To Last_Row<\/p>\n

‘>>> identifico ultima colonna non vuota della riga da spostare
\nLast_Col_i = Sheet1.Cells(i, 1).End(xlToRight).Column<\/p>\n

‘>>> seleziono dati da tagliare
\nRange(Cells(i, 1), Cells(i, Last_Col_i)).Select
\nSelection.Cut<\/p>\n

‘>>> identifico ultima colonna non vuota della riga 1
\nLast_Col_1 = Sheet1.Range(“A1”).End(xlToRight).Column
\n‘>>> seleziono cella da cui iniziare ad incollare dati
\nCells(1, Last_Col_1 + 1).Select
\n‘>>> incollo dati
\nActiveSheet.Paste<\/p>\n

Next i<\/p>\n

‘>>> identifico ultima colonna non vuota
\nLast_Col = Sheet1.Cells.Find(“*”, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column<\/p>\n

For j = 1 To Last_Col<\/p>\n

‘>>> regolo automaticamente larghezza colonne
\nColumns(j).EntireColumn.AutoFit<\/p>\n

Next j<\/p>\n

‘>>> faccio scorrere il foglio alla colonna 1
\nActiveWindow.ScrollColumn = 1
\nRange(“A1”).Select<\/p>\n

‘>>> riabilito visualizzazione cambiamenti nel foglio
\nApplication.ScreenUpdating = True<\/p>\n

In allegato il file<\/p>\n

APRI<\/a><\/p>\n

Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"

Domanda: Ho cinquanta e pi\u00f9 righe. in ognuna di queste righe ci possono essere da uno a cinque numeri, ad es. A1 B1 C1 D1 D1 riga 1 > 32 44 31 28 5 riga\u00a02 > 2 30 27 4 … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[13,5],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-n8","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":1145,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/estrarre-dati-da-cartelle-e-files-chiusi-2\/","url_meta":{"origin":1434,"position":0},"title":"048. Estrarre dati da cartelle e files chiusi – 2","date":"11 Aprile 2014","format":false,"excerpt":"Domanda: La mia necessit\u00e0 \u00e8 quella di copiare da file chiusi xls sempre le stesse celle (a4:u200), che si trovano in una cartella in \"c:\/dati\" e incollarli,nel file attivo in quel momento chiamato archivio, sulla prima riga libera partendo dalla colonna A in sequenza, senza lasciare righe libere. Risposta: Ho\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":480,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/03\/classifica-tramite-vba-v2\/","url_meta":{"origin":1434,"position":1},"title":"014. Classifica tramite VBA – v2","date":"27 Marzo 2013","format":false,"excerpt":"Questo articolo segue al precedente \"Classifica tramite VBA\" di cui \u00e8 un evoluzione. L'esigenza del nostro lettore era quella di avere la classifica per categoria in un'unica colonna, dal momento che dovr\u00e0 gestire fino a 10 categorie contemporaneamente. Ho modificato quindi il codice permettendo di gestire N categorie contemporaneamente senza\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1257,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/06\/052-copia-riga-da-foglio1-a-foglio2\/","url_meta":{"origin":1434,"position":2},"title":"052. Copia riga da foglio1 a foglio2","date":"8 Giugno 2014","format":false,"excerpt":"Domanda: Ho 2 fogli : 1) prenotazioni; 2) pagato Sul foglio prenotazioni i dati sono inseriti da B a AC e ci sono delle celle vuote, dove si andranno a mettere dei dati,\u00a0 ed altre celle con formule. La mia necessit\u00e0 \u00e8 che quando nella colonna AC, su qualsiasi riga,\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":629,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/05\/individuare-duplicati\/","url_meta":{"origin":1434,"position":3},"title":"021. Individuare duplicati","date":"24 Maggio 2013","format":false,"excerpt":"Domanda: Buongiorno a tutti, avrei bisogno del vostro aiuto se possibile. io ho una colonna excel piena di codici alfanumerici, questa colonna \u00e8 in costante aggiornamaento perch\u00e8 ogni giorno vengo inseriti alcuni codici. io avrei bisogno di un modo per sapere e evidenziare se il codice che sto inserendo \u00e8\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1822,"url":"https:\/\/www.office-guru.com\/wordpress\/2017\/10\/071-estrazione-casuale-valori-da-un-elenco\/","url_meta":{"origin":1434,"position":4},"title":"071. Estrazione casuale valori da un elenco","date":"5 Ottobre 2017","format":false,"excerpt":"Ci scrivono: Buonasera, io dovrei estrarre, casualmente, da una colonna di 170 celle 40 celle. Mi potreste dare info su la funzione da utilizzare ? Grazie Risposta: Dopo aver indicato nella cella D1 il numero di valori che voglio estrarre dal mio elenco basta premere il bottone \"ESTRAI\" che\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1845,"url":"https:\/\/www.office-guru.com\/wordpress\/2017\/10\/073-duplicare-righe-excel-modificando-il-contenuto\/","url_meta":{"origin":1434,"position":5},"title":"073. Duplicare righe excel modificando il contenuto","date":"6 Ottobre 2017","format":false,"excerpt":"Ci scrivono: Buongiorno, avrei una piccola esigenza su excel. ho un elenco di 2000 righe circa con una decina di colonne. dovrei duplicare le righe n-volte e per ogni riga duplicata modificare i valori di alcune celle aggiungengo dei suffissi\\prefissi in base alla colonna. es. riga base: ColA ColB ColC\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1434"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=1434"}],"version-history":[{"count":3,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1434\/revisions"}],"predecessor-version":[{"id":1438,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1434\/revisions\/1438"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=1434"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=1434"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=1434"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}