查看: 11033|回复: 14
如何让：同一目录下的多个工作薄的同一工作表中的固定单元格相加
阅读权限20
在线时间 小时
& & & & & & & &
如何让：同一目录下的多个工作薄的同一工作表中的固定单元格相加
麻烦前辈们告诉下解决办法!
小弟菜鸟，感激不尽！
阅读权限70
在线时间 小时
回复 1楼 jessevictor 的帖子
能不能给个附件啊，那样更好说明总是
阅读权限30
在线时间 小时
原帖由 jessevictor 于
13:35 发表
如何让：同一目录下的多个工作薄的同一工作表中的固定单元格相加
麻烦前辈们告诉下解决办法!
小弟菜鸟，感激不尽！
你可以使用本人EXCEL必备工具箱的“按工作簿汇总”功能，完全免费。详细介绍：
阅读权限20
在线时间 小时
=SUM(Sheet1:Sheet48!B19)
这是同一工作簿中1—48个工作表的B19单元格的求和公式。希望可以帮到你。[em01]
阅读权限20
在线时间 小时
2楼楼主说得对，给个附件更能说明问题，才知道你需要什么帮助。
阅读权限20
在线时间 小时
如何让：同一目录下的多个工作薄的同一工作表中的固定单元格相加
如何让：同一目录下的多个工作薄的同一工作表中的固定单元格相加
如附件，如何让：7月1日到7月6日里面的工作薄&汇总7.1&,&汇总7.2&,&汇总7.3&......里面的SHEET1固定单元格B1相加..
19:26 上传
点击文件名下载附件
39.41 KB, 下载次数: 144
阅读权限95
在线时间 小时
得用VBA才能实现，或在工作簿里建立连接
阅读权限30
在线时间 小时
建议把这些工作表放在一个工作簿中，操作起来也方便，一个公式就搞定了。
用VBA代码写出来的虽然可以解决你的问题，但不具有通用性，只能解决你的一时之需，用个简单的公式实现，你一看就明白了，下次再有问题，也不再是问题了。
阅读权限20
在线时间 小时
看来就只能放在同一个工作薄中了,但如果同一工作薄中太多了,公式会出现问题吗? 我之前听论坛的朋友说,这个不能超过30个
阅读权限30
在线时间 小时
工作表可以超过30个。
写了一个合并工作簿的宏。
可以实现对活动工作表的合并，如果将多个分散的文件放在一个文件夹下面，全选合并，合并速度更快，省去了选择路径的操作。
工作簿多的话，比较方便。
对上上例：合并完后，新建一张表，在B1单元格中输入＝sum('*'!b1)& &即可实现求和了。
刚刚测试，对文本文件也可以执行合并，合并后的格式跟合并前选择“打开方式”选择&EXCEL打开”是一样的。　
作了下修改，现已经能够合并工作簿中所有非空工作表了。
[ 本帖最后由 旭日升 于
22:32 编辑 ]
22:32 上传
点击文件名下载附件
14.07 KB, 下载次数: 377
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 10288|回复: 8
[Excel VBA]
如何在excel 表中引用多个工作簿中同一位置的单元格内容
初级一, 积分 4, 距离下一级还需 46 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 plxxzzl 于
21:44 编辑
我有一个工作表A列是姓名，我想要在B列显示出以对应A列姓名为文件名的 excel表中C16单元格中内容。如汇总表.xls的sheet1中A1 单元格的内容是 “张三”&&，A2内容是“李四”对应同级目录下有一个“张三.xls”李四.xls“”的工作簿 ，我要在sheet1表中B1单元格显示“张三.xls”工作簿 中“采集表”中C16单元格的内容，B2中显示“李四.xls”工作簿 中“采集表”中C16单元格的内容，如图
未命名.jpg (48.51 KB, 下载次数: 14)
如何在excel 表中引用多个工作簿中同一位置的单元格内容
21:43 上传
张三.xls李四.xls王五.xls赵六xls钱七.xls孙八.xls与当前文件在同一目录下面，这样的文件有近1000个，我想快速生成B列数据，请高手指点，谢谢！
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
这个可能需要用VBA，用函数的话INDIRECT需要工作簿是打开的
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 xyf2210 于
00:45 编辑
Sub test()
& & Dim arr, brr(), i, wb As Object& && & '定义变量
& & arr = Range(&A2:A& & [A65536].End(3).Row)& &&&'单元格区域定义为数组
& & For i = 1 To UBound(arr)& && && && && && && & '循环
& && &&&Set wb = GetObject(ActiveWorkbook.Path & &\& & arr(i, 1) & &.xls&)&&'创建object，相当于打开工作簿
& && &&&ReDim Preserve brr(1 To UBound(arr), 1 To 1)& & '重新定义数据大小
& && &&&brr(i, 1) = wb.Sheets(&采集表&).Range(&c16&)& & '取得所需要的数值
& && &&&wb.Close False& && && && && && &&&'关闭工作簿，不保存
& & Next
& & Range(&B2&).Resize(UBound(brr), 1) = brr& && &'将数组返回给单元格区域
End Sub复制代码
22:55 上传
点击文件名下载附件
9.34 KB, 下载次数: 222
如何在excel 表中引用多个工作簿中同一位置的单元格内容
初级一, 积分 4, 距离下一级还需 46 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
非常感谢，受用了。
初级一, 积分 4, 距离下一级还需 46 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
初次接触，能不能帮忙对程序进行下解释，谢谢了！
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
初次接触，能不能帮忙对程序进行下解释，谢谢了！
plxxzzl 发表于
00:04 备注了，你看看吧，希望对你有所帮助
初级一, 积分 4, 距离下一级还需 46 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
看了，谢谢
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
初级三, 积分 327, 距离下一级还需 173 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学习了，收藏秋来
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by7180人阅读
Excel&Sql（4）
工作中经常会用到的把几个Excel文件合并到一个，或者是把一个Excel文件里的所有Sheet合并到一个Sheet来进行统计。下面分别提供用vba宏来解决这两个问题的方法。
1、合并Excel文件
打开一个空Excel文件，Alt+F11，插入一个模块，开始写代码：
Sub MergeWorkbooks()
Dim FileSet
Dim i As Integer
On Error GoTo 0
Application.ScreenUpdating = False
FileSet = Application.GetOpenFilename(FileFilter:=&Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx&, _
MultiSelect:=True, Title:=&选择要合并的文件&)
If TypeName(FileSet) = &Boolean& Then
GoTo ExitSub
For Each Filename In FileSet
Workbooks.Open Filename
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Application.ScreenUpdating = True
这段代码的作用：它首先打开一个文件选择框，你可以选择一个或多个文件，然后把这些文件里的所有Sheet合并到当前这个工作簿里来，有重名的Sheet会自动在后面加数字。
2、合并一个EXCEL多个sheet的内容到一个汇总sheet
同上，再添加一个模块吧，代码如下：
Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(what:=&*&, _
After:=sh.Range(&A1&), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function
Sub MergeSheets()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long
Dim shLast As Long
Dim CopyRng As Range
Dim StartRow As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
'新建一个“汇总”工作表
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Worksheets(&汇总&).Delete
On Error GoTo 0
Application.DisplayAlerts = True
Set DestSh = ActiveWorkbook.Worksheets.Add
DestSh.Name = &汇总&
'开始复制的行号，忽略表头，无表头请设置成1
StartRow = 2
For Each sh In ActiveWorkbook.Worksheets
If sh.Name && DestSh.Name Then
Last = LastRow(DestSh)
shLast = LastRow(sh)
If shLast & 0 And shLast &= StartRow Then
Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))
If Last + CopyRng.Rows.Count & DestSh.Rows.Count Then
MsgBox &内容太多放不下啦！&
GoTo ExitSub
CopyRng.Copy
With DestSh.Cells(Last + 1, &A&)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Application.GoTo DestSh.Cells(1)
DestSh.Columns.AutoFit
Application.ScreenUpdating = True
Application.EnableEvents = True
这段代码的作用：它会新建一个叫做“汇总”的工作表，然后把当前工作簿里的所有Sheet里有数据的内容都复制到“汇总”表里。提示：如果数据表里的内容没有表头的话需要把StartRow
= 2改成StartRow = 1。
3.按需合并工作表在EXCEL中打开宏，将下列代码进行粘贴并保存。然后返回你需要合并的工作表中，运行此宏，看看效果吧。Sub 合并sheets()
n = 12 '源表个数，根据需要修改！
nstart = 9 '每个单表数据的开始行数，根据需要修改！
k = nstart '目标表的行标
For i = 1 To n
irow = nstart '行标
While Sheets(i).Cells(irow + 1, 2) && && '后面个1以第2列数据的最后1行是空作为行结束标示,确定源表的行数，根据需要修改！
irow = irow + 1
Sheets(i).Rows(nstart & &:& & irow).Copy '复制源数据行
Sheets(n + 1).Activate
Sheets(n + 1).Cells(k, 1).Select
ActiveSheet.Paste '粘贴数据
k = k + irow - nstart + 1
Next iEnd Sub
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：24634次
排名：千里之外
原创：27篇
(1)(2)(2)(4)(2)(1)(3)(2)(5)(1)(2)(6)(1)(5)
(window.slotbydup = window.slotbydup || []).push({
id: '4740881',
container: s,
size: '200,200',
display: 'inlay-fix'