VBA代码编写 [推广有奖]

0关注
0粉丝

初中生

19%

还不是VIP/贵宾

威望: 0 级
论坛币: 322 个
通用积分: 0
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 96 点
帖子: 13
精华: 0
在线时间: 12 小时
注册时间: 2010-12-4
最后登录: 2016-5-14

楼主

跑步的鱼 发表于 2010-12-15 23:16:36 |AI写论文

300论坛币

求VBA代码编写:将多个工作表的相同区域的数据汇总到一张新工作表上,

分享0 收藏0 回帖

关键词：VBA 工作表编写代码 VBA

相关帖子

沙发

lanfeng0924 发表于 2010-12-15 23:20:45

楼主应该把问题说清楚一点

研究兴趣：数据挖掘，决策分析

藤椅

跑步的鱼 发表于 2010-12-16 18:38:51

2# lanfeng0924
就是每张工作表的格式是一样的，区别只是数据不同，现在需要批量地将每张表上的数据粘贴到一张工作表上以供分析使用

板凳

注册吧 发表于 2011-3-14 18:57:14

这个太简单了吧

纸上得来终觉浅,绝知此生要躬行

报纸

注册吧 发表于 2011-3-14 18:57:43

我经常把几百个表中的数据复制到一个表格中去

纸上得来终觉浅,绝知此生要躬行

地板

注册吧 发表于 2011-3-14 19:00:20

我经常把几百个表中的数据复制到一个表格中去

纸上得来终觉浅,绝知此生要躬行

7楼

Aqi

发表于 2011-3-14 20:59:13

其实问题很简单,首先lz的需要提取数据的工作表(这里你指的工作表是workbook,还是worksheet？下面的例子是按每个独立workbook做的）的文件名有规律么?如果有规律那可以写循环,其次,每个工作表需要提取数据的范围是固定的？如果是固定的，其实一个循环就可以搞定~~下面是个范例，lz可以参考下。。。

Sub 读取数据()

On Error Resume Next '避免读取文件时有间隔,但第一次调试时最好改成注释

Dim i As Integer, j As Integer

For i = 0 To 9

Application.DisplayAlerts = False

ChDir "E:\Downloaded Data\201006"

Application.Workbooks.Open "E:\ Downloaded Data\201006" & "\"  & i & "-Jun-10" & ".csv" '需要改

Sheets( i & "-Jun-10").Select  'worksheet名字
Range("A:D").Select  ‘范围。。
Selection.Copy

Windows("合并文件.xls").Activate ’当前宏所在的workbook,如果是worksheet的话可以省略
Worksheets.Add().Name = "2010060" & i
Range("A:D").select '这里需要特别注意，粘贴的目标范围，可以通过上面同样的例子写循环实现
Selection.Paste
next i

end sub

啥时候我现金可以清零。。。