Convert 1 Dimension Data to 2 dimensions

I have received a message from jeency, as below:

Originally Posted by jeency

I have a problem..can you help me out with macro.
Can you convert following data

Company Name Service Name Price
Company1 Service1 $1.01
Company1 Service2 $1.02
Company1 Service3 $1.03
Company2 Service3 $2.03

end result should look like

Company Name Service1Service2Service3
Company1 $1.01 $1.02 $1.03
Company2 $0 $ 0 $2.03

If we have just a few companies and some services, we could use Pivot Table to do it. But if the number of companies is too large, I think we should use VBA.

Please see attatched file, 1 sheet is using Pivot Table and one sheet is using VBA code.

I suppose that there are nearly 14,000 companies and 4 services.

Note: I have asked this question in the Vietnamese forum: giaiphapexcel.com and have received help from ndu96081631 to finished.

Link of my answer and those helps: Scripting.Dictionary

Hi ptm0412
A pivot table will handle 20,000 companies if there are only four service names very quickly . VBA would be extremely slow

For the record: jeency should not have used PM to ask a question in the first place!

ptm, thanks for pulling that question into an open discussion.

Dear snb,
Your code run very fast, but not common.
What happend if I have real Service Names such as: Haircut, Nail, Make up, and Skin care?
And, I suppose that we have not yet known how many companies and how many services, and all their names also.
Your code may not work in actual case.

Dear pike,
I have used Pivot Table already. However, I am practising in writing VBA with Scripting Dictionary. Then I try to make the code so that it run as fast as possible.

Thanks everybody.

ptm0412