EXCEL内容匹配、标记宏程序

1、打开要是用的Excel文件

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

3、在打开的界面中拷贝如下代码：

Option Explicit

Sub websitename()

Dim i As Integer

Dim j As Integer

Dim irow As Integer

'计算总行数

irow = 宏程序1.Range("a65536").End(xlUp).Row

For i = 1 To 1000

   If Sheets("宏程序1").Cells(i, 4).Value Like "*.zol.*" Then

       Sheets("宏程序1").Cells(i, 4).Value = "zol"

   End If   

   If Sheets("宏程序1").Cells(i, 4).Value Like "*.pconline.*" Then

       Sheets("宏程序1").Cells(i, 4).Value = "太平洋"

   End If

Next

End Sub

4、点击，运行。

5、从结果来看已经完成了内容匹配与替换

6、分享完毕，欢迎小伙伴随时交流。