trời quá thông minh, e xin cám ơn bác rất nhiều, hic
simple is the best, vậy mà e tìm trên diễn dàn các bác toàn cho các công thức cao siêu quá, đến xem cũg hoa cả mắt rồi. thật tuyệt vời, đơn giản đến ko ngờ! ko còn lời nào để cám ơn bác đó.
Function Max0(rg As Range)
Dim Vtmp, i
For i = 1 To rg.Count
If rg.Item(i) <> 0 Then
If Max0 < Vtmp Then Max0 = Vtmp
Vtmp = 0
Else
Vtmp = Vtmp + 1
End If
Next
End Function