find第一个非空单元格

嘿大家我一直在试图找出这一个，但我似乎无法得到它的工作。 尽pipe它可能有一个非常简单的答案。

所以这必须作为一个macros来完成，因为它是一个更大的程序的一部分。

我想要做的是find一个有任何价值的单元格。 这意味着它可以是任何文字，数字或符号。 非空白，如果你愿意。

这是我目前使用的：

D栏
1
（空白）
（空白）
123

macros：

Columns("D").Find("*", Cells(Rows.Count, "D")).Select 

发生了什么事是它回滚跳过两个空白和123然后回到1。

任何帮助将不胜感激，如果有其他build议，他们将受到欢迎。

Answer 1

从列D中最后一个单元格的xlByRows查找，然后使用xlNext ，即

 Dim rng1 As Range Set rng1 = Columns("D").Find("*", Cells(Rows.Count, "D"), xlFormulas, , xlByRows, xlNext)