作者：乔山办公网日期：
返回目录：excel表格制作
可以用vlookup()函数变相解决此问题，您百度“vlookup"下希望能对您有所帮助。祝您一切顺利。
插入模块中，保存即可
Sub auto_open()
Sheets(1).Range("B1") = "中国移动通讯有限责任公司"
End Sub
答：百度
Sub Demo()
Dim rng As Range
Dim mMatches As Object, mMatch As Object
For Each rng In Range("E1:E300")
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "reqdate"
.IgnoreCase = True
Set mMatches = .Execute(rng.Text)
For Each mMatch In mMatches
rng.Characters(mMatch.FirstIndex + 1, 7).Font.ColorIndex = 3
Next
End With
Next
End Sub
实测知效果道图回：答
为什么要遍历所有单元百格呢，你查找指定的单元度格就行了
sub test()
Dim i, j As Integer
For i = 1 To 10000 '1000行最大
For j = 1 To 3 'A,B,C三列
If Cells(i, j).Value = "2012年度考内核" Then
Cells(i, j + 1) = "2012" '这里可以改为其容他单元格的值
Cells(i, j + 2) = "5"
End If
Next
Next