Convert 1 Dimension Data to 2 dimensions

[ptm0412]

I have received a message from jeency, as below:

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