下标问题

cysczhumh

把表1符合表2条件（表1中A列和表2中A列）的价格（或整行）复制到表3中

taller

沈默00

=FILTER(Sheet1!B2:B11,(COUNTIF(Sheet2!A2:A16,Sheet1!A2:A11)>0))

cysczhumh

taller 发表于 2024-9-27 02:22

谢谢，程序能运行。结果不全，序号是数字的数没有显示出来。

taller

cysczhumh 发表于 2024-9-27 12:28
谢谢，程序能运行。结果不全，序号是数字的数没有显示出来。

例如哪个数据没有显示出来

cysczhumh

taller 发表于 2024-9-27 12:50
例如哪个数据没有显示出来

表1中序号为1,3,4的行

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.UsedRange.Value
   
5. For i = 2 To UBound(arr)
   
6.     s = arr(i, 1)
   
7.     If s <> Empty Then
   
8.         If Not dic.exists(s) Then
   
9.             dic(s) = arr(i, 2)
   
10.         End If
    
11.     End If
    
12. Next
    
13. k = dic.items
    
14. brr = Sheet2.Range("a1").CurrentRegion.Value
    
15. ReDim crr(1 To UBound(brr), 1 To 2)
    
16. For i = 2 To UBound(brr)
    
17.     s = brr(i, 1)
    
18.     If dic.exists(s) Then
    
19.         m = m + 1
    
20.         crr(m, 1) = s: crr(m, 2) = dic(s)
    
21.    
    
22.     End If
    
23. Next
    
24. Sheet3.Range("a2").Resize(m, 2) = crr
    
25. Set dic = Nothing
    
26. End Sub

复制代码

Qs18

试试........

Qs18

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

cysczhumh

沈默00 发表于 2024-9-27 07:44
=FILTER(Sheet1!B2:B11,(COUNTIF(Sheet2!A2:A16,Sheet1!A2:A11)>0))

条条大路通罗马，数据较多，需要一键处理。