关于SPLIT拆分查找遇到的一个问题

AA13714007 · 发表于 2018-7-19 18:53

附加表格是根据A列的型号以“-”用SPLIT出型号，然后对照价格表查找出相应型号的价格其中有两个型号 4175 和4175C 查找出的单价不对 4175C总是按照 4175的价格填写

求指教

jiangxiaoyun · 发表于 2018-7-19 19:12

你用了Val函数，val（4175c）=4175

lsc900707 · 发表于 2018-7-19 20:38

本帖最后由 lsc900707 于 2018-7-19 20:51 编辑

用字典处理更方便。

Sub gj23w98()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet9.[a1].CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
s = arr(i, 1) & arr(1, j)
d(s) = arr(i, j)
Next
Next
brr = [a5].CurrentRegion
For i = 2 To UBound(brr)
s = Split(brr(i, 1), "-")(0) & brr(i, 2)
If d.exists(s) Then brr(i, 7) = d(s)
brr(i, 8) = brr(i, 4) * brr(i, 7)
Next
[a5].CurrentRegion = brr
End Sub

复制代码

lsc900707 · 发表于 2018-7-19 20:52

附件供测试参考：

AA13714007 · 发表于 2018-7-21 14:57

jiangxiaoyun 发表于 2018-7-19 19:12
你用了Val函数，val（4175c）=4175

如果不用VAL ，连第一行4175的数都查不着。
I=2 J=9时就应该 EXIT FOR 了，结果J会继续增加数值，直至下标越界
不知道哪里出问题了

AA13714007 · 发表于 2018-7-21 14:58

lsc900707 发表于 2018-7-19 20:52
附件供测试参考：

先谢谢了，我只是初学，所以只是想弄明白哪里错了

jiangxiaoyun · 发表于 2018-7-21 16:10

AA13714007 发表于 2018-7-21 14:57
如果不用VAL ，连第一行4175的数都查不着。
I=2 J=9时就应该 EXIT FOR 了，结果J会继续增加数值，直至 ...

split分列出来的数组元素，是字符型数字，不用val转换为数值，当然匹配不了。
实际当中，你的条件是数值，将其转换为字符和split分列出来的元素对比就可以得出结果了。
此路不通，就换一个方向嘛。

jiangxiaoyun · 发表于 2018-7-21 16:22

Sub vfvf()
arr = Sheet9.[a1].CurrentRegion
For i = 6 To 10
      a = Split(Cells(i, 1), "-")(0)
      For j = 2 To UBound(arr)
         If a = CStr(arr(j, 1)) Then
            Cells(i, "g") = arr(j, Val(Cells(i, 2).Value) + 1)
         End If
      Next
Next
End Sub

仅供参考

jiangxiaoyun · 发表于 2018-7-21 16:24

最好在上面代码中的if结构中添加一句exit for代码。

AA13714007 · 发表于 2018-7-21 17:29

jiangxiaoyun 发表于 2018-7-21 16:24
最好在上面代码中的if结构中添加一句exit for代码。

谢谢，终于知道问题在哪了，我再自己研究下

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

[求助] 关于SPLIT拆分查找遇到的一个问题

最新热点 /1