Transposing Group of Rows to Columns

[RobertWagner]

[TABLE="width: 500"]
<tbody>[TR]
[TD]Acct
[/TD]
[TD]Symbol[/TD]
[TD]Shrares[/TD]
[/TR]
[TR]
[TD]123[/TD]
[TD]AAPL[/TD]
[TD]300[/TD]
[/TR]
[TR]
[TD]123[/TD]
[TD]GOOG[/TD]
[TD]200[/TD]
[/TR]
[TR]
[TD]567[/TD]
[TD]AAPL[/TD]
[TD]600[/TD]
[/TR]
[TR]
[TD]567[/TD]
[TD]GOOG[/TD]
[TD]400[/TD]
[/TR]
</tbody>[/TABLE]

End Result:

Acct Security Shares Acct Security Shares
123 APPL 300 567 AAPL 600
123 GOOG 200 567 GOOG 400


I'm a VBA beginner and am trying to write a code to cut data from 3 columns of data and move it to adjacent columns.

The current data is in 3 columns. Column 1 = Account Number, Column 2 = Security Symbol and Column 3 = Number Shares. The ultimate goal is to line the account up side by side so I can verify that they are all identical. Basically I want to cut out each entire account and paste them side by side. Any help would be greatly appreciated.

A
n

 

[Teeroy]

Hi and welcome to the forum.

Have you tried a pivot table to do your checks? If you set a Pivot Table on that data With Symbol and Acct as Row Labels and Shares in Sum Values then you should be able to do the check.

 

[RobertWagner]

Yep, that will work a I won't need any VBA coding. Thanks a million.

 

[Teeroy]

You're welcome.