如何跨行将对应数值放入相应单元格

cicy1208

各位大侠，紧急求助！！！！
如何跨一行把工资VLOOKUP入相应的单元格内？
余慧军        产量       
余慧军        工资        1
余良        产量       
余良        工资        2
张柳楣        产量       
张柳楣        工资        3
吴慧芬        产量       
吴慧芬        工资        4
王秀娥        产量       
王秀娥        工资        5
陈姣枝        产量       
陈姣枝        工资        6



不知道为什么我无法上传附件

southernlang

试试这段代码，可以隔一行插入工资那一项。最好上传附件。
Sub cc()
Dim i As Integer
For i = 1 To Sheet1.Range("A65536").End(xlUp).Row
Sheet2.Cells(2 * i - 1, 1).Value = Sheet1.Cells(i, 1).Value
Sheet2.Cells(2 * i - 1, 2).Value = Sheet1.Cells(i, 2).Value
Sheet2.Cells(2 * i, 1).Value = Sheet1.Cells(i, 1).Value
Sheet2.Cells(2 * i, 2).Value = "工资"
Next
End Sub

duwei9981

先压缩再上传。
猜一个：=IF(B1="工资",vlookup(a1,工资表,2,),"")

[ 本帖最后由 duwei9981 于 2011-5-13 14:51 编辑 ]

cicy1208

OK，我知道啦，谢谢