Yêu cầu cơ bản của kiểm soát cơ sở dữ liệu là "phải" nhập liệu theo thứ tự thời gian, bạn nhập không theo trình tự rất dễ sai sót .
Thêm lệnh sort dữ liệu
Sub ThuChi()
Dim aThu(), aChi(), res()
Dim sRow&, T&, C&, k&, ton#
Application.ScreenUpdating = False
With Sheets("Thu ")
T =...