Transpose multiple Columns to rows
On Friday, March 16, 2012 9:57:29 AM UTC-5, Cimjet wrote:
Hi Don
My apologies, I always start at row 2 because of heading and I didn't think
for minute.
I guess it's too early in the morning...
Best regards
Cimjet
"Don Guillett" wrote in message
news:16091498.1305.1331908780315.JavaMail.geo-discussion-forums@ynll40...
On Friday, March 16, 2012 8:59:46 AM UTC-5, Cimjet wrote:
Hi Don
Small typo, I think you meant this:
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step block
Regards
Cimjet
"Don Guillett" wrote in message
news:29919190.1039.1331901997170.JavaMail.geo-discussion-forums@ynmb12....
On Thursday, March 15, 2012 8:33:19 PM UTC-5, Zucco wrote:
Hey i need help transposing multiple sets of data to columns. I have a
couple hundred and don't want to do each by hand any suggestions?
Home Slice Pizza
1415 SOUTH CONGRESS AVE · Austin, Texas · 78704-2434
Pizza Restaurant
2,572 were here · 139 likes
Double Dave's Pizzaworks
Austin, Texas
Pizza Restaurant
1,118 were here · 53 likes
Brooklyn Heights
14900 Avery Ranch Blvd · Austin, Texas · 78717
Pizza Restaurant
2,270 were here · 228 likes · Open until 12:00 am.
California Pizza Kitchen
3401 Esperanza Xing Ste 100 · Austin, Texas · 78758-8705
Pizza Restaurant
1,253 were here · 67 likes
Red House Pizzeria
1917 Manor Road · Austin, Texas · 78722
Pizza Restaurant
1,136 were here · 91 likes
Hoeks Death Metal Pizza
511 E. 6th Street · Austin, Texas · 78701
Pizza Restaurant
1,525 were here · 3,948 likes · Open until 3:00 am.
Double Dave's Pizzaworks
3000 Duval St · Austin, Texas · 78705-3823
Pizza Restaurant
375 were here · 28 likes
Salvation Pizza
624 W 34th St · Austin, Texas · 78705-1203
Pizza Restaurant
506 were here · 80 likes
Double Daves Pizza Works
11900 Metric Blvd Ste F · Austin, Texas · 78758-3121
Pizza Restaurant
437 were here · 23 likes
Brick Oven Restaurant
9911 Brodie Ln Ste 600 · Austin, Texas · 78748-5964
Pizza Restaurant · Italian Restaurant · Family Style Restaurant
465 were here · 24 likes
--
Zucco
I am here in Austin and happy to help. When I copied your data I get 4 lines
and
2 blank rows for a block of 6 rows. If only one blank or none change blank=
BTW. The best pizza is on RR 620 at Saconnes or Romes.
Sub transposeblocksSAS()
block = 6
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step block
Cells(i, 1).Resize(block).Copy
Cells(i, "b").End(xlUp)(2) _
.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Next i
Columns.AutoFit
End Sub
When I copied the msg data to a file it was on row 1 not 2. TESTED!
Sounds just like something I do frequently.
|