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

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 ，因为某些工作簿中有一个额外的组。 我不能仅仅计算行数，因为第一和最后之间有信息，但是在不同的列中。

有没有一种方法可以计算在设置的列中有数据可能不连续的单元格的数量（那么我可以用等于变量-1的变量替换17 ）？

Answer 1

在线找到它：谢谢。

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