求助excel高手! 20
用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
假设你要在K列输入总表中总表分表中的A列内容(行内容相同,只要按顺序对应即可)
K1输入“=[总表名称.xlsx]总表内分表名称!$A$1”
K2输入“=[总表名称.xlsx]总表内分表名称!$A$2”
K3输入“=[总表名称.xlsx]总表内分表名称!$A$3”
输入前三项后,全选前三项,点击右下角不放,一直下拉,即可链接。
如果担心后续乱码,可以链接完成后,复制粘贴后只保留值。
纯手打,希望答案对你有用!
其实你只要操作一个汇总表就可以了,只要用自动筛选或者“高级筛选”功能就可以实现分表信息的获取了,而且修改操作也只要管一个表即可,否则会导致2个表的信息不一致的情况!!