[已解决]部分数据查找不到，求助帮忙修改代码

thelastdance · 发表于 2017-4-21 08:34

本帖最后由 thelastdance 于 2017-4-21 08:41 编辑

表名“车间”，p2：q6数据手工能搜索到，代码不知道怎么修改

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-4-21 09:23

简单改了下

Sub jihua()
Dim row%, jhrow%, t&
t = Timer
For row = 2 To Cells(Rows.Count, "a").End(3).row
For jhrow = 2 To Sheets("计划工时").Cells(Rows.Count, "a").End(3).row
If Cells(row, "b") = Sheets("计划工时").Cells(jhrow, "b") And Cells(row, "c") = Sheets("计划工时").Cells(jhrow, "c") And Sheets("计划工时").Cells(jhrow, "e") Like "*" & Cells(row, "e") & "*" Then
Cells(row, "p") = Sheets("计划工时").Cells(jhrow, "d")
Cells(row, "q") = Sheets("计划工时").Cells(jhrow, "f")
End If
Next
Next
MsgBox Timer - t & "秒"
End Sub

复制代码

运行结果如图，该有的都有了

跳转到最佳答案楼层

Excel学徒123 · 发表于 2017-4-21 08:45

不知道你要做什么

thelastdance · 发表于 2017-4-21 08:53

Excel学徒123 发表于 2017-4-21 08:45
不知道你要做什么

车间表的b列去查找计划工时表的b列，如果相同再看“零件名称是否相同”，都是c列，如果任然相同，再看车间表的e列，去查找计划工时表的e列，这个e列是模糊匹配的，只要有差不多相同的，就认为是一样的，在得出对应的数量和工时，填入车间表的p列和q列。
比如车间的行2，b c列和计划工时表的是一致的，工序都有个车子，所以认为是相同的，则p2=计划工时里面对应的工序的工时，明白吗？

Excel学徒123 · 发表于 2017-4-21 08:56

thelastdance 发表于 2017-4-21 08:53
车间表的b列去查找计划工时表的b列，如果相同再看“零件名称是否相同”，都是c列，如果任然相同，再看车 ...

逻辑都理得这么清晰了，不应该写不出来吧

砂海 · 发表于 2017-4-21 09:01

"计划" 导入到 "车间" 的话

只循环计划行数
车间不循环 , 用变量 = 变量 +1

thelastdance · 发表于 2017-4-21 09:13

Excel学徒123 发表于 2017-4-21 08:56
逻辑都理得这么清晰了，不应该写不出来吧

写得出来就不用求助了

thelastdance · 发表于 2017-4-21 09:14

砂海发表于 2017-4-21 09:01
"计划" 导入到 "车间" 的话

只循环计划行数

没理解，不循环怎么对比啊

Excel学徒123 · 发表于 2017-4-21 09:16

thelastdance 发表于 2017-4-21 09:14
没理解，不循环怎么对比啊

意思就是用累加器的方式

望帝春心 · 发表于 2017-4-21 09:21

不说代码效率问题，两个地方错了，第一内层循环与外层循环反了，第二LIKE用反了，总之你就是反了...

望帝春心 · 发表于 2017-4-21 09:23

简单改了下

Sub jihua()
Dim row%, jhrow%, t&
t = Timer
For row = 2 To Cells(Rows.Count, "a").End(3).row
For jhrow = 2 To Sheets("计划工时").Cells(Rows.Count, "a").End(3).row
If Cells(row, "b") = Sheets("计划工时").Cells(jhrow, "b") And Cells(row, "c") = Sheets("计划工时").Cells(jhrow, "c") And Sheets("计划工时").Cells(jhrow, "e") Like "*" & Cells(row, "e") & "*" Then
Cells(row, "p") = Sheets("计划工时").Cells(jhrow, "d")
Cells(row, "q") = Sheets("计划工时").Cells(jhrow, "f")
End If
Next
Next
MsgBox Timer - t & "秒"
End Sub

复制代码

运行结果如图，该有的都有了

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