论如何将两个独立工作簿之间的数据快速引用

我爱用wps

因工作需要，每次把A表格数据填好之后都需要将数据再复制到B表格。
这苦逼的操作实在是有亵渎于高生产力的Execl，无奈本人水平不高特来求助。(╥╯^╰╥)
难点在于，A、B都有30个表格格式相同的工作表，要如何快速的将A的30个工作簿引用到对应B工作簿的30个工作簿中。(￢_￢)瞄

我爱用wps

自顶，求解答

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1491725&mobile
你这个和上面这个日报表监控有点类似，就是查询汇总比较多。
如果拘泥于你的格式，恐怕是工作量有点大，如果，用结构化存储，把需要查询的指标分解一下，在需要的时候，用sql查出需要的指标，可能是工作量会减轻不少。

liangmutou01

上传一个附件，便于测试。

我爱用wps

liangmutou01 发表于 2019-8-4 08:57
上传一个附件，便于测试。

老哥，附件已上传。还请指点指点o(￣▽￣)ｄ

我爱用wps

zpy2 发表于 2019-8-3 20:03
http://club.excelhome.net/forum.php?mod=viewthread&tid=1491725&mobile
你这个和上面这个日报表监控有 ...

我看一下，我的没有他的那么复杂。
我就是不知道如何将A工作簿里的30工作表数据快速引用到对应B工作簿的30个表格里，只会一个个复制。
附件已上传，还请老哥抽空指点一下

zpy2

我爱用wps 发表于 2019-8-4 15:16
我看一下，我的没有他的那么复杂。
我就是不知道如何将A工作簿里的30工作表数据快速引用到对应B工作簿的 ...

http://club.excelhome.net/thread-1073526-1-1.html
格式的美观和效率提高有时候是一对矛盾，需要有所取舍。

lh123lh1234

好了，看下是不是这样，打开A表，第一页有个按钮，B表自动生成

HYHSLL

lh123lh1234 发表于 2019-8-4 17:02
好了，看下是不是这样，打开A表，第一页有个按钮，B表自动生成

谢谢分享经验 下载下来好好研究 感谢

liangmutou01

Sub zysj()
  Application.ScreenUpdating = False
  For Each b In Sheets
    If b.Name <> "1" Then _
      b.Range("c2:c6").Copy Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column).Offset(0, 1)
  Next b
  Application.ScreenUpdating = True
End Sub