Excel VBA : trasformare le colonne in righe - Roberto D'Alessio
I'm specialize in .NET, JAVA, PHP, iPhone App Development, Android App Development, iPad App Development, iOS Development,web design, web developer, web development and IT Solution
iphone development, iphone app development, ipad app development, android development, android app development, iphone app developers, iphone application development, android application development, mobile app development, italy outsource, italy outsourcing company, italy outsourcing companies, italy outsourcing, italy software outsourcing, Italy offshore, software outsourcing, Software testing companies, web design, web developer, web development, IT Solution, wordpress, joomla, angular, angularjs, angular.js, nodejs, node.js, socketio, socket.io, react, ionic, xamarin, hybrid app, web site, development site, site development
35
wp-singular,post-template-default,single,single-post,postid-35,single-format-standard,wp-theme-bridge,cookies-not-set,qode-quick-links-1.0,ajax_fade,page_not_loaded,,qode_grid_1300,qode-content-sidebar-responsive,qode-theme-ver-11.1,qode-theme-bridge,wpb-js-composer js-comp-ver-8.4.1,vc_responsive
Excel VBA : trasformare le colonne in righe
01 Giu Excel VBA : trasformare le colonne in righe
Posted at 13:12h
in
Blog
by notelseit
Sub ColumnsToRows() 'Author: Jerry Beaucaire 'Date: 6/27/2010 'Summary: Multiple Columns of data with a header formatted ' into two columns, headers in column1, data in 2 Dim LC As Long Dim dCol As Long Dim NR As Long Dim CpyRNG As Range Application.ScreenUpdating = False 'Insert new blank columns Range("A:B").Insert xlShiftToRight 'Where to place next row of copied data NR = 1 'Last column of data LC = Cells(1, Columns.Count).End(xlToLeft).Column 'Loop through each column For dCol = 3 To LC Set CpyRNG = Range(Cells(2, dCol), Cells(Rows.Count, dCol)) _ .SpecialCells(xlCellTypeConstants) CpyRNG.Copy Range("B" & NR) Cells(1, dCol).Copy Range("A" & NR).Resize(CpyRNG.Rows.Count) NR = NR + CpyRNG.Rows.Count Next dCol 'Cleanup Range(Cells(1, 3), Cells(Rows.Count, LC)).Clear Columns.AutoFit Set CpyRNG = Nothing Application.ScreenUpdating = True End Sub
