VBA对多个选定exce跨工作簿求和公式的公式都转化为公式值，一个exce跨工作簿求和公式会，但是多个exce跨工作簿求和公式怎么弄，而且要有选中文件框

来源：蜘蛛抓取(WebSpider) 时间：2018-02-23 08:16 标签： excel工作簿引用公式
查看: 781|回复: 5
EXCEL如何将一个工作簿分解成多个工作簿，VBA代码高手请进
阅读权限20
在线时间 小时
各位老师：& && && &我有一个Excel表格,名称为《学校总工作簿》.我想根据它的&&Sheet1&&表格中 【H列】 的部分内容进行分别筛选，并将每次的筛选后的部分内容（是部分列,不是全部内容）分别复制到对应的工作簿中，并保存。& && && &在复制时，这些需要更新的列中 （需要更新的列有A列、C列、D列、F列、H列、I列、K列）& &如果这些列原来有数据，就将原有的数据刷新（使用新数据）。& && && &H列会有五个名称,分别为&&一年级、二年级、三年级、四年级、五年级。& && && &一共有六个工作簿.名称分别为《学校总工作簿》、《一年级工作簿》、《二年级工作簿》、《三年级工作簿》、《四年级工作簿》、《五年级工作簿》。（筛选H列后【一年级】的内容复制到《一年级工作簿》，其他类似）这六个工作簿存在D盘同一文件夹中.& && &&&所有工作簿的内容都从第三行开始〈第一行和第二行为表头〉。& && &&&我只要将筛选出的A列、C列、D列、F列、H列、I列、K列 的内容复制新的工作簿中，（不是筛选后全部内容，其他列的内容不要复制到另外五个工作簿中）。& && &&&在复制的过程中，不能影响原来工作簿的行距、列距，只复制内容，其他工作簿的表格设置都不能变。不影响其他单元格内的数据。& && &&&在复制到其他工作簿的时候，这些工作簿可能是打开的，也可能是关闭的，如果是打开的请先保存数据，在更新数据。
捕获0.PNG (31.3 KB, 下载次数: 4)
21:26 上传
捕获1.PNG (19.74 KB, 下载次数: 0)
21:26 上传
捕获2.PNG (20.84 KB, 下载次数: 0)
21:26 上传
捕获3.PNG (16.35 KB, 下载次数: 0)
21:26 上传
21:27 上传
点击文件名下载附件
45.07 KB, 下载次数: 39
阅读权限20
在线时间 小时
本帖最后由 jjfjf2014 于
08:05 编辑
忘了看你下面的要求了，不过我有个疑问，那些不要复制过去的列，是不要这一列数据呢，还是要保留原来的数据。
阅读权限20
在线时间 小时
jjfjf2014 发表于
忘了看你下面的要求了，不过我有个疑问，那些不要复制过去的列，是不要这一列数据呢，还是要保留原来的数据 ...
哪些不要复制的列上的数据& &&&在《学生总工作簿》中数据不能动，只是不要复制其他五个工作簿中
阅读权限20
在线时间 小时
ljd15366 发表于
哪些不要复制的列上的数据& &&&在《学生总工作簿》中数据不能动，只是不要复制其他五个工作簿中
哪些不要复制的列上的数据& &&&在《学生总工作簿》中数据不能动，只是不要复制其他五个工作簿中
阅读权限20
在线时间 小时
重新做了一份，因为我的电脑上只有03版Excel的，所以我把文件全转换成了03版的工作簿。如果以后你要换成07版格式的工作簿，只要修改一个地方就可以了。
08:07 上传
点击文件名下载附件
31.74 KB, 下载次数: 31
阅读权限20
在线时间 小时
这是一个超级棒的代码，速度也挺快，非常感谢
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel表格 同一个公式在不同的工作簿中计算结果不一样_百度知道
excel表格 同一个公式在不同的工作簿中计算结果不一样
比如算20个数值的平均值，数字和公式都一样，但两个工作薄的计算结果却不一样，请问是哪里出错了
我有更好的答案
公式内的单元格区域是不是对应数值位置？
单元格区域不同，但是数字完全一样，设置也一样
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 5070|回复: 10
VBA一个工作薄多个工作表中公式转换成数值。谢谢
阅读权限10
在线时间 小时
如何用VBA将一个工作薄多个工作表中公式转换成数值。谢谢
我只找到了一个 对单个表操作的代码
VBA版公式转数值
Sub 公式转为数值()
& & Dim rng As Range, c As Range
& & Set rng = ActiveSheet.Range(&A1&).CurrentRegion
& & For Each c In rng.Cells
& && &&&If c.HasFormula Then
& && && && &c.Value = c.Value
& && &&&End If
谢谢了。。。。
阅读权限95
在线时间 小时
& & & & & & & &
for each sh in sheets
sh.usedrange=sh.usedrange
阅读权限10
在线时间 小时
回复 2楼 Zamyi 的帖子
我修改后。执行出错呢。。。能贴一个完整代码吗。。。
阅读权限95
在线时间 小时
原帖由 hutoxian 于
15:12 发表
我修改后。执行出错呢。。。能贴一个完整代码吗。。。
Sub 公式转为数值()
for each sh in sheets
sh.usedrange=sh.usedrange
阅读权限10
在线时间 小时
回复 4楼 Zamyi 的帖子
哦。不好意思。。。我的表加了保护。所以才报错。刚才自己没看清楚
现在是可以了，，不过我的表内容全是引用其它文件的。一转换全部成空的了。。。。
阅读权限95
在线时间 小时
sh.UsedRange = sh.UsedRange.Value
阅读权限10
在线时间 小时
回复 6楼 Zamyi 的帖子
非常感谢，搞定了。。。
阅读权限50
在线时间 小时
请教：怎样对没有保护的公式才替换，保护了的动态参数（公式）还是保留公式呢？
或者只对单元格部分范围的单元格进行替换？
急急急急急急急……
阅读权限95
在线时间 小时
请上传附件，里面有一些要考虑的其他因素
阅读权限50
在线时间 小时
本帖最后由 莫悠悠 于
17:44 编辑
请见：附件，保留的公式是为了实现动态图表的动态参数，谢谢！
Sub 公式转为数值()
for each sh in sheets
sh.UsedRange = sh.UsedRange.Value
以上程序将需保留的公式都粘贴为数值了，不能实现动态图表功能。（红色部分区域公式必须保留）
这里要怎样限定受保护的范围（或可选范围）不在替换之列。
Set UsedRange = ActiveSheet.Protect userinterfaceonly:=False？
要求：请见《输出》开头批注说明
《输出》表里会有很多个产品，同样有不能变的区域，保留的部分有几个区域，这里就省略了
急急急……
17:22 上传
点击文件名下载附件
38.46 KB, 下载次数: 27
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(3f18c94c440b3a8e-ua98).
重新安装浏览器，或使用别的浏览器查看: 291|回复: 5
关于多个工作簿汇总的问题
阅读权限10
在线时间 小时
以前写过使用VBA对excel多个工作簿多个表进行汇总,写得不好,汇总40多个表,要3分钟.求多个工作簿的资料!能快速汇总的.
阅读权限100
在线时间 小时
总得上传个附件吧，要不自己搜索论坛里的相关帖子参考搞定。
阅读权限90
在线时间 小时
参考zhaogang老师的竞赛帖子.
阅读权限100
在线时间 小时
看看你写的代码，为何需要那么久？
阅读权限10
在线时间 小时
参考zhaogang老师的竞赛帖子.
谢谢啦,我找到zhaogang老师的帖子了,非常有帮助!
阅读权限10
在线时间 小时
看看你写的代码，为何需要那么久？
请查看,我里面还带了excel的公式,改了之后应该会提速一点吧.想找一些高速汇总的资料.
09:50 上传
点击文件名下载附件
558.02 KB, 下载次数: 5
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 excel工作簿引用公式 的文章

 

随机推荐