请教高手如何提取SHEET2内相同商品编号的审核信息--如表TABLE 1

rene_z · 发表于 2012-5-19 10:12

参见附件TABLE1

sheet 1：包括生产信息
sheet 2:包括客户审核关键信息，而且SHEET2 的“商品编号和商品名称"都包括在SHEET 1中

需要帮助：

我想把SHEET 2中的审核结果引用到， sheet1 中对应的商品编号下，例如: SHEET 3，请高手指点一下，谢谢。

Table 1.zip (14.35 KB, 下载次数: 24)

sscylh · 发表于 2012-5-19 14:10

=VLOOKUP(sheet1!B144,sheet2!C:E,3,0)

tea_nine · 发表于 2012-5-19 14:44

没看懂你需要什么，你的附件中SHEET2与SHEET3貌似没什么区别

yiyiyicz · 发表于 2012-5-21 17:10

Sub t()
Dim d As New Dictionary, t
Dim Arr, Brr
Arr = Sheet1.Range("b2:b" & Sheet1.[b65536].End(3).Row)
Brr = Sheet2.Range("c2:e" & Sheet2.[d65536].End(3).Row)
For i = 1 To UBound(Arr)
d(Arr(i, 1)) = ""
Next
For i = 1 To UBound(Brr)
If d.Exists(Brr(i, 1)) Then
d(Brr(i, 1)) = d(Brr(i, 1)) + Brr(i, 3)
End If
Next
t = d.Items
Sheet1.Range("d2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(t)
End Sub

复制代码

yiyiyicz · 发表于 2012-5-21 17:11

测试，请看附件

rene_z · 发表于 2012-5-21 18:50

yiyiyicz 发表于 2012-5-21 17:11
测试，请看附件

太感谢了，你的宏做的很好，可惜我不会写宏。

rene_z · 发表于 2012-5-21 18:51

sscylh 发表于 2012-5-19 14:10
=VLOOKUP(sheet1!B144,sheet2!C:E,3,0)

太感谢了，我本事不大，只会套用你这种公式。

		自动登录	找回密码
密码			免费注册