Sorry, dòng của bạn mới chính xác, may lúc khai báo là ArrXH1 có số dòng > ArrXH2. Không thì nó báo lỗi thiếu dòng.À quên : ReDim ArrData(1 To UBound(ArrNh) + UBound(ArrXh1) + UBound(ArrXh1), 1 To 37)
tại sao không là : ReDim ArrData(1 To UBound(ArrNh) + UBound(ArrXh1) + UBound(ArrXh2), 1 To 37)
Nếu thay bằng code hàng thứ hai thì có sao không, vbì mình thử chỉnh lại như dòng 2 thì KQ hình như vẫn y như cũ....?