如何实现关键词匹配输出

RexxarHuang · 发表于 2021-1-5 17:45

希望在sheet1的商品标题列找出sheet2包含的关键词，然后在标题后面输出，有多少个就输出多少

hcunicom · 发表于 2021-1-5 17:57

instr函数 instr函数 instr函数

ggmmlol · 发表于 2021-1-5 18:02

高级筛选就搞定了，点几下鼠标而已，不需要用代码。

zpy2 · 发表于 2021-1-5 19:00

本帖最后由 zpy2 于 2021-1-5 21:10 编辑

=Webservice("Http://e.anyoupin.cn/eh3/?preg_match_all_join~(精华|氨基酸|无硅|生姜)~植物生姜精华洗发水"

http://club.excelhome.net/forum.php?mod=viewthread&tid=1291488&highlight=filterxml&mobile=&_dsign=59f4b342

公式

3190496160 · 发表于 2021-1-6 08:45

Sub pipei()
Dim ar As Variant, br As Variant
Dim i As Integer
With Sheets("关键词")
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:a" & r)
End With
With Sheets("AAAA")
.Range("a1").CurrentRegion.Offset(1, 1) = Empty
br = .Range("a1").CurrentRegion
For i = 2 To UBound(br)
      y = 2
      For s = 2 To UBound(ar)
         If InStr(br(i, 1), ar(s, 1)) > 0 Then
            br(i, y) = ar(s, 1)
            y = y + 1
         End If
      Next s
Next i
.Range("a1").CurrentRegion = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2021-1-6 08:46

AAAA.zip (271 Bytes, 下载次数: 36)

RexxarHuang · 发表于 2021-1-6 09:02

3190496160 发表于 2021-1-6 08:46

您好，这个是怎么实现的

3190496160 · 发表于 2021-1-6 09:04

RexxarHuang 发表于 2021-1-6 09:02
您好，这个是怎么实现的

你到vba板块来求助问题，最后给你结果了，反问别人是怎么实现的？？？？？

RexxarHuang · 发表于 2021-1-6 09:27

3190496160 发表于 2021-1-6 09:04
你到vba板块来求助问题，最后给你结果了，反问别人是怎么实现的？？？？？

老师，因为我看到上传回来的文件还是原文件来的

zpy2 · 发表于 2021-1-8 09:33

RexxarHuang 发表于 2021-1-6 09:27
老师，因为我看到上传回来的文件还是原文件来的

需要运行vba,
alt+f11,进入vbe,f5

或者在界面宏里找到这个sub运行

		自动登录	找回密码
密码			免费注册

[求助] 如何实现关键词匹配输出

评分

最新热点 /1