网易首页 > 网易号 > 正文 申请入驻

实用!Excel批量替换数据源路径

0
分享至

在编制月度的合并报表工作底稿时,每个月都需要在工作底稿中编辑链接并更改源,这样底稿中的数据才会更新到最新的期间,但是如果子公司数量较多,也就工作底稿中引用的外部工作簿很多时,这样更改源是非常耗时的,而且容易选错。

在碰到这种引用大量外部工作簿的表格文件需要更改源的情况时,我们还可以尝试另外两种更高效的方式。

批量替换(Ctrl+H)

这种方式适用于公式链接只需要一次替换的情形,如下图所示,只需要将「6月指标」替换为「7月指标」,就可以完成公式链接的替换了,使用时我们需要注意对比新旧表格所在的文件路径。

以下就是替换后的效果,需要注意的是替换之前建议先备份复制下文件。

Ctrl+H 只适用于单次替换的情况,但是实际情况中,如果遇到被引用表格的文件夹位置、工作簿名称、工作表名称、工作簿格式等多处出现改变时,就需要用到VBA来实现批量更改源的需求了。

比如下图中,文件路径中需要替换的字符的有两处,一是需要将文件夹路径进行替换,二是工作簿名称也需要替换。

我们插入VBA代码后,同时将代码中红框的部分进行对应的修改,运行代码后就能实现需求了,如果你的表格中引用外部工作簿的单位格较多,那么程序运行的时间就会稍微长一点。

具体代码如下:

Sub BatchReplaceWorkbookPath()
' 使用前请先备份报表!
' 使用前请先备份报表!
' 使用前请先备份报表!

Dim ws As Worksheet, cell As Range
Dim oldrep1$, oldrep2$, oldrep3$, cf$, newrep1$, newrep2$, newrep3$

oldrep1 = "Excel批量修改源文件链接(替换多次)\6月指标" ' 被替换字符1
newrep1 = "7月指标" ' 替换后字符1
oldrep2 = "6月主要经济指标" ' 被替换字符2
newrep2 = "7月主要经济指标" ' 替换后字符2
oldrep3 = "" ' 被替换字符3
newrep3 = "" ' 替换后字符3

Application.DisplayAlerts = False ' 禁止显示警告框
For Each ws In ActiveWorkbook.Worksheets ' 循环处理工作簿的所有工作表
For Each cell In ws.UsedRange ' 遍历工作表中的所有单元格
cf = cell.Formula
If InStr(cf, oldrep1) > 0 Or InStr(cf, oldrep2) > 0 Or InStr(cf, oldrep3) > 0 Then ' 检查单元格中的公式链接是否包含需替换的字符
cell.Formula = Replace(cell.Formula, oldrep1, newrep1) ' 替换第1个字符
cell.Formula = Replace(cell.Formula, oldrep2, newrep2) ' 替换第2个字符
cell.Formula = Replace(cell.Formula, oldrep3, newrep3) ' 替换第3个字符
End If
Next cell
Next ws
Application.DisplayAlerts = True ' 恢复显示警告框
End Sub
AI的辅助作用

我在AI问答中也对上述需求进行了提问,我现在也习惯了将问题丢给AI,我再根据AI的回答进行修正,这次我同时测试了ChatGPT和文心一言的效果,发现基本是满足要求的。

下面是ChatGPT的效果:

下面是文心一言的效果:

先到这里~~

温馨提示:加入审友交流群/转载/投稿请联系:审家小编 shenjizhijia1。

特别声明:以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布,本平台仅提供信息存储服务。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.

相关推荐
热点推荐
多地停止申领!只因“国补”资金用完了,别急....

多地停止申领!只因“国补”资金用完了,别急....

电脑报
2025-06-04 18:08:52
只要缩小就一定不是肺癌?判断肺癌的一条铁律,早治疗早获益

只要缩小就一定不是肺癌?判断肺癌的一条铁律,早治疗早获益

呼吸科大夫胡洋
2025-06-06 07:15:44
一年一CT,十年进ICU?关于CT检查致癌的真相,我们不能再沉默了!

一年一CT,十年进ICU?关于CT检查致癌的真相,我们不能再沉默了!

读史
2025-04-26 06:58:44
杭州电梯巨头掌门人坠亡之谜:离世前三天还在谈“安全生产”

杭州电梯巨头掌门人坠亡之谜:离世前三天还在谈“安全生产”

趣味萌宠的日常
2025-06-06 04:45:04
演员贾冰变瘦后,发生了“惊喜的变化”!这个年龄段减肥性价比最高!

演员贾冰变瘦后,发生了“惊喜的变化”!这个年龄段减肥性价比最高!

