- Tham gia
- 20/9/06
- Bài viết
- 793
- Được thích
- 1,287
- Nghề nghiệp
- ĐCTV - ĐCCT
Tôi có một bài toán phải đếm số lượng các phần tử trong một dãy.
Các anh chị em vui lòng xem file đính kèm (vì diễn giải khó quá) và giúp tôi.
Xin cảm ơn nhiều.
Sub dem_phantu()
Dim kq(), dl, i As Long, k As Long
dl = Range([D5], [D65536].End(3)).Offset(, -1).Resize(, 2).Value
ReDim kq(1 To 2, 1 To UBound(dl))
For i = 1 To UBound(dl)
If dl(i, 1) <> "" Then
k = k + 1
kq(1, k) = dl(i, 1)
kq(2, k) = 1
Else
If k = 0 Then k = 1
kq(2, k) = kq(2, k) + 1
End If
Next
[H3].Resize(2, k) = kq
End Sub
Bố trí lại chổ màu vàng theo thứ tự: D46, B45, A32, A1123Tôi có một bài toán phải đếm số lượng các phần tử trong một dãy.
Các anh chị em vui lòng xem file đính kèm (vì diễn giải khó quá) và giúp tôi.
Xin cảm ơn nhiều.
=COUNT(OFFSET($D$5:$D$100,MATCH(H$3,$C$5:$C$100,0)-1,))-SUM($G$4:G$4)
Ua! Chưa được sao Sơn?Ạnh ndu xem lại giúp em công thức nhé.
=INDEX(FREQUENCY(ROW($D$5:$D$21),IF($C$5:$C$20="","",ROW($C$5:$C$20))),SUM(($C$5:$C$20<>"")*(IF($C$5:$C$20="",0,ROW($C$5:$C$20))<=MATCH(H$3,$C$1:$C$20,0)))+1)