Question

我试图找到一种方法将所有行复制到公式列中的第一个空单元格，并且比使用.Select循环更快。现在我正在尝试这个：

Sub CopyValues2()
    FinalRow = Columns(9).Find("0").Row
    Worksheets("Worksheet").Range("I3:K" & FinalRow).Copy
End Sub

我有列I =到A列。现在它复制到第一个0，即使它是合法值，所以我试过lookAt：= xlWhole但是这给了我一个错误。我还尝试在第I列中放置if语句：= IF（A3＆lt;＆gt;＆＃34;＆＃34;，A3，＆＃34; null＆＃34;）并搜索＆＃34; null＆＃34;但是它只选择第一行。我认为这是因为它看到＆＃34; null＆＃34;在if语句中。

我也尝试过使用Rows.count，但由于＆＃34;空的＆＃34;中的公式而无效。细胞

我的理想是拥有一个IF（A3＆＃＆gt;＆＃34;＆＃34;，A3，＆＃34;＆＃34;）然后找到第一个＆＃34;＆＃34;但是我还没有把它当作工作。建议将不胜感激！

Answer 1

尝试使用以下命令查找最后一个非空值：

FinalRow = Columns(9).Find(What:="*", SearchDirection:=xlPrevious, LookIn:=xlValues).Row

VBA在公式列中查找特定值并复制到该行

1 个答案: