合并多个类似xlsx中指定区域数据到一个新的汇总xlsx中，已更新例子

lein_shi

不知道为什么 发表于 2018-9-7 15:34
参考

感谢大兄弟！
查找当前文件夹下文件那句写的好妙啊

至于 with里边这一套  还有 copy的动作 我还需要回去学习一下才能理解。

再次感谢！

不知道为什么

lein_shi 发表于 2018-9-7 16:03
感谢大兄弟！
查找当前文件夹下文件那句写的好妙啊

呵呵，客气了老铁。互相学习

lein_shi

Mark 一下 帮助理解

http://club.excelhome.net/thread-941292-1-1.html


在看一本书的时候没搞明白例子上写的一句话，如上。
经调试才搞明白。分享给大家。
    NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    这句话的意思是 取活动单元表的第一列最后一个有值的行的下一行行号。

Rows.Count是指当前活动工作表的行数，为数字 1048576，很熟悉的一个数字，为Excel工作表的最大行数
Cells(Rows.Count, 1)，则是定位到第一列的最后一行cell，即单元格“A1048576”

主要是End(xlUp)比较难理解。
Range.End属性是返回一个 Range 对象，该对象代表包含源 区域的区域尾端的单元格。
End(xlUp)等同于End mode下+UP键，或Ctrl+Up，
若活动单元格为空，其上一个单元格也为空，将会向上寻找该列第一次出现的非空单元格；
若活动单元格非空，其上一个单元格也非空，将会选中活动单元格所在列的最后一个非空单元格；
                 其上一个单元格为空，将继续向上寻找该列第一次出现的非空单元格，直到第一个单元格为止，如A1。
另外三个XlDirection常量为xlDown, xlToRight, xlToLeft 功能分别为 End+DOWN, END+RIGHT, END+LEFT.

这样Cells(Rows.Count, 1).End(xlUp)就是沿着单元格“A1048576”向上寻找第一列第一次出现的非空单元格。
连起来Cells(Rows.Count, 1).End(xlUp).Row，就是取第一列第一次出现的非空单元格的行号
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1，自然就是取该非空单元格的下面的空单元格，以便进行输入等操作。
比如下面事例，将把数据插入到工作表中的系一个空白行，这里A7为下一个空白行。
  





补充内容 (2013-5-15 22:13):
上面有句话没说清楚，改一下：
若活动单元格非空，其上一个单元格也非空，将会向上选中活动单元格所在列的最后一个非空单元格；

lein_shi

Cells(Rows.Count, 2).End(3).Row——B列最下面一个非空单元格

请参阅VBA帮助
End 属性
参阅参阅参阅参阅返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。

Cells(Rows.Count, 2)——B列最下面一个单元格，2003是B65536，2007、2010是B1048576
选中B65536，按住End键或Ctrl键的同时，按下向上键，录制宏：
Sub Macro1()
    Range("B65536").Select
    Selection.End(xlUp).Select
End Sub

lein_shi

不知道为什么 发表于 2018-9-7 16:15
呵呵，客气了老铁。互相学习

测试99%成功


有一个问题，
表格中是有一些引用的，这样拷贝到汇总表中的表格也是有引用地址。
第一组数据是可以正常引用的
但是，后边的几组数据 好像引用地址就指向到空的空格里了（相对引用）

另外想问如何做到拷贝成图片格式呢？

不知道为什么

lein_shi 发表于 2018-9-7 17:31
测试99%成功

不好意思，没注意这个点。
解决第一个问题也很简单，粘贴为 数值+格式模式即可。

图片格式的也一样可以处理。你可以录制宏就能明白了。