ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Rearranging Data (https://www.excelbanter.com/excel-programming/416112-rearranging-data.html)

[email protected][_2_]

Rearranging Data
 
Hi all,

I have given up trying this on my own and was hoping someone can help
with this - here's what I have going on:

I get an output of two columns from another software and paste it into
Excel. In Column A, there are numbers ranging from 1 to 1,000, often
repeating 2-5 times; in column B, I have random numbers. What I need
done is to in a way transpose the numbers for each of the repeating
ones in column A into a row. An example might be best:

Column A, Column B
1, 100
1, 234
1, 390
2, 900
2, 435
3, 67
3, 870
3, 670
3, 665
3, 890

With the list above, i want to achieve th follwing results:

1, 100, 234, 390
2, 900, 435
3, 67, 870, 670, 665, 890
and so on...

If you have any questions or need me to clarify further,please let me
know; I thank you in advance for your help.

Thanks!

Don Guillett

Rearranging Data
 
try this

Sub lineuplikenums()
mc = 1
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If Cells(i, mc) = Cells(i - 1, mc) Then
'MsgBox Cells(i - 1, mc + 1) & ", " & Cells(i, mc + 1)
Cells(i - 1, mc + 1).Value = _
Cells(i - 1, mc + 1) & ", " & Cells(i, mc + 1)
Rows(i).Delete
End If
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
...
Hi all,

I have given up trying this on my own and was hoping someone can help
with this - here's what I have going on:

I get an output of two columns from another software and paste it into
Excel. In Column A, there are numbers ranging from 1 to 1,000, often
repeating 2-5 times; in column B, I have random numbers. What I need
done is to in a way transpose the numbers for each of the repeating
ones in column A into a row. An example might be best:

Column A, Column B
1, 100
1, 234
1, 390
2, 900
2, 435
3, 67
3, 870
3, 670
3, 665
3, 890

With the list above, i want to achieve th follwing results:

1, 100, 234, 390
2, 900, 435
3, 67, 870, 670, 665, 890
and so on...

If you have any questions or need me to clarify further,please let me
know; I thank you in advance for your help.

Thanks!



Bernd P

Rearranging Data
 
Hello,

I suggest to take my UDF vlookupall:
http://www.sulprobil.com/html/lookup-variants.html

Regards,
Bernd

[email protected][_2_]

Rearranging Data
 
Don,

Thank you so much for the code - it did the trick! I appreciate the
help!

Best regards,
-Haas


On Aug 26, 11:43*am, "Don Guillett" wrote:
try this

Sub lineuplikenums()
mc = 1
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If Cells(i, mc) = Cells(i - 1, mc) Then
'MsgBox Cells(i - 1, mc + 1) & ", " & Cells(i, mc + 1)
Cells(i - 1, mc + 1).Value = _
Cells(i - 1, mc + 1) & ", " & Cells(i, mc + 1)
Rows(i).Delete
End If
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
wrote in message

...



Hi all,


I have given up trying this on my own and was hoping someone can help
with this - here's what I have going on:


I get an output of two columns from another software and paste it into
Excel. In Column A, there are numbers ranging from 1 to 1,000, often
repeating 2-5 times; in column B, I have random numbers. What I need
done is to in a way transpose the numbers for each of the repeating
ones in column A into a row. An example might be best:


Column A, Column B
1, 100
1, 234
1, 390
2, 900
2, 435
3, 67
3, 870
3, 670
3, 665
3, 890


With the list above, i want to achieve th follwing results:


1, 100, 234, 390
2, 900, 435
3, 67, 870, 670, 665, 890
and so on...


If you have any questions or need me to clarify further,please let me
know; I thank you in advance for your help.


Thanks!- Hide quoted text -


- Show quoted text -



Don Guillett

Rearranging Data
 
Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
...
Don,

Thank you so much for the code - it did the trick! I appreciate the
help!

Best regards,
-Haas


On Aug 26, 11:43 am, "Don Guillett" wrote:
try this

Sub lineuplikenums()
mc = 1
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If Cells(i, mc) = Cells(i - 1, mc) Then
'MsgBox Cells(i - 1, mc + 1) & ", " & Cells(i, mc + 1)
Cells(i - 1, mc + 1).Value = _
Cells(i - 1, mc + 1) & ", " & Cells(i, mc + 1)
Rows(i).Delete
End If
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
wrote in message

...



Hi all,


I have given up trying this on my own and was hoping someone can help
with this - here's what I have going on:


I get an output of two columns from another software and paste it into
Excel. In Column A, there are numbers ranging from 1 to 1,000, often
repeating 2-5 times; in column B, I have random numbers. What I need
done is to in a way transpose the numbers for each of the repeating
ones in column A into a row. An example might be best:


Column A, Column B
1, 100
1, 234
1, 390
2, 900
2, 435
3, 67
3, 870
3, 670
3, 665
3, 890


With the list above, i want to achieve th follwing results:


1, 100, 234, 390
2, 900, 435
3, 67, 870, 670, 665, 890
and so on...


If you have any questions or need me to clarify further,please let me
know; I thank you in advance for your help.


Thanks!- Hide quoted text -


- Show quoted text -



Gord Dibben

Rearranging Data
 
I stored this one in my "goodies" add-in.

Thanks Don


Gord

On Tue, 26 Aug 2008 13:26:49 -0500, "Don Guillett"
wrote:

Glad to help



Don Guillett

Rearranging Data
 
From you a kind compliment. Thanks

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
I stored this one in my "goodies" add-in.

Thanks Don


Gord

On Tue, 26 Aug 2008 13:26:49 -0500, "Don Guillett"
wrote:

Glad to help





All times are GMT +1. The time now is 10:07 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com