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

liangmutou01

把程序文件发给你。

我爱用wps

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

这个操作厉害，第一次见，原来Excel还能玩成这样。
不过可能是我表述不清楚，简单来说可不可以在B表设定好公式，然后在A表填好数据之后，B表那边也会生成一样的数据(✪ω✪)
就是引用表格数据，但是30个表格用鼠标一个个引用太麻烦了o(╥﹏╥)o

我爱用wps

liangmutou01 发表于 2019-8-4 22:05
Sub zysj()
  Application.ScreenUpdating = False
  For Each b In Sheets

谢谢老哥
不过可能是我表述不清楚，简单来说可不可以在B表设定好公式，然后在A表填好数据之后，B表那边也会生成一样的数据(✪ω✪)
就是引用表格数据，但是30个表格用鼠标一个个引用太麻烦了o(╥﹏╥)o

moonlit123

表A完全不用管。
直接在表B写公式就是了。

人工操作其实也不复杂。
VBA只是更快捷

1. Sub 表B公式()
   
2. For sh = 1 To ThisWorkbook.Sheets.Count
   
3.        For i = 2 To 6
   
4.         ThisWorkbook.Sheets(sh).Range("C" & i).Formula = "='[A.et]" & Sheets(sh).Name & "'!$C" & i + 1 & ""
   
5.        Next
   
6. Next
   
7. End Sub
   

复制代码

我爱用wps

moonlit123 发表于 2019-8-6 17:18
表A完全不用管。
直接在表B写公式就是了。

老哥，我想要人工操作能不能提供一下思路方向啊

moonlit123

我爱用wps 发表于 2019-8-27 14:32
老哥，我想要人工操作能不能提供一下思路方向啊

VBA操作方法：
手动打开表A.et。（保持打开状态，好像A.et后缀 excel无法打开，会出错。）
再打开表B.xls，按alt+F11，跳出vba窗口，
把14楼的代码，点击按钮：“复制代码”
粘贴到vba窗口右边空白处，F5运行
清空代码，关闭vba窗口，回去看下B.xls是否有数据和链接公式就行了。


人工操作方法：
公式：=INDIRECT("'[A.et]"&MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)&"'!"&"$C"&ROW(A2)+1)
0、打开表B.xls。在1表的C2单元格贴这个公式。向下填充到C6单元格。
1、把1表里的C列填充好公式后，再框选这些单元格复制一下。
2、把所有工作表“标签”全部选中（按着shift，点2表，再点31表），框选要填公式的地方，粘贴。

我爱用wps

moonlit123 发表于 2019-8-27 14:48
你想怎么人工操作？

手动打开表A.et。（保持打开状态，好像A.et后缀 excel无法打开，会出错。）

哈哈哈哈哈好的，谢谢。我去实践一下先把