biến mảng trong vba

Dear các anh chị ! em có 1 sub tách dữ liệu như sau dùng biến mảnh như dưới đây. Nhưng khi chạy code thì máy báo " complie error Next with out For" Các cao nhân chỉ giúp em code bị sai ở đâu ạ. Em cảm ơn ạ ! Sub tachdulieu() Dim arr() Dim i As Long, a As Long, b As Long, c As Long, lr As Long...