Cần sửa code sao cho phù hợp

[vubaduc1993]

em viết xong code nhập file và xuất file .txt không hiểu sao khi xuất file .txt lại xuất hiện xuống dòng trong file
Nhập file .txt SP_data - Copy => xuất file vào SP_data nhưng lại xuất hiện xuống dòng như ảnh
Bác nào code thêm hộ em sao cho khi xuất vào file SP_data thì không có cách xuống dòng nữa - thank các bác

 

[excel_lv1.5]

em viết xong code nhập file và xuất file .txt không hiểu sao khi xuất file .txt lại xuất hiện xuống dòng trong file
Nhập file .txt SP_data - Copy => xuất file vào SP_data nhưng lại xuất hiện xuống dòng như ảnh
Bác nào code thêm hộ em sao cho khi xuất vào file SP_data thì không có cách xuống dòng nữa - thank các bác

View attachment 212938

Bạn sửa đoạn này trong Sub txtOut_Click:

arr = Range("A1:Q" & [A65000].End(xlUp).Row)

thành

arr = Range("A1:Q" & [Q65000].End(xlUp).Row)