不同月份的数据，如何弄到一个工作表中并一 一对应。看图猜对应星座，谢谢大咖们

来源：蜘蛛抓取(WebSpider) 时间：2017-01-10 01:32 标签： 撤销工作表保护密码
查看: 8359|回复: 29
如何合并相同格式的工作表到一个工作表中？谢谢
阅读权限30
在线时间 小时
内容和要求，详见附件。谢谢
[ 本帖最后由 linqibing 于
11:13 编辑 ]
11:06 上传
点击文件名下载附件
24.48 KB, 下载次数: 85
11:13 上传
点击文件名下载附件
12.53 KB, 下载次数: 71
阅读权限70
在线时间 小时
把工作簿弄个2003版本的上来吧 我打不开2007的
阅读权限30
在线时间 小时
原帖由 吾股丰登 于
11:10 发表
把工作簿弄个2003版本的上来吧 我打不开2007的
谢谢，已经放上去了
阅读权限50
在线时间 小时
都是老师现成的代码组合了一下,先用着
11:23 上传
点击文件名下载附件
17.38 KB, 下载次数: 304
阅读权限20
在线时间 小时
高手给讲讲是怎么合并表的？谢谢
阅读权限50
在线时间 小时
原帖由 zc5511659 于
11:26 发表
高手给讲讲是怎么合并表的？谢谢
打开附件，按Alt+F11可看到有代码，代码是家里哪位老师写的。以此认识代码，真正弄懂，路很长，我刚上路.........:loveliness:
阅读权限20
在线时间 小时
请问高手，如果遇到以下两种情况怎样做？
1、对指定名称的工作表（工作表的个数是随机的，并且很多不是一个工作簿中）怎样合并？
2、表头行数怎样确定？
阅读权限70
在线时间 小时
Sub 合并()
'代码开始的标志，切给代码赋予名称为“合并”
'定义变量i
Sheets(1).UsedRange.Copy [a1]& &
'将第一个工作表已使用区域复制到当前工作表，对应当前工作表的起始位置是A1单元格。
For i = 1 To Sheets.Count
'FOR 循环语句开始，变量i的值从数字1（其实应该是从2开始）开始，直到当前工作表的个数相同的数字（包括深度隐藏工作表和一般隐藏的工作表都会计算进去）
If Sheets(i).Name && Me.Name Then
'如果即将被复制的工作表的名称不等于当前工作表的名称（即当前工作表不参与被复制），那么执行下面NEXT之前的代码。
Sheets(i).UsedRange.Offset(2, 0).Copy [a65536].End(xlUp).Offset(1, 0)
把第i个工作表已使用区域里的第1行起下移2行（即第3行，其实对于楼主而言应该是第2行）开始复制，复制到当前工作表最后一行往下的第一行。（注意：当前工作表最后一行的判断依据是A列，所以你前面的表最好A列不要出现空白，否则可能出现你所不希望达到的结果）。
'调到上面的FOR语句，开始重复执行上面FOR和NEXT之间的语句，直到不符合上述的条件才会跳出循环
'代码结束标志
[ 本帖最后由 吾股丰登 于
17:16 编辑 ]
阅读权限70
在线时间 小时
& & & & & & & &
VBA我也是门外汉 只看懂基本的 和 设计最基本的（幼儿园的那种水平），并且我设计代码的话也是把简单问题复杂化，乱七八糟的那种，所以我只是给楼主解释楼上简明扼要的好代码而已，并且解释得不太好，也解释得不专业，所以多多谅解
阅读权限50
在线时间 小时
感谢吾股丰登老师的解释。
难得的学习机会，机会要创造啊[em07]
祝咱们家五谷丰登！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 撤销工作表保护密码 的文章

 

随机推荐