帮忙修改一下代码

sampsonpon · 发表于 2024-5-16 20:59

如图，请帮忙修改一下代码，不知道哪里出问题了？

longwin · 发表于 2024-5-16 21:58

这句改一下试试
brr(m, n) = Application.WorksheetFunction.VLookup(.Cells(m + 1, "B").Value, Sheet2.Range("A:E"), 5, False)

longwin · 发表于 2024-5-16 22:02

本帖最后由 longwin 于 2024-5-16 22:55 编辑

brr(m, n) = Application.WorksheetFunction.VLookup(brr(m, 2), Sheet2.Range("A:E"), 5, False)

sampsonpon · 发表于 2024-5-16 22:31

longwin 发表于 2024-5-16 21:58
这句改一下试试
brr(m, n) = Application.WorksheetFunction.VLookup(.Cells(m + 1, "B").Value, Sheet2.R ...

不对！还是一样首次N列显示不出值

longwin · 发表于 2024-5-16 22:52

sampsonpon 发表于 2024-5-16 22:31
不对！还是一样首次N列显示不出值

这段代码看起来是把Q列的字符串split后写入了brr，然后Sheet1的B列从Sheet2中vlookup了一个对应值，有点错乱。
改成这样，那么就是把Q列的这些全部写入了brr，也从sheet2中look过来了对应值
brr(m, n) = Application.WorksheetFunction.VLookup(brr(m, 2), Sheet2.Range("A:E"), 5, False)

sampsonpon · 发表于 2024-5-17 08:44

longwin 发表于 2024-5-16 22:52
这段代码看起来是把Q列的字符串split后写入了brr，然后Sheet1的B列从Sheet2中vlookup了一个对应值，有点 ...

可以了！再帮我看下O列又该怎么写？谢谢！

longwin · 发表于 2024-5-17 09:26

sampsonpon 发表于 2024-5-17 08:44
可以了！再帮我看下O列又该怎么写？谢谢！

sampsonpon · 发表于 2024-5-17 11:21

本帖最后由 sampsonpon 于 2024-5-17 11:47 编辑

longwin 发表于 2024-5-17 09:26

可以了！非常感谢！

又发现了一个新问题：
上面图是转化前的原TXT数据，最后的结尾有时4行有时5行，还有时可能只有3行，所以下面图代码这里-5固定是不对的，这样最终转换后的数据就会被截掉一至两条。这种情况有办法处理吗？

longwin · 发表于 2024-5-17 12:06

sampsonpon 发表于 2024-5-17 11:21
可以了！非常感谢！

又发现了一个新问题：

不用减，判断一下就好

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

[求助] 帮忙修改一下代码

评分

评分

评分