Question

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

Answer 1

根据您的需要，有几种不同的方法可以做到这一点。 Here's one讨论一些用途的SO线程。使用UsedRange或.Rows进行讨论的Here's another page。并且，正如@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

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

1 个答案: