Chào mọi người, em có đoạn code sau để chạy thẻ kho, không biết bị lỗi đọan nào, nhờ anh chị xem giúp ạ.
Option Explicit
Sub LocXuatNhap()
Dim ShN As Worksheet, ShX As Worksheet, ShTK As Worksheet
Dim arr(), kq(), i As Long, a As Long, lr As Long
Dim TuNgay As Date, DenNgay As Date...