人民日报健康客户端
2025-06-05 07:36:53
最新!中国购物中心10强:万达广场513家,吾悦第3,银泰第9!

最新!中国购物中心10强:万达广场513家,吾悦第3,银泰第9!

小鹏财经
2025-06-05 21:35:11
6月5日俄乌:俄罗斯的新红线来了

6月5日俄乌:俄罗斯的新红线来了

山河路口
2025-06-05 17:05:51
老婆跟男闺蜜去海边度假,一个月后才回家,老公:你男闺蜜有HIV

老婆跟男闺蜜去海边度假,一个月后才回家,老公:你男闺蜜有HIV

泽泽先生
2025-05-24 15:28:49
当着全球的面,巴基斯坦代表团
承认曾锁定20架印度军机没全打?

当着全球的面,巴基斯坦代表团 承认曾锁定20架印度军机没全打?

大道无形我有型
2025-06-04 18:41:38
预付200万回收晚清“废弃黄河铁桥墩”,4年过去了咋还不拆?男子发觉上当报警

预付200万回收晚清“废弃黄河铁桥墩”,4年过去了咋还不拆?男子发觉上当报警

大风新闻
2025-06-05 14:07:29
遭群嘲,台湾“反中急先锋”一家这样赚钱

遭群嘲,台湾“反中急先锋”一家这样赚钱

环球网资讯
2025-06-05 22:33:14
56岁范志毅长叹一声后默默无语,疑似落泪 退钱姐无奈:4年又4年

56岁范志毅长叹一声后默默无语,疑似落泪 退钱姐无奈:4年又4年

风过乡
2025-06-06 07:57:02
MacMahon:基德不赞同独行侠的一些重大决策 他与布伦森关系密切

MacMahon:基德不赞同独行侠的一些重大决策 他与布伦森关系密切

直播吧
2025-06-06 08:17:10
近视手术存在后遗症?北京同仁医院副院长答红星新闻:主流技术安全性高,并发症很少

近视手术存在后遗症?北京同仁医院副院长答红星新闻:主流技术安全性高,并发症很少

红星新闻
2025-06-05 17:23:16
苹果新iPad太猛了,全新设计曝光

苹果新iPad太猛了,全新设计曝光

搞机小帝
2025-06-06 00:07:23
北、上、深等地保时捷大降价!深圳地区卡宴打6.5折,帕拉梅拉优惠30多万

北、上、深等地保时捷大降价!深圳地区卡宴打6.5折,帕拉梅拉优惠30多万

红星资本局
2025-06-03 19:09:07
朴槿惠又出来了!这次她穿衣打扮更显年轻,知己柳荣夏寸步不离

朴槿惠又出来了!这次她穿衣打扮更显年轻,知己柳荣夏寸步不离

陈意小可爱
2025-06-05 08:56:14
保时捷女销冠5个月已卖超80台,本人发文:厂家减产挺多,还要继续加油

保时捷女销冠5个月已卖超80台,本人发文:厂家减产挺多,还要继续加油

鲁中晨报
2025-06-03 15:50:05
俄罗斯可能自己都没料到,本轮遇袭中抵抗最坚决的,是他的人民

俄罗斯可能自己都没料到,本轮遇袭中抵抗最坚决的,是他的人民

忠诚TALK
2025-06-04 10:26:47
中国已发出明确信号:诸君尽可留住美元,而我们……

中国已发出明确信号:诸君尽可留住美元,而我们……

观察者网
2025-06-05 07:59:12
2025-06-06 08:51:00
审计之家 incentive-icons
审计之家
审计从业人员交流学习社群
3824文章数 12640关注度
往期回顾 全部

头条要闻

载3000辆汽车起火货轮系从烟台出发 包租方正核实信息

体育要闻

提前无缘美加墨世界杯 国足众将赛后落泪

娱乐要闻

陈赫宴请好友,李乃文携妻子罕见亮相

财经要闻

娃哈哈“体外”迷局待解

科技要闻

特朗普怒喷马斯克"疯了" 特斯拉暴跌14%!

汽车要闻

旗舰+大六座+百万级 阿维塔全新SUV预计明年量产

态度原创

本地
房产
手机
公开课
军事航空

本地新闻

非遗里的河南 | 黄河泥变身千年墨宝,写字都带仙气儿~

房产要闻

再夺荔湾销冠!谁是主城改善标准制定者,终于有了答案!

手机要闻

Google推出升级版 Gemini 2.5 Pro 预览版

公开课

李玫瑾:为什么性格比能力更重要?

军事要闻

普京明确:没有人会与“恐怖分子”谈判