VBA多条件跨工作簿逆向匹配数据

哎哟哥哥

3190496160 发表于 2023-2-5 12:48
呵呵，说明你也没认真看呗，不是弄反了，而是，你需要的是除以，而代码写成了乘以，自己修改两句代码呗， ...

非常感谢！

哎哟哥哥

shiruiqiang 发表于 2023-2-5 11:53
所以先满足2个条件，没有就满足一个条件

        If arr(x, 5) = "气泡膜" Then
            dic(arr(x, 1) & "|" & arr(x, 4)) = Val(arr(x, 8)) / 180
            dic(arr(x, 4)) = Val(arr(x, 8)) / 180
        ElseIf arr(x, 5) = "拉伸膜" Then
            dic(arr(x, 1) & "|" & arr(x, 4)) = Val(arr(x, 8)) / 110
            dic(arr(x, 4)) = Val(arr(x, 8)) / 110
        Else
            dic(arr(x, 1) & "|" & arr(x, 4)) = Val(arr(x, 8))
            dic(arr(x, 4)) = Val(arr(x, 8)) / 180
        End If


这里提示下标越界。

shiruiqiang

Else
            dic(arr(x, 1) & "|" & arr(x, 4)) = Val(arr(x, 8))
            dic(arr(x, 4)) = Val(arr(x, 8))
        End If

哎哟哥哥

3190496160 发表于 2023-2-5 12:26
Sub 匹配()
Application.ScreenUpdating = False
Dim ar As Variant

您好，如何根据物料号匹配最大值怎么改代码？与表名无关

3190496160

哎哟哥哥 发表于 2023-5-16 21:17
您好，如何根据物料号匹配最大值怎么改代码？与表名无关

具体说明需要u如何匹配，匹配出来的结果放到哪里