Question

excel 如何替换单元格引用工作簿名称，例如sheet1中有单元格=sheet2!B2，如何用VB全部替换为=sheet3!B2。

excel中，sheet1中引用了其他工作簿（如sheet2）中的数据，例如：a1－a5单元格分别等于sheet2中的a1，a3，a5，a9，a10（不连续且无规律），我想在sheet1中的a6－a10中实现其值等于sheet3中的a1，a3，a5，a9，a10的值，因为数据量大，以上仅列举了5个数据的例子，有没有好的办法，不用一个一个的查找目标值。(也就是说把“=Sheet2!A1”自动替换成“=Sheet3!A1”)。只能用VB语言替换，不能用ctrl+find的替换功能。

Answer 1

For i = 1 To 5 '此处可改为任何需要的数
Sheets(1).Cells(5 + i, 1).Value = "=Sheet3!A" & i
Next i
如果是100个
For i = 1 To 100 '此处可改为任何需要的数
Sheets(1).Cells(100 + i, 1).Value = "=Sheet3!A" & i
Next i
注意二者区别，仅将5或100所在的位置替换即可

Answer 2

在SHEET1表A1输入公式：
=INDIRECT("Sheet"&CEILING(ROW()/5,1)+1&"!A"&CHOOSE(MOD(ROW(),5)+1,10,1,3,5,9))
将公式向下复制。
A11--A15引用SHEET4工作表的a1，a3，a5，a9，a10
以此类推。

Answer 3

excel查找替换功能可以替换公式里面的内容的。如果全部替换就用这个方法可行。

追问

不能用这个功能，要用代码实现。

Answer 4

用什么VBA，直接用indirect函数即可。

Answer 5

Sub mysub()
For Each cell In UsedRange
cell.Formula = Replace(cell.Formula, "Sheet2", "Sheet3")
Next
End Sub