找到第一个非空单元格

Question

嘿大家我一直在努力想出这个，但我似乎无法让它发挥作用。它可能有一个非常简单的答案。

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

我要做的是找到一个有任何价值的单元格。意思是它可以是任何单词，数字或符号。如果你愿意的话，非空白。

这就是我目前使用的：

  

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

宏：

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

正在发生的事情是它循环跳过两个空白然后123然后回到1。

任何帮助都将受到赞赏，如果有其他建议，他们将受到欢迎。

Answer 1

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

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