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

1、打开要使用的Excel文件。

本次是要分析手机的价格变化，从ZOL和太平洋上抓取了部分数据

2、右击Sheet6的页签名称，点击“查看代码”。

我们使用VBA程序来实现批量处理。

3、在打开的VBA开发界面中，拷贝入如下程序：

Option Explicit

Sub websitename()

Dim i As Integer

Dim j As Integer

Dim irow As Integer

'计算总行数

irow = Sheet6.Range("a65536").End(xlUp).Row

For 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 If

Next

End Sub

4、点击工具栏中的绿色小三角运行按钮，就可以运行程序。

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

6、注意如果数据量较多超出了65536行，则需要对程序中的irow = Sheet6.Range("a65536").End(xlUp).Row进行修改，将a65536修改为a1000000即可。

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