一个字符串判断是否包含多个字符串，并引用其他单元格内容

老鼠和猫 · 发表于 2019-10-1 20:45

根据A列的作业活动，写出B列的危险因素，危险因素不固定而且是多个（已完成），C列对应的安全措施自动生成，内容是相对应的G列内容合并，中间用“，”分隔，谢谢老师指导！！

microyip · 发表于 2019-10-2 07:41

你也是神人，电脑能知道“更换辊道”包含那么一大堆的危险因数

老鼠和猫 · 发表于 2019-10-2 12:50

microyip 发表于 2019-10-2 07:41
你也是神人，电脑能知道“更换辊道”包含那么一大堆的危险因数

可能我没有说明白，B列的数据是由人工选择的，C列的数据根据B列的选择结果自动填入。

microyip · 发表于 2019-10-2 14:08

老鼠和猫发表于 2019-10-2 12:50
可能我没有说明白，B列的数据是由人工选择的，C列的数据根据B列的选择结果自动填入。

把所有因素做成字典，然后对B列数据用Split分开出因素，对字典进行匹配得到操作

老鼠和猫 · 发表于 2019-10-7 10:00

microyip 发表于 2019-10-2 14:08
把所有因素做成字典，然后对B列数据用Split分开出因素，对字典进行匹配得到操作

老师我没明白，能做个例子吗，谢谢

microyip · 发表于 2019-10-7 10:14

http://club.excelhome.net/forum. ... 52&pid=10105428变通使用一下吧

dushaguo · 发表于 2019-10-7 11:02

兄弟也是做安全的

老鼠和猫 · 发表于 2019-11-5 15:44

dushaguo 发表于 2019-10-7 11:02
兄弟也是做安全的

您回的excel，不能实现我需要的功能
我没有明白，可以做个成功的例子吗

tspliu · 发表于 2019-11-5 16:06

Sub aa()
Set d = CreateObject("scripting.dictionary")
For i = 2 To 11
d(Cells(i, 6).Value) = Cells(i, 7)
Next
For i = 3 To 7
n = 1
Cells(i, 3) = ""
For Each x In Split(Cells(i, 2), ",", , vbBinaryCompare)
Cells(i, 3) = Cells(i, 3) & n & "??" & d(x)
n = n + 1
Next
Next
End Sub

tspliu · 发表于 2019-11-5 16:06

自己把cells(...)改成数组吧。不然数据多了会很慢

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

[求助] 一个字符串判断是否包含多个字符串，并引用其他单元格内容

最新热点 /1