EXCEL内容匹配、标记宏程序

1、打开要是用的Excel文件

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

3、在打开的界面中拷贝如下代码：Option ExplicitSub websitename()Dim 足毂忍珩i As IntegerDim j As IntegerDim irow As Integer'计算总行数irow = 宏程序1.Range("a65536").End(xlUp).RowFor 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 IfNextEnd Sub

4、点击，运行。

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

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