条件,需要做拆分转成笔数带入

准提部林

中文自行改成簡體//

Sub TEST_A1()
Dim Arr, Brr, xD, i&, R&, C%, Rx&, Cx%, T
Range(Sheet2.[a1], Sheet2.UsedRange).Offset(19, 0).EntireRow.Delete
Set xD = CreateObject("scripting.dictionary")
Arr = Range(Sheet1.[h1], Sheet1.Cells(Rows.count, "e").End(3)(1, 0))
ReDim Brr(1 To UBound(Arr) * 3, 1 To 250)
For i = 2 To UBound(Arr)
    If Arr(i, 2) <> "包裝" Or Arr(i, 3) <> "產品異常" Then GoTo i01
    T = Arr(i, 1) & "": C = xD(T)
    If C = 0 Then Cx = Cx + 1: C = Cx + 1: xD(T) = C: Brr(1, C) = T
    For Each T In Split(Arr(i, 5), ",")
        R = xD(T & "")
        If R = 0 Then Rx = Rx + 1: R = Rx + 1: xD(T & "") = R: Brr(R, 1) = T
        Brr(R, C) = Brr(R, C) + 1
    Next T
i01: Next i
If Rx * Cx > 0 Then Sheet2.[a20].Resize(Rx + 1, Cx + 1) = Brr
End Sub

cmo9020

山菊花 发表于 2023-1-21 20:16
增加一个条件：
                If Arr(i, 2) = "包装" And Arr(i, 3) = "产品异常" Then

谢谢菊花导师指点,知道怎么使用了,谢谢

cmo9020

山菊花 发表于 2023-1-21 20:16
增加一个条件：
                If Arr(i, 2) = "包装" And Arr(i, 3) = "产品异常" Then

TEST.rar (31.52 KB, 下载次数: 4)

2023-1-22 22:43 上传

点击文件名下载附件

在多请教菊花导师您一下
有办法只搜寻指定的周数吗？
就是原本是依据C3、D3、E3、F3、G3、i3、J3周数下去做查询
想让它变成就算只输入C3周数,或C3+D3+E3
它也能显示

像现在只输入C3、D3、E3、F3的周数
它就会出现数组索引超出范围
单独输入c3的周数去执行,也会出现数组索引超出范围

山菊花

请测试。

cmo9020

山菊花 发表于 2023-1-23 09:33
请测试。

谢谢菊花导师您的帮助
问题己完全改善解决~~

新年快乐,祝您鸿图大展、年年高升