Question

求解VBA代码的计算小于10的数（不包含10）的一列数中的间隔中间含有数的个数？

如：先选中列范围C6-C20，然后执行VBA代码就可得到D列
中算出的小于10的数的间隔数值个数 。
要求代码可使用到其他列。

Answer 1

试试行不，有待优化：
Sub main()
x = Selection(1).Row
y = Selection(1).Column
Z = Selection(Selection.Count).Row
Dim a(65536)
For i = x + 1 To Z
If Cells(i, y) >= 10 Then
k = k + 1
Else
kk = kk + 1
a(kk) = k
k = 0
End If
Next i
For i = Z - x To 1 Step -1
If a(i) <> "" Then
kkk = kkk + 1
Cells(Z - kkk + 1, y + 1) = a(i)
End If
Next i
End Sub

追问

可以的，