在进行数据分析时，有时需要从网络上抓取大量的数据。针对一些分析，为更好地理解数据，需要根据URL，自动匹配网站名称。如何实现呢？
工具/原料
Excel2010
方法/步骤
1、打开要使用的Excel文件。本次是要分析手机的价格变化，从ZOL和太平洋上抓取了部分数据
2、右击Sheet6的页签名称，点击“查看代码”。我们使用VBA程序来实现批量处理。
3、在打开的VBA开发界面中，拷贝入如下程序：OptionExplicitSubw娣定撰钠ebsitename()D足毂忍珩imiAsIntegerDimjAsIntegerDimirowAsInteger'计算总行数irow=Sheet6.Range("a65536").End(xlUp).RowFori=1To1000IfSheets("Sheet6").Cells(i,4).ValueLike"*.zol.*"ThenSheets("Sheet6").Cells(i,5).Value="中关村在线"EndIfIfSheets("Sheet6").Cells(i,4).ValueLike"*.pconline.*"ThenSheets("Sheet6").Cells(i,5).Value="太平洋电脑"EndIfNextEndSub
4、点击工具栏中的绿色小三角运行按钮，就可以运行程序。
5、查看Sheet6的运行结果，可以看到“网站”列，已经自动填充了网站名称。
6、注意如果数据量较多超出了65536行，则需要对程序中的irow=Sheet6.六咝媲拜Range("a65536").End(xlUp).Row进行修观鲼视防改，将a65536修改为a1000000即可。
7、分享完毕，欢迎私信交流。