[求助] 如何将表2中符合条件的全部数据筛选至表1中。

jnjsh

表2是汇总表，我要求：1、在表1的c1栏中输入客户编号就可以自动将表2里所筛选的相关数据显示到表1里。
2、表1里的c1输入编号后，在C4栏里显示中文的客户名。（购货单位名称可以在表3中列表）
      请高手帮忙指教。谢谢！

皇帝的wifi

楼主试试看，所有东西根据c1单元格变化而变化，给我点个赞吧！

jnjsh

皇帝的wifi 发表于 2021-6-12 22:10
楼主试试看，所有东西根据c1单元格变化而变化，给我点个赞吧！

老师，会不会是您上传有误，我下载的内容没有变化，拼音转中文是可以了的，但下面表格里的内容没有变化。

皇帝的wifi

jnjsh 发表于 2021-6-15 08:48
老师，会不会是您上传有误，我下载的内容没有变化，拼音转中文是可以了的，但下面表格里的内容没有变化。 ...

启用开发工具，启用宏，我编的没有问题

jnjsh

皇帝的wifi 发表于 2021-6-17 23:38
启用开发工具，启用宏，我编的没有问题

听老师一说就明白了，我开始是用WPS。后来改用Microsoft就很好用了、非常感谢！！

hariruya

珠玉在前，我也写一个

1. Sub test()
   
2. 
   
3. Dim arr, brr(), crr, fac$, edr&, i&, j&, k&
   
4. arr = Worksheets(2).Range("A1").CurrentRegion
   
5. crr = Worksheets(3).Range("A1").CurrentRegion
   
6. fac = UCase(Worksheets(1).Range("C1").Value)
   
7. edr = Range("A4").End(xlDown).Row
   
8. 
   
9. '''''设置C1下拉框''''''''''''''''''
   
10. With [C1].Validation
    
11.     .Delete
    
12.     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
13.     xlBetween, Formula1:="=表3!$A$2:$A$99"
    
14. End With
    
15. 
    
16. If edr > 8 Then Range("A9:J" & edr + 1).Clear
    
17. 
    
18. '''匹配''''
    
19. For i = 1 To UBound(crr)
    
20.     If fac = crr(i, 1) Then Worksheets(1).Range("C4").Value = crr(i, 2)
    
21. Next i
    
22. 
    
23. ''''数据导入'''''''''''
    
24. For i = 2 To UBound(arr)
    
25.     If arr(i, 10) = fac Then
    
26.         ReDim Preserve brr(1 To 10, 1 To i)
    
27.         k = k + 1
    
28.         For j = 1 To 9
    
29.             brr(1, k) = k
    
30.             brr(j + 1, k) = arr(i, j)
    
31.         Next j
    
32.     Else
    
33.     End If
    
34. Next i
    
35. 
    
36. Worksheets(1).Range("A9").Resize(UBound(brr, 2), 10) = Application.Transpose(brr)
    
37. 
    
38. 
    
39. '''''格式调整'''''
    
40. edr = Range("A4").End(xlDown).Row
    
41. Range("A8:J" & edr + 1).Borders.LineStyle = 1
    
42. Range("A" & edr + 1 & ":B" & edr + 1).Merge
    
43. With Range("A" & edr + 1)
    
44.     .Value = "合计"
    
45.     .HorizontalAlignment = xlCenter
    
46. End With
    
47. Range("G" & edr + 1) = "=sum(G9:G" & edr & ")"
    
48. Range("H" & edr + 1) = "=sum(H9:H" & edr & ")"
    
49. Range("J" & edr + 1) = "=sum(J9:J" & edr & ")"
    
50. 
    
51. 
    
52. End Sub
    
53. 
    

复制代码

jnjsh

皇帝的wifi 发表于 2021-6-17 23:38
启用开发工具，启用宏，我编的没有问题

老师，我表格要求有所变化，想发给您帮我重新再写下编程，有空吗？我怎么 才能发给您？能给我邮箱地址吗？我发你邮箱？

jnjsh

hariruya 发表于 2021-6-23 12:59
珠玉在前，我也写一个

老师，我表格要求有所变化，想发给您帮我重新再写下编程，有空吗？我怎么 才能发给您？能给我邮箱地址吗？我发你邮箱？

jnjsh

主要是筛选、引用，要求写在表里，请高手帮忙。谢谢！

未来小师

楼主，试试函数公式呗。

1. 
   
2. {=INDEX(表2!$A$2:$J$2359,SMALL(IF($C$1=表2!$J$2:$J$2359,ROW(表2!$J$2:$J$2359),""),ROW(1:1)),COLUMN(A:A))}
   

复制代码

提示：数组公式，三键回车（Ctrl+shift+enter）。第一个单元格写好公式后，即可向右填充，向下填充。