Sắp xếp và thêm dữ liệu

Liên hệ QC

nilt02

Thành viên hoạt động
Tham gia
19/3/08
Bài viết
119
Được thích
17
Giới tính
Nam
Hi các bạn,
Mình có dữ liệu khoảng vài trăm cột, độ dài mỗi cột khoảng 10k dòng, vì vậy rất lớn mà làm thủ công thì lâu quá. Bạn nào giúp mình với. Yêu cầu trong file như sau:
- Sheet Data: chứa dữ liệu cần sắp xếp
- Sheet masothamchieu: là những thông tin thêm cần cho vào khi gộp thành 1 cột
- Sheet Sapxep:
+ Cột A: Là cột DATE được lặp đi lặp lại cùng với giá trị tương ứng của cột. Trước khi insert cột DATE cần thêm dòng:
Ví dụ dòng đầu thêm:
#16
!XH1

sau khi kết thúc dữ liệu cột date và data của XH1 thì sang XH2 thêm:
END
#12
!XH2

Và cứ thế tiếp theo thêm dữ liệu XH3, XH4....XH444 cho đến hết các cột. Có rất nhiều nhưng mình chỉ ví dụ 1 chút vì file nặng.
** Chú ý: Ô cell nào ko có dữ liệu mà chỉ có dấu (-) thì bỏ cả dòng đó.
Các bạn xem file đính kèm giúp mình với nhé.
Cảm ơn các bạn nhiều.
 

File đính kèm

  • Sapxep.xlsx
    39.2 KB · Đọc: 11
có bạn nào gợi ý cho mình được không ? mình ko biết cách để insert thêm mấy dòng đó
cảm ơn các bạn đã đọc tin
 
Hi các bạn,
Mình có dữ liệu khoảng vài trăm cột, độ dài mỗi cột khoảng 10k dòng, vì vậy rất lớn mà làm thủ công thì lâu quá. Bạn nào giúp mình với. Yêu cầu trong file như sau:
- Sheet Data: chứa dữ liệu cần sắp xếp
- Sheet masothamchieu: là những thông tin thêm cần cho vào khi gộp thành 1 cột
- Sheet Sapxep:
+ Cột A: Là cột DATE được lặp đi lặp lại cùng với giá trị tương ứng của cột. Trước khi insert cột DATE cần thêm dòng:
Ví dụ dòng đầu thêm:
#16
!XH1

sau khi kết thúc dữ liệu cột date và data của XH1 thì sang XH2 thêm:
END
#12
!XH2

Và cứ thế tiếp theo thêm dữ liệu XH3, XH4....XH444 cho đến hết các cột. Có rất nhiều nhưng mình chỉ ví dụ 1 chút vì file nặng.
** Chú ý: Ô cell nào ko có dữ liệu mà chỉ có dấu (-) thì bỏ cả dòng đó.
Các bạn xem file đính kèm giúp mình với nhé.
Cảm ơn các bạn nhiều.
Góp ý cho bạn:
1/ Với nội dung bạn nêu thì cần phải sử dụng VBA. Vì vậy, bạn nên đăng bài trong Box Lập trình với Excel.
2/ Tiêu đề bài viết có thể là: "Giúp code Lặp qua từng cột sheet Data và gán và sheet Sapxep theo chiều dọc".
3/ Nội dung bên dưới bạn nên giải trình cụ thể là cột bắt đầu vòng lặp là cột B đến cột nào theo dữ liệu thực tế của bạn. Khi lặp từng cột thì bỏ qua Cell trống (không có dữ liệu).
 
có bạn nào gợi ý cho mình được không ? mình ko biết cách để insert thêm mấy dòng đó
cảm ơn các bạn đã đọc tin
Tạo 1 mảng Kết quả.
1/ Duyệt từng cột sheets "Data" từ cột B, dòng 1 sang phải, lấy mã "Name"
2/ Duyệt từng dòng sheet "Masothamchieu", lấy ID, Mso.
- Thêm 1 dòng kết quả: "ID"
- Thêm 1 dòng kết quả: "Name"
3/ Duyệt từng dòng sheet "Data"
- Nếu dữ liệu của dòng - cột khác "-" thì thêm 1 dòng kết quả, lấy dữ liệu "gì đó"
4/ Gán mảng kết quả xuống sheet "Sapxep"
 
Lần chỉnh sửa cuối:
e Lặp qua từng cột sheet Data và gán và sheet Sapxep theo chiều dọc".
3/ Nội dung bên dưới bạn nên giải trình cụ
Của bạn gần đúng đó ạ, , chỉ thêm vào "END" cho dễ hiểu hơn:

1/ Duyệt từng cột sheets "Data" từ cột B, dòng 1 sang phải, lấy mã "Name"
2/ Duyệt từng dòng sheet "Masothamchieu", lấy ID, Mso.
- Thêm 1 dòng kết quả: "ID"
- Thêm 1 dòng kết quả: "Name"
- Thêm 1 dòng kết quả: "END" khi kết thúc 1 cột
3/ Duyệt từng dòng sheet "Data"
- Nếu dữ liệu của dòng - cột khác "-" thì thêm 1 dòng kết quả, lấy dữ liệu "gì đó"
4/ Gán mảng kết quả xuống sheet "Sapxep"

Bạn có thể làm trên file này được ko ? cảm ơn bạn nhiều :D
 
có bạn nào gợi ý cho mình được không ? mình ko biết cách để insert thêm mấy dòng đó
Bạn yêu cầu "gợi ý" mà.
Bạn có thể làm trên file này được ko ?
"- Thêm 1 dòng kết quả: "END" khi kết thúc 1 cột "
Dòng lệnh này đưa xuống cuối mục 3/
Có cột toàn là "-" không biết muốn kết quả ra sao.

Tôi làm được mới dám "gợi ý" cho bạn. Cố lên đi.
 
Lần chỉnh sửa cuối:
Bạn yêu cầu "gợi ý" mà.

"- Thêm 1 dòng kết quả: "END" khi kết thúc 1 cột "
Dòng lệnh này đưa xuống cuối mục 3/
Có cột toàn là "-" không biết muốn kết quả ra sao.

Tôi làm được mới dám "gợi ý" cho bạn. Cố lên đi.
Hi...cột mà chỉ có (-) thì thôi ạ ^_^. Tại mình không thấy ai trả lời nên mới nói vậy, gợi ý vậy nhưng mình ko biết VBA nên cũng chào thua *_*. Bạn thử cho mình xem đc chứ ? :D
cảm ơn bạn nhiều :)
 
Hi...cột mà chỉ có (-) thì thôi ạ ^_^. Tại mình không thấy ai trả lời nên mới nói vậy, gợi ý vậy nhưng mình ko biết VBA nên cũng chào thua *_*. Bạn thử cho mình xem đc chứ ? :D
cảm ơn bạn nhiều :)
Chú ý giao tiếp đừng viết tắt (đc), đừng xài tiếng "ba rọi" (hi).
Hà tiện công gõ vài ký tự thì làm sao nhờ người khác gõ hàng ngàn ký tự trong VBA cho bạn.
 

File đính kèm

  • Sapxep_2.rar
    45.6 KB · Đọc: 14
Chú ý giao tiếp đừng viết tắt (đc), đừng xài tiếng "ba rọi" (hi).
Hà tiện công gõ vài ký tự thì làm sao nhờ người khác gõ hàng ngàn ký tự trong VBA cho bạn.
Đúng cao thủ pro, giải thích công thức rõ ràng. Cảm ơn bạn rất nhiều .
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom