[已解决]数据查找

EXCEL6687

以工作表1中A1：A100的数据为条件，在工作表2中A1：A200查找，并将查找结果对应的B列数据写入工作表1B1：B100中，找不到时为空。

最佳答案

月排行榜 / 总排行榜

CheryBTL

2013-10-12 18:19

1. Sub ep()
   
2.     Dim d1 As Object, d2 As Object
   
3.     Dim i As Integer
   
4.     Dim ar(), re()
   
5.     Dim sht As Worksheet
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     For Each sht In Worksheets
   
8.         If sht.Name <> "销量汇总" Then
   
9.             If sht.Name = "门市1" Then
   
10.                 m = 1
    
11.             Else
    
12.                 m = 2
    
13.             End If
    
14.             ar = sht.Range("A1").CurrentRegion.Value
    
15.             For i = 2 To UBound(ar)
    
16.                 If d.exists(ar(i, 1)) Then
    
17.                     re(m, d(ar(i, 1))) = re(m, d(ar(i, 1))) + ar(i, 2)
    
18.                 Else
    
19.                     k = k + 1
    
20.                     d(ar(i, 1)) = k
    
21.                     ReDim Preserve re(1 To 2, 1 To k)
    
22.                      re(m, k) = ar(i, 2)
    
23.                 End If
    
24.             Next i
    
25.         End If
    
26.     Next
    
27.     Sheets("销量汇总").[A2].Resize(d.Count) = Application.Transpose(d.keys)
    
28.     Sheets("销量汇总").[b2].Resize(d.Count, 2) = Application.Transpose(re)
    
29. End Sub

复制代码

销量汇总.rar (11.7 KB, 下载次数: 6)

2013-10-12 18:19 上传

点击文件名下载附件

跳转到最佳答案楼层

我心飞翔410

貌似好像可以用函数实现但是没附件  vlookup  iserror

liyh67

=IF(ISNA(MATCH(A1,SHEET2!A$1:A$200,)),"",VLOOKUP(A1,SHEET2!A$1:A$200,2,))

EXCEL6687

附件

EXCEL6687

liyh67 发表于 2013-10-12 17:34
=IF(ISNA(MATCH(A1,SHEET2!A$1:A$200,)),"",VLOOKUP(A1,SHEET2!A$1:A$200,2,))

这个公式是什么意思？能不能使用SQL语句来处理，或者循环语句？

云影

1. select a.名称,a.销量 as 门市1,b.销量 as 门市2 from [门市1$] a left outer join [门市2$] b on a.名称=b.名称

复制代码

CheryBTL

1. Sub ep()
   
2.     Dim d1 As Object, d2 As Object
   
3.     Dim i As Integer
   
4.     Dim ar(), re()
   
5.     Dim sht As Worksheet
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     For Each sht In Worksheets
   
8.         If sht.Name <> "销量汇总" Then
   
9.             If sht.Name = "门市1" Then
   
10.                 m = 1
    
11.             Else
    
12.                 m = 2
    
13.             End If
    
14.             ar = sht.Range("A1").CurrentRegion.Value
    
15.             For i = 2 To UBound(ar)
    
16.                 If d.exists(ar(i, 1)) Then
    
17.                     re(m, d(ar(i, 1))) = re(m, d(ar(i, 1))) + ar(i, 2)
    
18.                 Else
    
19.                     k = k + 1
    
20.                     d(ar(i, 1)) = k
    
21.                     ReDim Preserve re(1 To 2, 1 To k)
    
22.                      re(m, k) = ar(i, 2)
    
23.                 End If
    
24.             Next i
    
25.         End If
    
26.     Next
    
27.     Sheets("销量汇总").[A2].Resize(d.Count) = Application.Transpose(d.keys)
    
28.     Sheets("销量汇总").[b2].Resize(d.Count, 2) = Application.Transpose(re)
    
29. End Sub

复制代码

销量汇总.rar (11.7 KB, 下载次数: 6)

2013-10-12 18:19 上传

点击文件名下载附件

csb-js

=IF(ISNA(MATCH(A2,门市2!A$1:A$200,)),"",VLOOKUP(A2,门市2!A:B,2,))
下拉

EXCEL6687

大家的解答太好了，能不能把这几个答案都设为最佳？