Giúp chuyển dữ liệu hàng thành cột theo từng mảng

[congtuxuthanh]

Tình hình là e đang kiểm kê kho, và cập nhật thông tin lên hệ thông quả lý chung của Cty. Vấn đề là nó có 2 dạng mẫu: một dạng kê theo bảng ngang (để cập nhật vào hệ thồng), một dạng sắp xếp lại theo hàng dọc để ký lưu.
Trong bảng ngang mỗi bì trong kho sẽ được thể hiện trên 1 dòng: có các thông tin chung từ cột A=>J, sau đó mỗi loại hồ sơ trong bì được mô tả trong 8 cột tiếp theo (K=>R; S=>Z; AA=>AH;...).
Trong Bảng dọc: mỗi loại hồ sơ trong 1 bì được mô tả trên 1 hàng ngang (K=>R), và từ cột A=>J là các thông tin chung của bì kho đó (tùy bì kho có bao nhiêu loại hồ sơ mà có bấy nhiêu dòng tương ứng).

Em đang kiểm và điền thông tin theo bảng Ngang, giờ em muốn chuyển nó thành dạng bảng Dọc. Các bác có cách nào hay chỉ em vơi.
Em gửi kèm file để các bác xem.
Mong nhận được sự giúp đỡ từ mọi người. Cảm ơn các bác rất nhiều.

 

[Ba Tê]

Tình hình là e đang kiểm kê kho, và cập nhật thông tin lên hệ thông quả lý chung của Cty. Vấn đề là nó có 2 dạng mẫu: một dạng kê theo bảng ngang (để cập nhật vào hệ thồng), một dạng sắp xếp lại theo hàng dọc để ký lưu.
Trong bảng ngang mỗi bì trong kho sẽ được thể hiện trên 1 dòng: có các thông tin chung từ cột A=>J, sau đó mỗi loại hồ sơ trong bì được mô tả trong 8 cột tiếp theo (K=>R; S=>Z; AA=>AH;...).
Trong Bảng dọc: mỗi loại hồ sơ trong 1 bì được mô tả trên 1 hàng ngang (K=>R), và từ cột A=>J là các thông tin chung của bì kho đó (tùy bì kho có bao nhiêu loại hồ sơ mà có bấy nhiêu dòng tương ứng).

Em đang kiểm và điền thông tin theo bảng Ngang, giờ em muốn chuyển nó thành dạng bảng Dọc. Các bác có cách nào hay chỉ em vơi.
Em gửi kèm file để các bác xem.
Mong nhận được sự giúp đỡ từ mọi người. Cảm ơn các bác rất nhiều.

Thử với file này và nhớ Enable Macros

 

[congtuxuthanh]

Cảm ơn bác rất nhiều. Mình mới thử thấy ổn lắm.

Một lần nữa cảm ơn bác.

 

[Ba Tê]

Cảm ơn bác rất nhiều. Mình mới thử thấy ổn lắm.

Một lần nữa cảm ơn bác.

Để không bỏ trống các dòng không có số liệu, tôi đã thay file đình kèm bài #2, Bạn xem lại coi có sai sót gì nữa không.

 

[congtuxuthanh]

Bác Ba Te ơi. Bác chưa hiểu ý em rồi. Em nhờ bác có thể giúp em mở rộng trường lấy dữ liệu (Loại hồ sơ được mô tả trong 8 cột tiếp theo (K=>R; S=>Z; AA=>AH;AI=>AP; AQ=>AX,.....).). Bác giúp cho em lấy dữ liệu cho khoảng 40 loại hồ sơ thì tốt quá. Ở file bác gửi em mới thấy chọn được 3 loại (chạy từ K=>R; S=>Z; AA=>AH) theo mẫu của em, khi em làm với các bì có nhiều hồ sơ hơn thì cũng chỉ lấy được dữ liệu của 3 loại đầu này, các loại tiếp theo ko có lọc sang dòng. Em gửi lại bác file nhé. Có gì mong bác giúp.
Rất cảm ơn bác.

 

[Ba Tê]

Bác Ba Te ơi. Bác chưa hiểu ý em rồi. Em nhờ bác có thể giúp em mở rộng trường lấy dữ liệu (Loại hồ sơ được mô tả trong 8 cột tiếp theo (K=>R; S=>Z; AA=>AH;AI=>AP; AQ=>AX,.....).). Bác giúp cho em lấy dữ liệu cho khoảng 40 loại hồ sơ thì tốt quá. Ở file bác gửi em mới thấy chọn được 3 loại (chạy từ K=>R; S=>Z; AA=>AH) theo mẫu của em, khi em làm với các bì có nhiều hồ sơ hơn thì cũng chỉ lấy được dữ liệu của 3 loại đầu này, các loại tiếp theo ko có lọc sang dòng. Em gửi lại bác file nhé. Có gì mong bác giúp.
Rất cảm ơn bác.

Bạn lấy file tôi gởi trên bài #2
Trong Sub tìm dòng này (dòng thứ 6 từ trên xuống)

ReDim dArr(1 To UBound(sArr, 1) * 10, 1 To 18)

Thay số 10 thành 50 nếu bạn có thể đến 50 bì HS gì đó, hoặc 100 nếu có thể đến 100 bì HS

ReDim dArr(1 To UBound(sArr, 1) * 50, 1 To 18)

 

[congtuxuthanh]

Vẫn ko được bác ơi. Bác kiểm tra trực tiếp file em gửi ở bài #5 với.
Trong bảng đó với các bì từ thứ 3 trở đi, ở sheet Ngang có tới hơn 10 loại hồ sơ, nhưng khi cho chạy thì bên Sheet Dọc chỉ hiện có 3 dòng đối với 1 bì thôi ạ (đúng ra bên Sheet Dọc phải chạy ra hơn 10 dòng đối với 1 bì tương ứng chứ).
Bác xem lại giúp em với. Em đã thay giá trị như bác nói rồi mà vẫn ko được ạ.

 

[Ba Tê]

Vẫn ko được bác ơi. Bác kiểm tra trực tiếp file em gửi ở bài #5 với.
Trong bảng đó với các bì từ thứ 3 trở đi, ở sheet Ngang có tới hơn 10 loại hồ sơ, nhưng khi cho chạy thì bên Sheet Dọc chỉ hiện có 3 dòng đối với 1 bì thôi ạ (đúng ra bên Sheet Dọc phải chạy ra hơn 10 dòng đối với 1 bì tương ứng chứ).
Bác xem lại giúp em với. Em đã thay giá trị như bác nói rồi mà vẫn ko được ạ.

Hơi bị oải à nghe.
Sao tôi bấm 1 phát nó ra đến dòng 142?

 

[congtuxuthanh]

Em cũng làm hết cách rồi mà lúc chạy nó chỉ đc thế này thôi bác này.

Mặc dù bên dữ liệu sheet Ngang các bì: B8301702; B8302397; B8302481; B8300002 đều có thông tin hồ sơ trải dài đến mảng cột BW-CD (nghĩa là khoảng 6-7 loại hồ sơ), nhưng bên Sheet Doc của mỗi bì chỉ hiển thị có 3 dòng thôi bác (em gửi kèm hình để bác xem).

 

[congtuxuthanh]

ôi. Em lại ko thấy file mới bác gửi. Em làm được ngon lành rồi. cám ơn bác rất nhiều.