Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3785|回复: 13

[已解决]请问:用VBA 如何提取不固定区域的每周数据

[复制链接]
发表于 2011-11-5 18:53 | 显示全部楼层 |阅读模式
用VBA 如何提取不固定区域的每周数据    谢谢!
最佳答案
2011-11-5 20:25
本帖最后由 zjdh 于 2011-11-5 20:26 编辑

你试试,周期表添加了日期:
提取不固定区域的每周数据.rar (16.73 KB, 下载次数: 44)

用VBA 如何提取不固定区域的每周数据.rar

5.58 KB, 下载次数: 10

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-11-5 20:25 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2011-11-5 20:26 编辑

你试试,周期表添加了日期:
提取不固定区域的每周数据.rar (16.73 KB, 下载次数: 44)
回复

使用道具 举报

 楼主| 发表于 2011-11-5 21:05 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-11-5 22:01 | 显示全部楼层
回复 zjdh 的帖子

zjdh好!请问:如果“数据”各工作表数据区域末行,各有2行备注说明,代码如何改动            谢谢!
回复

使用道具 举报

发表于 2011-11-6 07:48 | 显示全部楼层
Sub TEST()
  .................
        For Each SH In .Sheets
            If SH.Name <> "TEMP" Then
                SH.Range("A2:G" & SH.Range("A65536").End(3).Row - 2).Copy .Sheets("TEMP").Range("A65536").End(3)(2)
            End If
        Next
    ....................................
回复

使用道具 举报

发表于 2011-11-6 07:53 | 显示全部楼层
对数据表有几个要求:
1. 月份表必须按顺序排列。
2. 各表的日期月头到月末必须齐全。
3. 月份可以向两头延伸数月乃至数年,但中间不能缺月,否则月末尾与月头不能衔接。
4. 各表的格式必须一致。
回复

使用道具 举报

发表于 2011-11-8 23:17 | 显示全部楼层
下载学习看看
回复

使用道具 举报

 楼主| 发表于 2011-11-6 14:05 | 显示全部楼层
回复 zjdh 的帖子

非常感谢!!
回复

使用道具 举报

发表于 2011-11-7 08:58 | 显示全部楼层
提取不固定区域的每周数据2.rar (16.04 KB, 下载次数: 15)
回复

使用道具 举报

发表于 2011-11-7 08:02 | 显示全部楼层
至少要上下各一个月吧,否则月末与下个月不衔接了!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:01 , Processed in 0.501411 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表