Question

VBA如何从里面得到任意一个非空白单元格的数据

以下是EXCEL其中一列数据，VBA如何从里面得到任意一个非空白单元格的数据，cells(Range().end(xlup).Row,columm).value 不行，因为如果最后是空白单元格的话会返回这个空白单元格。MAX(),MIN()也不行，因为数据不是日期类型。
2011-05-01
2011-05-01
空白
2011-05-01
2011-06-01
空白

Answer 1

Application.WorksheetFunction.CountBlank(Range("A1:A6"))

Answer 2

Sub tt()
Cells(1, 1) .value = 0
For Each C In Selection
If C.Value = "" Then
C.Value = "内容"
Cells(1, 1) = Cells(1, 1) + 1
End If
Next C
End Sub
把内容换成你要的内容，统计的空白单元格数量返回到A1单元格