Trường hợp này phải dùng thuật toán đệ quy
Tôi viết cho bạn một UDF dùng dưới dạng công thức mảng.
Hàm để gọi trên bảng tính:
Function ChiaThep(ByVal DaiThanh As Double, Doan_ As Range)
Dim KetQua() As Long, Doan() As Double, i As Long, j As Long
ReDim Doan(1 To Doan_.Rows.Count)
For i = 1 To...