Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
allineamento colonne date
- Hai un problema con Excel?
allineamento colonne date
di DanieleC (utente non iscritto) data: 23/07/2014 10:39:07
Ciao a tutti,
ho un problema, nel file allegato ho qualche migliaio di società con vari dati che mi servono, i dati riguardano vari anni, che vanno dal 2005 al 2014, purtroppo quando i dati non sono disponibili il provider non ha lasciato la colonna vuota nel download su excel. Come posso fare per avere i dati anno per anno allineati in colonna delle società e quindi avere spazi vuoti negli anni mancanti. Allego il file in questione. Grazie!
di lepat (utente non iscritto) data: 23/07/2014 11:17:31
non è molto chiaro per me, occorrerebbe anche il risultato desiderato
di DanieleC (utente non iscritto) data: 23/07/2014 11:33:38
Ciao, allegato! Grazie
di lepat (utente non iscritto) data: 23/07/2014 18:13:26
prova questa
Sub a() LR = Cells(1, 1).SpecialCells(xlLastCell).Row colmax = 1 numrighe = 6 For r = 1 To LR Step numrighe + 1 If colmax < Cells(r + 1, Cells.Columns.Count).End(xlToLeft).Column Then colmax = Cells(r + 1, Cells.Columns.Count).End(xlToLeft).Column rowmax = Cells(r + 1, Cells.Columns.Count).End(xlToLeft).Row End If Next yearmax = Year(Cells(rowmax, 3)) For r = 1 To LR Step numrighe + 1 LC = Cells(r + 1, Cells.Columns.Count).End(xlToLeft).Column year1 = Year(Cells(r + 1, 3)) diffyear = year1 - yearmax Range(Cells(r, 1), Cells(r + numrighe - 1, LC)).Cut Destination:=Cells(r, diffyear + 1) Next End Sub
- Vuoi Approfondire?
