How to import a very long formula to vba?

Hi

How can I import this formula into vba macro?

=IF(A2="Android Phones";"Electronics > Communications > Telephony > Mobile Phones > Smartphones";IF(A2="7 Inch Android Tablet PC";"Electronics > Computers > Tablet Computers";IF(A2="8-9 Inch Android Tablet PC";"Electronics > Computers > Tablet Computers";IF(A2="Cheap Android Tablets";"Electronics > Computers > Tablet Computers";IF(A2="10 Inch Android Tablet PC";"Electronics > Computers > Tablet Computers";IF(A2="Tablet PC Accessories";"Electronics > Computers > Computer Accessories > Tablet Computer Accessories";IF(A2="Android TV Media Players";"Electronics > Video > Video Players & Recorders > Home Media Players";IF(A2="Cell Phones";"Electronics > Communications > Telephony > Mobile Phones";IF(A2="Cell Phone Watch";"Electronics > Communications > Telephony > Mobile Phones > Watch Phones";IF(A2="Cell Phone Accessories";"Electronics > Communications > Telephony > Mobile Phone Accessories";IF(A2="Cool Gadgets";"Electronics > Electronics Accessories";IF(A2="Solar Products";"Hardware > Renewable Energy > Solar Energy";IF(A2="LED Watches";"Apparel & Accessories > Jewelry > Watches";IF(A2="Geek Gifts";"Electronics > Electronics Accessories";IF(A2="Laser Gadgets";"Office Supplies > Presentation Supplies > Laser Pointers";IF(A2="Smart Watches";"Electronics > Communications > Telephony > Mobile Phones > Watch Phones";IF(A2="Video Glasses";"Electronics > Video > Video Accessories";IF(A2="Wearable gadgets";"Electronics > Video > Video Accessories";IF(A2="Portable GPS";"Electronics > GPS";IF(A2="Car Tracker";"Electronics > GPS Trackers";IF(A2="GPS Tracking Devices";"Electronics > GPS Trackers";IF(A2="Car DVD Players";"Vehicles & Parts > Vehicle Parts & Accessories > Car Audio & Video > Car Video > Car DVD Players";IF(A2="Car Video";"Vehicles & Parts > Vehicle Parts & Accessories > Car Audio & Video > Car Video";IF(A2="Car Diagnostic Tools";"Vehicles & Parts > Vehicle Parts & Accessories > Motor Vehicle Care > Vehicle Diagnostic Scanners";IF(A2="Bluetooth Car Kits";"Vehicles & Parts > Vehicle Parts & Accessories > Car Audio & Video";IF(A2="Car Alarm / Car Security";"Vehicles & Parts > Vehicle Parts & Accessories > Motor Vehicle Security & Locking Systems";IF(A2="Car Gadgets / Car Accessories";"Vehicles & Parts > Vehicle Parts & Accessories";IF(A2="LED Flashlights";"Hardware > Tools > Flashlights";IF(A2="Home & Garden LED Lights";"Home & Garden > Lighting";IF(A2="Special LED Lights";"Home & Garden > Lighting";IF(A2="Automotive LED Lights";"Vehicles & Parts > Vehicle Parts & Accessories > Motor Vehicle Parts > Motor Vehicle Lighting";IF(A2="LED Projectors";"Electronics > Video > Projectors";IF(A2="Digital Cameras / Camcorders";"Cameras & Optics > Cameras > Digital Cameras";IF(A2="Home Theater / AV";"Electronics > Audio > Audio Players & Recorders > Home Theater Systems";IF(A2="LCD / TFT Displays";"Electronics > Video";IF(A2="Portable DVD Players";"Electronics > Video > Video Players & Recorders > DVD & Blu-ray Players";IF(A2="Headphones / Earphones";"Electronics > Audio > Audio Components > Headphones";IF(A2="MP3 / MP4 Players";"Electronics > Audio > Audio Players & Recorders > MP3 Players";IF(A2="Wifi devices";"Electronics > Networking > Bridges & Routers > Network Bridges > Wireless Bridges";IF(A2="USB + PC Accessories";"Electronics > Computers > Computer Accessories";IF(A2="USB Microscopes";"Business & Industrial > Science & Laboratory > Laboratory Equipment > Microscopes";IF(A2="Mouse + Keyboard";"Electronics > Computers > Computer Components > Input Devices";IF(A2="USB HDD Enclosures";"Electronics > Computers > Computer Components > Storage Devices > Storage Drive Accessories > Hard Drive Enclosures";IF(A2="Flash Drives + Memory Cards";"Electronics > Electronics Accessories > Memory";IF(A2="Baby Monitors";"Baby & Toddler > Baby Safety > Baby Monitors";IF(A2="Gadgets for Pets";"Animals & Pet Supplies > Pet Supplies";IF(A2="Personal + Health";"Health & Beauty > Personal Care";IF(A2="Outdoors Gear";"Sporting Goods > Outdoor Recreation";IF(A2="IP Cameras";"Cameras & Optics > Cameras > Surveillance Cameras";IF(A2="Security Gadgets";"Home & Garden > Home Security";IF(A2="CCTV Cameras";"Cameras & Optics > Cameras > Surveillance Cameras";IF(A2="DVR Cards & Systems";"Cameras & Optics > Cameras > Surveillance Cameras";IF(A2="Fingerprint Devices";"Electronics > Computers > Computer Components > Input Devices > Fingerprint Readers";"")))))))))))))))))))))))))))))))))))))))))))))))))))))

I can't find any solution, please help me.

UPDATE!!!
The Solution is Below, thanks to Jerry.

Change your formula to a VLOOKUP. Create your lookup values in a list in a single column, then add the "results" in the next column over, this is a lookup table:

Please Login or Register  to view this content.

Then the basic formula in a cell on Sheet1 would be:

=VLOOKUP(A1, Sheet2!$A:$B, 2, 0)


With a short formula like that, you won't need VBA. However, Vlookup is a VBA function as well.

Thank you Admin, I will post the results tomorrow, I am very tired, thank you for your time, appreciate.

You can call me Jerry.

It works. Thank you very much Jerry, appreciate.