Repeating loop till no values remain

**smilton** · 05-30-2014, 12:50 PM

I am trying to complete a data transformation where all my reords are in a singel colum and contain 4 rows for each. I want to transpose the 4 rows in colum A to 1 row with 4 columns starting in cell C1 and inserting the repeated row offset by 1 row (i.e. cell c2) I have created the base function that I want to accomplish, but am having difficulty setting up the loop. See code below...

Thanks,
Scott

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Please Login or Register  to view this content.

**Mumps1** · 05-30-2014, 01:09 PM

Try:

Please Login or Register  to view this content.

**smilton** · 05-30-2014, 01:15 PM

Mumps1,

Thank you. This was the perfect solution.

**soberguy** · 05-30-2014, 01:17 PM

Is A5 a blank row? Just curious.

For future reference, you don't need to select a given range, and then copy it, and then select a new range, and then paste it. I do believe you can just Range("A1:A4").Copy("C1")

At any rate, I'd much prefer to take the values in A, populate an array, and then paste those array values.

Assuming A5 is not blank (and all data is in sequential rows), it would look something like:

Please Login or Register  to view this content.

**Mumps1** · 05-30-2014, 01:19 PM

My pleasure.

**JOHN H. DAVIS** · 05-30-2014, 01:25 PM

Maybe:

Please Login or Register  to view this content.

Repeating loop till no values remain

LinkBack

Thread Tools

Rate This Thread

Display

Repeating loop till no values remain

Re: Repeating loop till no values remain

Re: Repeating loop till no values remain

Re: Repeating loop till no values remain

Re: Repeating loop till no values remain

Re: Repeating loop till no values remain

Thread Information

Users Browsing this Thread

Similar Threads

Loop till last row

[SOLVED] Loop till end of the sheet and loop back to first column again

[SOLVED] How to remain initial cell value after loop

[SOLVED] How to loop till last row with data?

SUMIF and LOOP till the last row

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions