EXCEL如何根据URL自动批量匹配网站名称

1、打开要使用的Excel文件。本次是要分析手机的价格变化，从ZOL和太平洋上抓取了部分数据

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

5、查看Sheet6的运行结果，可以看到“网站”列，已经自动填充了网站名称。

7、分享完毕，欢迎私信交流。