求助excel高手!

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

温馨提示:答案为网友推荐,仅供参考
第1个回答  2022-01-10
你好,很荣幸为你解答!
假设你要在K列输入总表中总表分表中的A列内容(行内容相同,只要按顺序对应即可)
K1输入“=[总表名称.xlsx]总表内分表名称!$A$1”
K2输入“=[总表名称.xlsx]总表内分表名称!$A$2”
K3输入“=[总表名称.xlsx]总表内分表名称!$A$3”
输入前三项后,全选前三项,点击右下角不放,一直下拉,即可链接。
如果担心后续乱码,可以链接完成后,复制粘贴后只保留值。
纯手打,希望答案对你有用!
第2个回答  2022-01-10
用VLOOKUP已经是简单而简陋的办法了,因为同姓名的人会导致数据信息出错啊!!
其实你只要操作一个汇总表就可以了,只要用自动筛选或者“高级筛选”功能就可以实现分表信息的获取了,而且修改操作也只要管一个表即可,否则会导致2个表的信息不一致的情况!!
相似回答