[已解决]宏运行错误，求大侠指导

sianfoin

查询表内，无法按指定条件进行查询和归类，敬请大侠帮忙修改和指正。

最佳答案

月排行榜 / 总排行榜

哥儿-

2024-3-6 16:07

Sub 查询()
    Dim arr, brr, i%, j%, n%, m%, temp$, num%
    arr = Sheets("统计表").Range("A1").CurrentRegion.Value
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 3 To UBound(arr)
        temp = arr(i, UBound(arr, 2))
        For n = 1 To 7
            If n <> 4 Then
                temp = temp & "\" & arr(i, n)
            End If
        Next n
        For m = 1 To 7
            If InStr(temp, Sheets("查询表").Cells(2, m)) < 1 Then Exit For
        Next m
        If m > 7 Then
            num = num + 1
            For j = 1 To UBound(arr, 2)
                brr(num, j) = arr(i, j)
            Next j
        End If
    Next i
    Range("A6").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
Sub 清除查询()
    Range("A6").CurrentRegion.Resize(1000).Offset(1).ClearContents
End Sub

跳转到最佳答案楼层

哥儿-

没代码就算了，好歹模拟点数据在上面啊。
坏机种类和分类指代那一个？

哥儿-

没代码就算了，好歹模拟点数据在上面啊。
坏机种类和分类指代那一个？

sianfoin

统计表里面有数据呢，帮忙看看，不胜感谢！

哥儿-

sianfoin 发表于 2024-3-6 15:05
统计表里面有数据呢，帮忙看看，不胜感谢！

我知道有数据，我的问题是，查询表里面的坏机种类和坏机分类对应的是统计表里面的哪个？？？

哥儿-

Sub 查询()
    Dim arr, brr, i%, j%, n%, m%, temp$, num%
    arr = Sheets("统计表").Range("A1").CurrentRegion.Value
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 3 To UBound(arr)
        temp = arr(i, UBound(arr, 2))
        For n = 1 To 7
            If n <> 4 Then
                temp = temp & "\" & arr(i, n)
            End If
        Next n
        For m = 1 To 7
            If InStr(temp, Sheets("查询表").Cells(2, m)) < 1 Then Exit For
        Next m
        If m > 7 Then
            num = num + 1
            For j = 1 To UBound(arr, 2)
                brr(num, j) = arr(i, j)
            Next j
        End If
    Next i
    Range("A6").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
Sub 清除查询()
    Range("A6").CurrentRegion.Resize(1000).Offset(1).ClearContents
End Sub

sianfoin

首先非常感谢你的解答。但是复制上去还是无法运行呢。

哥儿-

所以我让你模拟点数据上去。顺便说明你具体要干嘛，想要得到什么样的结果？
而不是，无法运行。按我自己的理解，代码是没有问题的！！！

sianfoin

谢谢！能不能把文件压缩后传上来，我对比一下看是哪里出了问题。

zjdh

2024生产线不良状况统计表.rar (37.78 KB, 下载次数: 1)

2024-3-7 16:15 上传

点击文件名下载附件
表格稍作修改