[已解决]VLOOKUP函数的批量查找以及数据依次输出

yuxiazhiji

原始表格中有31组数据，每组261个，需要将：原始表格-（动液面）列中的非0数据在对应井中依次罗列出来。如M19-6非0数据有两个：723,722；需在表格中按顺序罗列出来；希望能帮忙解决下，谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2016-1-5 16:01

1. Sub tt()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 1)
   
6.         If arr(i, 14) > 0 Then d(x) = d(x) & arr(i, 14) & ","
   
7.     Next
   
8.     Application.ScreenUpdating = False
   
9.     With Sheet2
   
10.         .[b4].Resize(1000, 100).ClearContents
    
11.         arr = .Range("a1:a" & .[a65536].End(3).Row)
    
12.         For i = 2 To UBound(arr)
    
13.             x = arr(i, 1)
    
14.             If d.exists(x) Then
    
15.                 xrr = Split(d(x), ",")
    
16.                 .Cells(i, 2).Resize(1, UBound(xrr)) = xrr
    
17.             End If
    
18.         Next
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

跳转到最佳答案楼层

baksy

附件

excel助手

=IFERROR(INDEX(原始表格!$N$1:$N$10000,SMALL(IF((原始表格!$A$1:$A$10000=数据输出!$A4)*(原始表格!$N$1:$N$10000>0),ROW($1:$10000)),COLUMN(A$1))),"")

grf1973

1. Sub tt()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 1)
   
6.         If arr(i, 14) > 0 Then d(x) = d(x) & arr(i, 14) & ","
   
7.     Next
   
8.     Application.ScreenUpdating = False
   
9.     With Sheet2
   
10.         .[b4].Resize(1000, 100).ClearContents
    
11.         arr = .Range("a1:a" & .[a65536].End(3).Row)
    
12.         For i = 2 To UBound(arr)
    
13.             x = arr(i, 1)
    
14.             If d.exists(x) Then
    
15.                 xrr = Split(d(x), ",")
    
16.                 .Cells(i, 2).Resize(1, UBound(xrr)) = xrr
    
17.             End If
    
18.         Next
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

yuxiazhiji

excel助手 发表于 2016-1-5 15:52
=IFERROR(INDEX(原始表格!$N$1:$N$10000,SMALL(IF((原始表格!$A$1:$A$10000=数据输出!$A4)*(原始表格!$N$1: ...

如果要想要在显示液面数据的同时显示对应的日期应该怎么用公式呢？

excel助手

yuxiazhiji 发表于 2016-1-5 18:54
如果要想要在显示液面数据的同时显示对应的日期应该怎么用公式呢？

显示日期的话最好用数据透视表