例如:
A列
小明
小a
小b
小小C
我现在想在另一个工作表所有列中查找是否包含A列的字符的字符串,比如B工作表中有“小明在看电视”,就返回是存在.。
用函数查找另一个工作表所有列中是否提到A列中的词语(小明),就是等于“查找”的功能,不过我不想把A列一个个复制到B工作表中去查找,因为很多,很麻烦。
追答这个用函数解决不了要用VBA,我写了一个程序你看看行不行。
Sub 查找d()
Dim 目标 As Range, rng As Range, srng As Range, i As Integer
For i = 1 To 1000 Step 1
Set srng = Sheet1.Cells(i, 1)
Sheet2.Select
With ActiveSheet.UsedRange
Set 目标 = .Find(srng, LookIn:=xlValues, lookat:=xlPart)
If Not 目标 Is Nothing Then
Sheet1.Cells(i, 2).Value = "存在"
Else: Sheet1.Cells(i, 2).Value = "不存在"
End If
End With
Next i
End Sub
你将要查找的放在sheet1的A列
把被查找的内容放在sheet2的任意一张表格里面经过我测试是没有问题。
代码运行的方法
:用快捷键Alt+F11
然后插入模块然后把代码复制进去运行就行了。