1、打开要使用的Excel文件。本次是要分析手机的价格变化，从ZOL和太平洋上抓取了部分数据
2、右击Sheet6的页签名称，点击“查看代码”。我们使用VBA程序来实现批量处理。
3、在打开的VBA开发界面中，拷贝入如下程序：Option ExplicitSub websitename()D足毂忍珩im i As IntegerDim j As IntegerDim irow As Integer'计算总行数irow = Sheet6.Range("a65536").End(xlUp).RowFor i = 1 To 1000 If Sheets("Sheet6").Cells(i, 4).Value Like "*.zol.*" Then Sheets("Sheet6").Cells(i, 5).Value = "中关村在线" End If If Sheets("Sheet6").Cells(i, 4).Value Like "*.pconline.*" Then Sheets("Sheet6").Cells(i, 5).Value = "太平洋电脑" End IfNextEnd Sub
4、点击工具栏中的绿色小三角运行按钮，就可以运行程序。
5、查看Sheet6的运行结果，可以看到“网站”列，已经自动填充了网站名称。
6、注意如果数据量较多超出了65536行，则需要对程序中的irow = Sheet6.Range("a65536").End(xlUp).Row进行修观鲼视防改，将a65536修改为a1000000即可。
7、分享完毕，欢迎私信交流。