[Help] VBA cắt cột thành dòng theo Storecode

[ngoctuyen1995]

Thân chào cả nhà GPEX!
Mong cả nhà giúp em một việc ạ.

Hiện tại em có 01 file data địa chỉ, tên đường lập đi lập theo theo dạng cột. Em muốn dùng VBA để cắt 01 dòng của store đó thành nhiều dòng dự vào điều kiện của cột.
VD: Từ cột I đến cột L (04 cột) sẽ là một dòng (theo Store code)
Từ cột M đến cột P (04 cột) sẽ là một dòng (theo Store code)
Từ cột Q đến cột T (04 cột) sẽ là một dòng (theo Store code)
Từ cột U đến cột X (04 cột) sẽ là một dòng (theo Store code)
Tương ứng như vậy store này sẽ có 04 dòng dữ liệu
Vì số lượng dữ liệu em lên đến của nghìn Cửa hàng nếu làm bằng tay từng store vậy khá là mất thời gian ạ.
Mong cả nhà giúp đỡ, em xin chân thành cảm ơn ạ.
Em có đính kèm file Data và sheet kết quả bên cạnh ạ.

 

[befaint]

"
chỉ lọc dữ liệu thôi
"

 

[ngoctuyen1995]

"
chỉ lọc dữ liệu thôi
"

Hay quá, code nhanh lắm ạ.. Em cảm ơn Anh rất nhiều.

Chuyên Mục đòi hỏi: Nếu số lượng cột thây vì 4 cột sẽ tăng lên 6 hoặc 7 cột em sẽ chỉnh code ở phần nào vậy ạ

 

[befaint]

4 cột sẽ tăng lên 6 hoặc 7

Tìm số 4 rồi thay số khác vào. Đọc từ từ sẽ thấy.