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

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

1. 语法问题。

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

3. 如何填充单元格

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

关于如何添加备注：

Sub My222()Dim rng As RangeFor 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 IfNextEnd Sub

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