Home |
Search |
Today's Posts |
#1
|
|||
|
|||
redistribute a column by a groups of rows
Existing Conditions:
Single Excel Sheet 1 Column of data ~3000 rows of data Data is grouped in clusters of information seperated by blank rows (address information) Data groupings can be anywhere from 4 to 10 rows Name Address 1 Address 2 Address 3 City State Name Address 1 City State etc to ~3000 rows of 483 discreet groups I want to change so that it displays (; represent columns) Name;address1;address2;address3;city;state Name;Address1;city;state etc Any help? |
#2
|
|||
|
|||
I think this does what you are looking for:
Sub Redistribute() Dim r, s, t As Long s = 2 t = 1 For r = 1 To 3000 If Cells(r, 1).Value < "" Then Cells(t, s).Value = Cells(r, 1).Value End If s = s + 1 If Cells(r, 1).Value = "" Then s = 2 t = t + 1 End If Next End Sub Your excisting data has to be in column A. Per Erik On Fri, 29 Apr 2005 13:56:11 -0700, "Bill Davis" wrote: Existing Conditions: Single Excel Sheet 1 Column of data ~3000 rows of data Data is grouped in clusters of information seperated by blank rows (address information) Data groupings can be anywhere from 4 to 10 rows Name Address 1 Address 2 Address 3 City State Name Address 1 City State etc to ~3000 rows of 483 discreet groups I want to change so that it displays (; represent columns) Name;address1;address2;address3;city;state Name;Address1;city;state etc Any help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Return Count for LAST NonBlank Cell in each Row | Excel Worksheet Functions | |||
Changing column widths w/o affecting all rows | New Users to Excel | |||
transpose a column into many rows | Excel Discussion (Misc queries) | |||
repeated transpose from rows to columns with unequal groups | Excel Discussion (Misc queries) | |||
Can I set a filter for a merged column across multiple rows and o. | Excel Worksheet Functions |