EXCEL内容匹配宏程序

Option Explicit

 

Sub websitename()

 

Dim i As Integer

Dim j As Integer

Dim irow As Integer

 

 

 

'计算总行数

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

 

For i = 1 To irow

   If Sheets("sheet1").Cells(i, 4).Value Like "*.huafans.*"Then

       Sheets("sheet1").Cells(i, 4).Value = "1"

   If Sheets("sheet1").Cells(i, 4).Value Like "*.tieba.*"Then

       Sheets("sheet1").Cells(i, 4).Value = "1"

 

   End If

Next

End Sub