设置范围等于具有数据的所有单元格

时间:2015-06-09 17:21:24

标签: excel-vba vba excel

我有一张excel表,我必须从中提取数据。有没有办法选择所有包含数据的单元格?我现在正在提取数据:

Set rng = Selection
newValue = rng.Cells(someNumber, anotherNumber).Value

但是这需要我手动选择我想要从中提取数据的单元格。

此外,范围将从文档更改为文档。有没有办法使这个动态,所以我不必为每个新文档手动更改它?

1 个答案:

答案 0 :(得分:1)

它有点脏,但最简单的方法是按Ctrl + Up查找底部,从最后一列按住ctrl + Left找到右侧,代码等效于:

Range("a1", Cells(Range("a1000000").End(xlUp).Row, Range("xfd1").End(xlToLeft).Column)).Select