EXCEL内容匹配、标记宏程序

1、打开要是用的Excel文件

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

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

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