替换公式中的工作表名称，但是带工作簿引用的不替换

LIUZHU · 发表于 2024-8-20 09:05

想请教一个替换公式中工作表引用的问题，看看如何处理，不能用程序替换：
有些公式是，“=Sheet1!A1“、="B5+Sheet1!A2"这样的引用方式，有些是“=[工作簿.xlsx]Sheet1!A1“，这样的方式
只想把“Sheet1“，变成“Sheet2“，但是带工作簿引用的不替换，即“[工作簿.xlsx]Sheet1“，这种不能替换，请教怎么操作？

huaichuan1 · 发表于 2024-8-20 09:56

本帖最后由 huaichuan1 于 2024-8-20 09:57 编辑

分批查找替换呗
1、“=[工作簿.xlsx]Sheet1!A1“ 先找这样的，查找[工作簿.xlsx]Sheet1! 替换成[工作簿.xlsx]Sheetaaa1!
2、“=Sheet1!A1“ 查找这样的直接替换成你想要的样子。
3、[工作簿.xlsx]Sheetaaa1! 在吧他还原就行了。

过程中数据会报错，不用担心，全部替换完了数据就正常了。切记先备份在替换。

LIUZHU · 发表于 2024-8-20 10:28

huaichuan1 发表于 2024-8-20 09:56
分批查找替换呗
1、“=[工作簿.xlsx]Sheet1!A1“ 先找这样的，查找[工作簿.xlsx]Sheet1! 替换成[工作簿.xl ...

先找一个过渡的替代者，再替换，再把过渡的替换回来，确实是一个不错的方案

huaichuan1 · 发表于 2024-8-20 11:55

LIUZHU 发表于 2024-8-20 10:28
先找一个过渡的替代者，再替换，再把过渡的替换回来，确实是一个不错的方案

这其实是个笨方法，我不会vba 不知道vba层面有没有好的解决方案，只是我这个方案比较简单易懂。

LIUZHU · 发表于 2024-8-20 14:12

huaichuan1 发表于 2024-8-20 11:55
这其实是个笨方法，我不会vba 不知道vba层面有没有好的解决方案，只是我这个方案比较简单易懂。

VBA有方法，而且，VBA可以用正则表达式匹配

Excel_muke · 发表于 2024-8-20 17:36

1.按ALT+F11进入VBA窗口

2.双击左边ThisWorkbook，输入：

<blockquote>Sub ReplaceSheetReferences()

复制代码

3.按ALT+Q,退出VBA窗口
4.按ALT+F8,运行VBA，更改成功

注：
Set ws = ThisWorkbook.Sheets("Sheet1") ' 中的"Sheet1"为指定工作表，可以更改
formulaText = Replace(formulaText, "Sheet1", "Sheet2") 这一段为要替换的值，可以更改

Excel_muke · 发表于 2024-8-20 18:45

Excel_muke 发表于 2024-8-20 17:36
1.按ALT+F11进入VBA窗口

2.双击左边ThisWorkbook，输入：

不知道为什么被吞了一部分代码

Sub ReplaceSheetReferences()
Dim ws As Worksheet
Dim cell As Range
Dim formulaText As String
' 指定要操作的工作表
Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你要操作的工作表
' 遍历工作表中的所有单元格
For Each cell In ws.UsedRange
If cell.HasFormula Then
formulaText = cell.Formula
' 如果公式中不包含外部工作簿引用，则替换
If InStr(1, formulaText, "[") = 0 Then
formulaText = Replace(formulaText, "Sheet1", "Sheet2")
cell.Formula = formulaText
End If
End If
Next cell
MsgBox "替换完成", vbInformation
End Sub

复制代码

minchar · 发表于 2024-8-20 21:39

直接两次替换
=Sheet1替换成=Sheet2;+Sheet1替换成+Sheet2

		自动登录	找回密码
密码			免费注册

[求助] 替换公式中的工作表名称，但是带工作簿引用的不替换