想自动生成数据

cn6181

请教各位大侠

在类型后单元格中输入型号，表1是中StepX后的数据通过查找表二的数据自动生成。

请问如何能实现呢？

	类型
Step2
Step4
Step3

类型	Step1	Step2	Step3	Step4	Step5
A	fafa	dge	geg	ass	ee
B	dd	aa	dda	e	dd
C	fafa	ee	aer	f	dd
D	faee	fa	fa	ass	a
X
X
X

xugnahz

附件打不开，根据描述用Vlookup 应该可以解决

cn6181

附件已经加上了，你受累给看看，VlookUP只用过针对某一列的。其他的还真没有用过！

zhaogang1960

短信收到，请测试

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) <> "C2" Then Exit Sub
   
3.     If Target = "" Then Exit Sub
   
4.     Dim arr, brr(), d As Object, c As Range, i&, j&
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     arr = Range("a3:a" & Range("a65536").End(xlUp).Row)
   
7.     For i = 1 To UBound(arr)
   
8.         d(arr(i, 1)) = i
   
9.     Next
   
10.     ReDim brr(1 To i - 1, 1 To 1)
    
11.     With Sheets("表2")
    
12.         arr = .Range("A1").CurrentRegion
    
13.         Set c = .Range("a:a").Find(Target, , , 1, , , True)
    
14.         If Not c Is Nothing Then
    
15.             i = c.Row
    
16.             For j = 2 To UBound(arr, 2)
    
17.                 If d.Exists(arr(1, j)) Then brr(d(arr(1, j)), 1) = arr(i, j)
    
18.             Next
    
19.         End If
    
20.     End With
    
21.     [c3].Resize(d.Count) = brr
    
22. End Sub
    
23. 
    

复制代码

zhaogang1960

请看附件
Book1.rar (9.4 KB, 下载次数: 28)

2012-9-15 23:58 上传

点击文件名下载附件

cn6181

zhaogang1960 发表于 2012-9-15 23:57
短信收到，请测试

谢谢大哥帮忙！

cn6181

赵大哥，根据你给的宏，我自己尝试改一下，用到生产中，可是怎么不行呢？
http://club.excelhome.net/thread-921771-1-1.html

franky豆

我也好希望能做一个生产 计划的表，一点头绪都没有。很头痛

shuyee

可以使用透视表实现.如果列数多,可以使用多源,来得更简单.