[已解决]多个工作表的查询

danser

我的数据量很大，有5个工作表，每个工作表都有大约60000行，附件是经过删减的，太大上传不了，请教大家多个工作表的查询问题，谢谢

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-5-21 11:39

猜一个，是不是这个意思？

1. Sub aa()
   
2. For Each sht In Worksheets
   
3. If sht.Name <> "查询" Then
   
4. Row = sht.[a65536].End(3).Row
   
5. For Each Rng In sht.Range("c2:c" & Row)
   
6. If Rng = Sheets("查询").[a1].Value Then
   
7. n = n + 1
   
8. Sheets("查询").Cells(n + 1, 2) = Rng.Offset(, -2).Value
   
9. End If
   
10. Next
    
11. End If
    
12. Next
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

ligh1298

猜一个，是不是这个意思？

1. Sub aa()
   
2. For Each sht In Worksheets
   
3. If sht.Name <> "查询" Then
   
4. Row = sht.[a65536].End(3).Row
   
5. For Each Rng In sht.Range("c2:c" & Row)
   
6. If Rng = Sheets("查询").[a1].Value Then
   
7. n = n + 1
   
8. Sheets("查询").Cells(n + 1, 2) = Rng.Offset(, -2).Value
   
9. End If
   
10. Next
    
11. End If
    
12. Next
    
13. End Sub
    

复制代码