记性不可靠，纸头最重要，Excel VBA(宏)入门实用--Like 使用

1. 打开你的Excel book之后，按下Alt+F11, 弹出一个VBA project的窗口，窗口左侧会列出你的当前Excel book.

     右击你的 Excel book, 选择"Insert Module" ,弹出一个窗口，输出以下代码：

   

   Sub My1111()

 Dim xx
 Dim xx
 Dim xx
 Dim xx
 Dim xx
 Dim xx

For i = 1 To 1000
    xx = Cells(i, 2)
    xx = Cells(i + 1, 2)
    'Cells(i, 16) = xx
    'Cells(i, 17) = xx
    If xx Like xx & "*" Then
        xx = Cells(i, 3)
        xx = Cells(i + 1, 3)
        xx = Cells(i, 4)
        xx = Cells(i + 1, 4)
        If xx = xx Or Abs(xx - xx) < 5 Then
                Cells(i, 2).Interior.ColorIndex = 3
                Cells(i + 1, 2).Interior.ColorIndex = 3
        End If
    End If
Next i
End Sub

我把变量的名称都隐去了，只需要提醒自己的是:

1. 语法问题。

2. Like 使用方法。 模式部分一定要放在Like后面部分，后面的“*”匹配任意字符，如果使用"#"，则匹配数字.

3. 如何填充单元格

写完之后，选择你的Excel book, 单击工具栏的"RUn" ，就可以执行了。

关于如何添加备注：

Sub My222()


Dim rng As Range



For Each rng In Range("A10:AR242")

    If rng.Value Like dian & "*" And rng.comment Is Nothing Then
    
        rng.AddComment
        rng.comment.Visible = False
        rng.comment.Text Text:=mytext
    
    End If
Next

End Sub

上面 的代码首先判断满足一定条件的单元格，然后判断是否没有备注，之后再新增备注。