要把汇总的表格的信息填到每个分表中 带附件 求助！！麻烦各位大师了！

大饼妹

比如，一个工作簿有n个工作表，每一个工作表中格式、内容基本一样，只是人名和代码差异，每一个表代表一个店面，有一个总表，里面对应的每个分表的人名和代码，我想把总表的人名和代码分别复制粘贴到分表去，按照不知该怎么操作？有没有什么公式？ 从汇总到分表.rar (6.01 KB, 下载次数: 14)

2014-3-25 17:41 上传

点击文件名下载附件

拜托了各位
还有上一张求助帖 也麻烦各位大师 不然月底做工资就只能file:///C:\Documents and Settings\Administrator\Application Data\Tencent\QQPinyin\Face\ImageCache\10.gif5555

魂断蓝桥

启用宏，点击按钮就行了。

汇总表到分表.rar (15.48 KB, 下载次数: 19)

2014-3-26 09:40 上传

点击文件名下载附件

大饼妹

魂断蓝桥 发表于 2014-3-26 09:40
启用宏，点击按钮就行了。

感谢大师！但是可以把vba的写法 发给我吗？因为我实际的工资表很多
如果我把汇总表粘贴到分表的最前面
是不是会好操作一点呢？
感谢！

大饼妹

魂断蓝桥 发表于 2014-3-26 09:40
启用宏，点击按钮就行了。

大师拜托 呜呜 帮我看看 我把vba应用到我实际的工作表中 但是结果出不来~

魂断蓝桥

大饼妹 发表于 2014-3-26 09:45
感谢大师！但是可以把vba的写法 发给我吗？因为我实际的工资表很多
如果我把汇总表粘贴到分表的最前面
...

无所谓，代码就在分表模块里，自己点开就看到了。

Sub 查询()
Dim cnn As Object
Dim Sql As String
Dim sh As Worksheet, i As Byte
Set cnn = CreateObject("ADODB.CONNECTION")
Application.ScreenUpdating = False
cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & ThisWorkbook.Path & "\人员信息汇总表.xls"
For Each sh In Sheets
    Sql = "select 员工代码,员工名称 from [sheet1$] where 部门名称='" & sh.[b6] & "'"
    sh.[d6:e19].ClearContents
    sh.[d6].CopyFromRecordset cnn.Execute(Sql)
Next
cnn.Close: Set cnn = Nothing
MsgBox "OK"
Application.ScreenUpdating = True
End Sub

大饼妹

魂断蓝桥 发表于 2014-3-26 10:47
无所谓，代码就在分表模块里，自己点开就看到了。

Sub 查询()

搞定了！！！太感谢了！谢谢谢谢！  

大饼妹

魂断蓝桥 发表于 2014-3-26 10:47
无所谓，代码就在分表模块里，自己点开就看到了。

Sub 查询()

大师 拜托 我再问最后一个问题 如果我要用别的表格进行引用 直接修改 "\人员信息汇总表.xls"里面的文字部分 总是会出错呢
可以怎么修改吗？  

joycelua

同不会，帮你顶下

魂断蓝桥

大饼妹 发表于 2014-3-28 17:50
大师 拜托 我再问最后一个问题 如果我要用别的表格进行引用 直接修改 "\人员信息汇总表.xls"里面的文字部 ...

可以的，文件名改过后，注意放在同一个文件夹内。

大饼妹

魂断蓝桥 发表于 2014-3-31 10:34
可以的，文件名改过后，注意放在同一个文件夹内。

技能 get√！谢谢