计算包含数据的列中的单元格数

Question

我有这段代码：

Dim first As Integer
Dim Last As Integer
Dim i As Integer

For i = 1 To 17
    first = (ActiveCell.Row + 1)
    Selection.End(xlDown).Select
    Last = (ActiveCell.Row - 1)
    Range("J" & first & ":J" & Last).Select
    Selection.Value = "=J$" & (first - 1)
    Range("A" & Last + 1).Select
Next i

并且希望能够用变量替换17，因为某些工作簿有一个额外的组。我不能只计算行数，因为第一个和最后一个之间有信息，但在不同的列中。

有没有办法计算数据可能不连续的set列中包含数据的单元格数（然后我可以用等于变量-1的变量替换17）？

Answer 1

在线发现：谢谢。

n = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count