sheet1-是一个全公司员工家庭住址总表;后面很多sheet-是按照员工所在不同城市公司区分的表现在想问:用什么办法可以把前面总表的每个员工的家庭住址,直接链到后面每个分表里去。用vlookup一个个v,太麻烦了,请问大神们有无快一点的办法
用VBA可以实现,代码如下:循环员工家庭所在地汇总表,然后依据分公司自动建立分公司工作簿,然后提取数据到新的工作簿。
一、效果如下:
二、原始代码
Sub 人员分薄()
Dim EndRow As Integer
Dim UserRow As Integer
Dim SheetNameStr As String
On Error Resume Next
EndRow = Sheets("员工家庭所在地汇总表").Range("A:A").Find("").Row - 1
For i = 1 To EndRow
SheetNameStr = Sheets("员工家庭所在地汇总表").Range("A" & i).Value
If Sheets(SheetNameStr) Is Nothing Then
Sheets("员工家庭所在地汇总表").Select
Sheets.Add AFter:=Sheets("员工家庭所在地汇总表")
ActiveSheet.Name = SheetNameStr
UserRow = 1
Else
UserRow = Sheets(SheetNameStr).Range("A:A").Find("").Row
End If
Sheets(SheetNameStr).Range("A" & UserRow) = Sheets("员工家庭所在地汇总表").Range("B" & i)
Next
End Sub