Question

请帮忙写一个Excel VBA查找的代码，不胜感激！！

在表格中，某一列，例如在第E列，查找 【包含有】 “北京”或者是“上海”字样的单元格，将其所在单元格内字体变为红色，该单元格所在行背景变为黄色！谢谢，最好在每行代码后标明注释~

Answer 1

Sub searchstr()
Dim arr '定义数组
Dim i '定义循环变量
arr = Range("e1:e" & .[e65536].End(3).Row) '把E列内容放入数组
For i = 1 To UBound(arr) '开始循环
If InStr(arr(i, 1), "北京") + InStr(arr(i, 1), "上海") <> 0 Then '如果找到“北京”或者“上海”，就是查找北京或者上海的字符个数
Range("e" & i).Font.ColorIndex = 3 '满足条件的字体变为红色
Rows(i).Interior.Color = RGB(225, 225, 0) '满足条件的，该行变为黄色
End If
Next i
End Sub

Answer 2

下面代码即可。。
Sub cx()
' 进行i循环（从1到用户数据行数）
For i = 1 To UsedRange.Rows.Count
' 如果第i行第5列交叉单元格内容含有北京或上海
' Cells(i,j)的两个参数说明：i表示行，j表示列
If InStr(Cells(i, 5), "北京") > 0 Or InStr(Cells(i, 5), "上海") > 0 Then
Cells(i, 5).Font.ColorIndex = 3 ' 字体红色
Cells(i, 5).Interior.ColorIndex = 6 ' 背景黄色
End If
Next
End Sub

Answer 3

Sub 查找北京或者上海()
Dim arr
MyRow = ActiveSheet.[E65536].End(3).Row 'E例最后一行的行号
arr = Range("E1:E" & MyRow) 'E例字符串赋值给数组arr
For Each sh In arr '循环
I = I + 1
If InStr(sh, "上海") Or InStr(sh, "北京") <> 0 Then '如果数组字符串中包含上海或者北京
Range("E" & I).Select '选中对应的单元格
Selection.Interior.ColorIndex = 6 '单元格背景黄色
Selection.Font.ColorIndex = 3 '字体红色
End If
Next
End Sub

Answer 4

用条件格式就可以了,没有必要用VBA,VBA反而复杂

Answer 5

把文件发我邮箱，说清楚目的或想达到的要求。mfk1288@126.com