免费解决问题

楼主还在么，可以留言么

我有一个问题:车间有10个班组，每个班组有30多人，车间每个人的工号都是唯一的，但是有几个重名的职工各分布在不同班组，车间人员库包含班组、工号和姓名，现导出一个表里面有两列分别是班组和姓名(工号列为空），如何编写VBA代码，将人员库的对应填入导出的表格工号列里?

楼上的问题可以用班组+姓名=>工号建立字典，假设《人员库》和《导出》两个工作表的列均为A班组、B姓名、C工号，需要的代码如下：
Sub 宏1()
Dim arr, i&, db
Set db=CreateObject("Scripting.Dictionary")
arr=Sheets("人员库").UsedRange
For i=2 To UBound(arr)
db(Trim(arr(i,1)) & Trim(arr(i,2))) = Trim(arr(i,3))
Next i
arr=Sheets("导出").UsedRange
For i=2 To UBound(arr)
Sheets("导出").Cells(i,3) = db(Trim(arr(i,1)) & Trim(arr(i,2)))
Next i
MsgBox "Ok"
End Sub