按部门跨表同时按名称排序提取数据

icenotcool

各位老师好，我有个工作簿，我模拟了“部门资产盘点表”表，位置是固定的，根据"资产数据库"使用部门"来提取到“部门资产盘点表”表对应的汇集，求提取模块，先谢谢各位老师，已经上传附件，需要修改代码如下：

Qs18

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Then
   
3. Dim arr, i
   
4. arr = Sheet3.Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6. s = Sheet1.[c2].Value
   
7. For i = 2 To UBound(arr)
   
8.     If s = arr(i, 10) Then
   
9.         m = m + 1
   
10.         For c = 2 To UBound(arr, 2)
    
11.             brr(m, c) = arr(i, c)
    
12.         Next
    
13.         brr(m, 1) = m
    
14.     End If
    
15. Next
    
16. Sheet1.Range("a4").Resize(10000, 20) = ""
    
17. Sheet1.Range("a4").Resize(m, UBound(arr, 2)) = brr
    
18. End If
    
19. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

查询。。。

Qs18

试试..........

Qs18

试试..........

icenotcool

Qs18 发表于 2024-10-6 12:33
试试..........

非常感谢老师，这个需求我可以拓展一下吗？就是同时提取到两个不同表，
设计思路：
A模块：想从C2单元格变化提取“资产数据库”，对应数据到“部门资产盘点表”里面，按“资产名称”排序提炼出来
B模块：想从C2单元格变化提取“资产数据库”，对应数据到“更正底稿”里面，按“资产名称”排序提炼出来

longwin

附件供参考。。。。

Qs18

icenotcool 发表于 2024-10-6 13:14
非常感谢老师，这个需求我可以拓展一下吗？就是同时提取到两个不同表，
设计思路：
A模块：想从C2单元 ...

可以，您可以把字典k的数据，换一个表就可以了，您自己的业务肯定您自己会轻车熟路。

icenotcool

Qs18老师，我用你的修改了一下表名，但是没有反应，可以帮忙看看怎么回事吗？

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Sheet1.[c2] Then
Dim arr, i
arr = Sheet3.Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
s = Sheet1.[c2].Value
For i = 2 To UBound(arr)
    If s = arr(i, 10) Then
        m = m + 1
        For c = 2 To UBound(arr, 2)
            brr(m, c) = arr(i, c)
        Next
        brr(m, 1) = m
    End If
Next
Sheet4.Range("a2").Resize(10000, 20) = ""
Sheet4.Range("a2").Resize(m, UBound(arr, 2)) = brr
End If
End Sub

End Sub