订阅EXCEL如何根据URL自动批量匹配网站名称？
来源：网络收集 点击： 时间：2024-08-31打开要使用的Excel文件。
本次是要分析手机的价格变化，从ZOL和太平洋上抓取了部分数据
2/7右击Sheet6的页签名称，点击“查看代码”。
我们使用VBA程序来实现批量处理。
3/7在打开的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/7点击工具栏中的绿色小三角运行按钮，就可以运行程序。
5/7查看Sheet6的运行结果，可以看到“网站”列，已经自动填充了网站名称。
6/7注意如果数据量较多超出了65536行，则需要对程序中的irow = Sheet6.Range(a65536).End(xlUp).Row进行修改，将a65536修改为a1000000即可。
7/7分享完毕，欢迎私信交流。
注意事项Excel2003的最大行数65536，Excel2010则可达到1048576
EXCEL宏程序批量匹配版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_1178786.html
