记性不可靠，纸头最重要，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

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