来自 http://zhidao.baidu.com/question/1830466254970747380.html?#replyask-1815416228

跨不同的工作表（1000个），复制同一个部位的数据，是否有拖动或者复制公式？？？

例如：I='G:\2014应收账款统计表\明细表\[KH001397.xls]开票明细'!$Q$29

         J='G:\2014应收账款统计表\明细表\[KH001397.xls]付款明细'!$Q$30

下一个：

          I='G:\2014应收账款统计表\明细表\[KH001398.xls]开票明细'!$Q$29

         J='G:\2014应收账款统计表\明细表\[KH001398.xls]付款明细'!$Q$30

现在设置每次都要改工作KH001397.xls，有1000多个啊 ，求高手帮忙

我所需要改变的工作表的名称同序列  B  里的内容相同，并且序列B 与对应的工作表进行了超链接。

fan4di    | 十六级

在I4、J4中分别输入或复制粘贴下列公式

=INDIRECT("'G:\2014应收账款统计表\明细表\["&B4&".xls]开票明细'!Q29")

=INDIRECT("'G:\2014应收账款统计表\明细表\["&B4&".xls]付款明细'!Q30")

选中I4:J4,下拉填充

代码实现硬链接如下：

Sub Updatelinks()

 For Each Row In ActiveSheet.UsedRange.Rows

   ActiveSheet.Cells(Row.Row, 9).Formula = "='G:\2014应收账款统计表\明细表\[" & Row.Cells(1, 2) & ".xls]开票明细'!$Q$29"

 Next

End Sub

硬链接的好处是，可以不用打开对应的文件，即可看到数据，而用INDIRECT函数实现的，如果没有打开对应的文件，会显示#REF!。

硬链接的时候，打开文件， Excel会提示你是否更新文件，你可以更新也可以不更新。