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

nilt02

Thành viên hoạt động
Tham gia ngày
19 Tháng ba 2008
Bài viết
111
Được thích
17
Điểm
670
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

nilt02

Thành viên hoạt động
Tham gia ngày
19 Tháng ba 2008
Bài viết
111
Được thích
17
Điểm
670
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
 

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,575
Được thích
8,367
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
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).
 

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,295
Được thích
16,110
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
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:

nilt02

Thành viên hoạt động
Tham gia ngày
19 Tháng ba 2008
Bài viết
111
Được thích
17
Điểm
670
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
 

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,295
Được thích
16,110
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
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:

nilt02

Thành viên hoạt động
Tham gia ngày
19 Tháng ba 2008
Bài viết
111
Được thích
17
Điểm
670
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 :)
 

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,295
Được thích
16,110
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
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

nilt02

Thành viên hoạt động
Tham gia ngày
19 Tháng ba 2008
Bài viết
111
Được thích
17
Điểm
670
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:
Top Bottom