Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Code to Convert Rows into Columns in Excel
Hi all,
I am trying to write a VB module in Excel that converts rows into columns. The data is distributed across 10-50 rows instead, I'd like to see 10-50 columns. This is the code that I used but doesn't seem to be working for me: i = Range("A50000").End(xlUp).Row Do If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i, 2).Resize(1, 50).Cut Cells(i - 1, 3) Rows(i).Delete End If i = i - 1 Loop Until i < 2 Columns.AutoFit Thanks in advance, Adel |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Code to Convert Rows into Columns in Excel
You can use transpose, but you have to past the data to a new workarea and
then copy it back to thje original worksheet. code assumes Column A and Row 1 defines the area to transpose (column A has data in last row, and row 1 has data in last column). LastRow = Range("A" & Rows.Count).End(xlUp).Row LastCol = Cells(1, Columns.Count).End(xlToLeft).Column Set Transposerange = Range("A1", Cells(LastRow, LastCol)) Transposerange.Copy Sheets("sheet2").Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True "Adel Pascaris" wrote: Hi all, I am trying to write a VB module in Excel that converts rows into columns. The data is distributed across 10-50 rows instead, I'd like to see 10-50 columns. This is the code that I used but doesn't seem to be working for me: i = Range("A50000").End(xlUp).Row Do If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i, 2).Resize(1, 50).Cut Cells(i - 1, 3) Rows(i).Delete End If i = i - 1 Loop Until i < 2 Columns.AutoFit Thanks in advance, Adel |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I convert columns of data to rows in excel? | New Users to Excel | |||
to convert columns to rows having mulit independent group columns | Excel Worksheet Functions | |||
Please help me with microsofts code to convert more than 65000 rows from text to excel | Excel Discussion (Misc queries) | |||
Instructions to convert columns to rows Excel help are not correct | Excel Worksheet Functions | |||
Convert code rows to columns | Excel Programming |