如何在列中找到第一个非空白单元格？

Question

第一行是所有标题,第一列是所有日期.我正在寻找vba代码/宏来查找并选择标题后每列中的第一个非空单元格.例如,找到B2范围内的第一个非空单元格并选择它.

Answer 1

如果您的第一行是标题行,那么您可以使用:

Columns("B").SpecialCells(xlCellTypeBlanks)(1).Select

编辑

抱歉误读了这个问题,上面的代码是完全错误的.一个办法:

注意:它们是空白和空白之间的区别.

对于First Non-Blank(如问题标题)尝试:

With Columns("B")
    .Find(what:="*", after:=.Cells(1, 1), LookIn:=xlValues).Activate
End With

对于第一个非空(如问题正文)尝试:

与上面不同,这也会找到非空单元格,其中公式等于空白即= IF(A1 = 1,A1,"")

With Columns("B")
    .Find(what:="*", after:=.Cells(1, 1), LookIn:=xlFormulas).Activate
End With