For Each rng In WKS.Range("A1", Cells(Rows.Count, "D").End(xlUp))

来源：蜘蛛抓取(WebSpider) 时间：2018-07-20 08:42 标签： rng微博

内容提示：【精品】ExcelVBA共五章学习實例(第1、2、6、7、9章)实用VBA源代码

文档格式：DOC| 浏览次数：22| 上传日期： 04:43:53| 文档星级：?????

在看一本书的时候没搞明白例子仩写的一句话如上。

经调试才搞明白分享给大家。

    这句话的意思是 取活动单元表的第一列最后一个有值的行的下一行行号

Rows.Count是指当前活动工作表的行数，为数字 1048576很熟悉的一个数字，为Excel工作表的最大行数

若活动单元格为空其上一个单元格也为空，将会向上寻找该列第┅次出现的非空单元格；

若活动单元格非空其上一个单元格也非空，将会选中活动单元格所在列的最后一个非空单元格；

比如下面事例将把数据插入到工作表中的系一个空白行，这里A7为下一个空白行

我试图创建一个集中的数据库將多个工作簿中的相同选项卡（名为“导入”）导入到不同工作簿中的选项卡上。

当我运行代码时只有来自一个文件（打开的文件）的數据被导入到数据库工作表中，并且我希望所有选定文件的“导入”选项卡都被引入另外，我想不要打开任何源文件以导入其数据

我要回帖

更多关于 rng微博 的文章

 

随机推荐