怎样用vba将一个工作簿中的一个工作表复制到另一个工作簿的一个工作表中
[问题点数：0分]
怎样用vba将一个工作簿中的一个工作表复制到另一个工作簿的一个工作表中
[问题点数：0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
匿名用户不能发表回复！|如何快速的合并多个 Excel 工作簿成为一个工作簿？ - 知乎949被浏览<strong class="NumberBoard-itemValue" title="1,092分享邀请回答11829 条评论分享收藏感谢收起zhidao.baidu.com/question/.html29087 条评论分享收藏感谢收起vba复制excel工作簿中所有表的某一列到另一个工作簿中_百度知道
vba复制excel工作簿中所有表的某一列到另一个工作簿中
工作簿“原始数据”中有数量未知，工作表名为1到N的sheet
要将每个sheet的C列依次全部复制到工作簿“整理汇总”sheet1的A列中
自己胡乱编的，每次都只能复制“原始数据”的第一个工作表的C列N遍
Sub xxxx()
Dim c As Worksheet
For Each c In Worksheets...
我有更好的答案
Range(&c1:c&&&&ls).Select&这一句，应改为c.Range(&c1:c&&&&ls).Select,前面再加一句，c.select你循环了&原始数据&的每一个工作表，但是没有改变被选择的工作表，所以每次复制的都是被选择的那个工作表，就会被复制N遍了。顺便说一下，你这样复制效率很低，因为要不断的切换激活的窗口，改变被选择的工作表，阳光上的桥的答案是效率很高的，不用切换激活的窗口，改变被选择的工作表，但是他的答案不符合你的要求，不是全部复制到A列，是复制到很多列了。给你改进了一下，如下：Sub&xxxx()&&&&Dim&c&As&Worksheet&&&&Windows(&整理汇总&).Activate&&&&For&Each&c&In&&Workbooks(&原始数据&).Worksheets&&&&&&&&ls2&=&Workbooks(&整理汇总&).ActiveSheet.Range(&a65535&).End(3).Row&&&&&&&&ls&=&c.Range(&c65535&).End(3).Row&&&&&&&&c.Range(&c1:c&&&&ls).Copy&Workbooks(&整理汇总&).ActiveSheet.Range(&a&&&&ls2)&&&&NextEnd&Sub
采纳率：55%
Option&ExplicitSub&xxxx()&&&&Dim&c&As&Worksheet,&j&As&Long&&&&j&=&1&&&&For&Each&c&In&Workbooks(&原始数据&).Sheets&&&&&&&&c.Rows(&C&).Copy&&&&&&&&Workbooks(&整理汇总&).Sheets(1).Rows&(j)&&&&&&&&j&=&j&+&1&&&&NextEnd&Sub这个代码是不是很简单，能看懂吧，把 原始数据 每个表的C列复制到 整理汇总 第一个表的1、2、3……列
本回答被网友采纳
为您推荐：
其他类似问题
excel的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vba复制工作表到另一个工作簿_中华文本库
1.移动工作表 移动工作表是指将工作表移到工 Excel VBA 编程 移动和复制工作表 对工作表的移动和复制操作不仅可以在同一个工作簿的内部进行, 也可以在不同的...
使用VBA 合并多个 Excel 工作簿例如,需要将多个 Excel 工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿 在“D:\示例\数据记录\”文件夹中,含有...
VBA方法_-_将多个excel文件合并到一个excel的多个sheet中_互联网_IT/计算机_...(i) &#39;把新工作簿的工作表名字改成被复制工作簿文件名,这儿应用于 xls 文件,...
技巧1 引用工作表的方式 VBA 中,在不同的工作表之间转换或者对不同工作表中...任何时刻工作簿中只有一个工作表是活动工作表。 1-2 使用工作表的索引号 工作...
Excel VBA 工作簿(workbook)基本操作实例_计算机软件...本程序将把当前工作簿进行复制并以与当前工作簿相同...中工作表Sheet1上单元格A1中的值到一个新工作簿中...
方法使用另外一个不同的文件名保存对工作簿所做的...Excel Sheet 工作表VBA属... 1页 免费 喜欢...VBA技巧36 复制自动筛... 2页 免费
VBA技巧40 ...
Excel VBA实例教程 #008:仅复制数值到另一区域_IT/计算机_专业资料。如果在复制...End Sub 代码解析: CopyPasteSpecial 过程复制工作表 Sheet1 中 A1 单元格的...
VBA技巧8 仅复制数值到另一区域_计算机软件及应用_IT/计算机_专业资料。技巧1 ...第 2 行代码将如图 1-1 所示的 Sheet1 中 A1 单元格的当前区域进行复制。...
Excel VBA——从外部工作簿取数的5种方法(原创整理...复制粘贴取数 &#39;4、借助数组取数 ——以上 4 种...&我的工作表.xlsx& s = &我的工作表& ...
VBA技巧48 保存指定工作表为工作簿文件_计算机软件及应用_IT/计算机_专业资料。...一个工作簿文件,可以使用 Worksheet 对象 的 Copy 方法,将指定的工作表复制到...}