从动态表中复制和粘贴数据，同时排除公式空白

Question

我试图从“数据”选项卡中仅复制数据（不包括由If语句创建的空白），然后粘贴到“摘要”选项卡上的数据列底部。试图弄清楚如何让VBA识别可用数据的范围会产生麻烦。

Answer 1

有几种不同的方式来做到这一点，这取决于你需要什么。 Here's one讨论一些用途的SO线程。 Here's another page讨论使用UsedRange或.Rows。而且，正如@findwindow所指出的那样，您可以使用.xlEnd。

这是VBA的一个非常常见的用法，所以如果你围绕谷歌（或者甚至通过SO看），你会发现一些信息。

编辑：按照您的评论，只需设置一个范围，并遍历范围中的细胞，直到找到一个非数字号码：

Dim rng as Range, cel as Range 
Dim lastRow as Integer 
Set rng = Range("A1:A10000") 
for each cel in rng 
If not isnumeric(cel.value) then 
    'Do whatever code you want, when the cell is NOT numeric, ie 
    lastRow = cel.Row 
End if 
next cel