如何用VBA实现条件计数
答案:1 悬赏:40 手机版
解决时间 2021-03-21 13:51
- 提问者网友：难遇难求
- 2021-03-21 07:47
如何用VBA实现条件计数
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2021-03-21 08:34
Sub 计数()
Dim Arr, i&, j&, Drr(1 To 1440, 1 To 1)
Arr = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
j = 1
For i = 1 To UBound(Arr)
If Arr(i, 1) > j Then
Do
Drr(j, 1) = i - 1
j = j + 1
Loop Until Arr(i, 1) <= j
If j > 1440 Then j = 1440: Exit For
End If
Next i
If Arr(UBound(Arr), 1) <= j Then Drr(j, 1) = i - 1
[D1].Resize(UBound(Drr), 1) = Drr
End Sub
Dim Arr, i&, j&, Drr(1 To 1440, 1 To 1)
Arr = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
j = 1
For i = 1 To UBound(Arr)
If Arr(i, 1) > j Then
Do
Drr(j, 1) = i - 1
j = j + 1
Loop Until Arr(i, 1) <= j
If j > 1440 Then j = 1440: Exit For
End If
Next i
If Arr(UBound(Arr), 1) <= j Then Drr(j, 1) = i - 1
[D1].Resize(UBound(Drr), 1) = Drr
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