Question

EXCEL遍访高手还没搞定这个问题，有想法的进来看看，多谢了

Answer 1

Sub aa()
Dim a,b As String
i = 2
Do
a = Cells(i, 1)
j = 2
Do
b = Cells(j, 2)
If b Like "*" & a & "*" Then
Cells(j, 3) = "EMS"
End If
j = j + 1
Loop Until Cells(j, 2) = ""
i = i + 1
Loop Until Cells(i, 1) = ""
End Sub

运行即可。

Answer 2

用vba吧
sub test()
dim i as integer,j as integer
for i = 2 to cells(65536,2).end(3).row
for j = 2 to cells(65536,1).end(3).row
if cells(i,2) like "*"&cells(j,1)&"*" then
cells(i,3)="EMS"
exit for
next
next
end sub

在想操作的sheet页的表名（就是下边那个标签）点右键-选择查看代码，然后把上边的代码复制进去（调成上文显示的样子），然后把鼠标光标点在代码中的任意位置，然后点F5，一切搞定。

Answer 3

在C2中使用数组公式：
=IF(OR(ISNUMBER(FIND(IF($A$2:$A$1000="","^",$A$2:$A$1000),B2))),"EMS","")
按三键（CTRL+SHEFT+ENTER）完成公式，下拉填充C列公式。
（公式中的 ^ ，可以用在你的数据中没用过的字符代替，作用是排除空单元格引起的错误）

Answer 4

C2=IF(MAX(IFERROR(FIND($A$1:$A$3,B2),0)),"EMS","")

三键数组型输入
OFFICE2007测试通过

Answer 5

...用access不就完了么，为什么非得抱着excel这个做图表的东西做数据处理

Answer 6

试试find函数