Em chào diễn đàn !.
Hiện em đang có một file với dữ liệu chuỗi không theo quy luật, và cần tách các ký trong chuỗi ra một cột riêng.
Em có gửi file đính kèm và có kết quả nhập tay mong muốn hiển thị. Mong nhận được sự giúp đỡ từ diễn đàn ạ.
Em cảm xin cảm ơn .
Em chào diễn đàn !.
Hiện em đang có một file với dữ liệu chuỗi không theo quy luật, và cần tách các ký trong chuỗi ra một cột riêng.
Em có gửi file đính kèm và có kết quả nhập tay mong muốn hiển thị. Mong nhận được sự giúp đỡ từ diễn đàn ạ.
Em cảm xin cảm ơn .
Thầy con chưa hiểu 1 số cái trong code, mong thầy giải đáp để con được học hỏi:
1. Tại sao mình cần chuyển dấu " " thành ","?
2. Biến t dùng để làm gì?
Khả năng là bác ấy muốn dùng cho khúc dưới nhưng quên sửa (vì nếu giả sử chuỗi không có mã Q..Q.. thì vòng for J vẫn lặp, và J vẫn có giá trị có thể =3 hoặc >3, thay T cho J ở chỗ đó hợp lý hơn, vì T sẽ = 0. Nhưng nếu vậy, đầu vòng for phải cài T=0 trước)
--> Khúc dưới là khúc này:
Mã:
If j = 3 Then KQ(i, 2) = S(1) & " " & S(2)
If j > 3 Then KQ(i, 2) = S(1) & " " & S(2) & " " & S(3)
Bác @HUONGHCKT :
Trim của VBA có sự khác biệt so với của worksheet, do vậy khúc này:
1/ Nên dùng application.Trim để loại bỏ khoảng trắng ở giữa các ký tự nếu có nhiều khoảng trắng liền kề
2/ Phần substitute theo em nên thay bằng replace thuần VBA sẽ hay hơn
3/ Không cần thay thế thành dấu phẩy mà để nguyên split luôn
Bác xem lại code, nếu dữ liệu ô B23, B24 không dư khoảng trắng thì kết quả chưa đúng!
Thầy con chưa hiểu 1 số cái trong code, mong thầy giải đáp để con được học hỏi:
1. Tại sao mình cần chuyển dấu " " thành ","?
2. Biến t dùng để làm gì?
Mình không học cơ bản nên chỉ có thể giải thích nôm na theo ý hiểu của bản thân là như thế này:
1/là để khi đưa dữ liệu vào mảng 1 chiều (mảng S) các phần tử của mảng sẽ được phân tách theo dấu ","( việc này để tránh nhầm lẫn khi trong chuỗi đưa vào có những dấu cách hay dấu khác mà khi nhìn thì không thấy). Tất nhiên là không cần chuyển đổi thì vẫn được-các phần tử được cách nhau một khoảng trống cũng vẫn được. Bạn thử thì biết ngay thôi mà.
2/ Biến t ấy thừa.
Khả năng là bác ấy muốn dùng cho khúc dưới nhưng quên sửa (vì nếu giả sử chuỗi không có mã Q..Q.. thì vòng for J vẫn lặp, và J vẫn có giá trị có thể =3 hoặc >3, thay T cho J ở chỗ đó hợp lý hơn, vì T sẽ = 0. Nhưng nếu vậy, đầu vòng for phải cài T=0 trước)
--> Khúc dưới là khúc này:
Mã:
If j = 3 Then KQ(i, 2) = S(1) & " " & S(2)
If j > 3 Then KQ(i, 2) = S(1) & " " & S(2) & " " & S(3)
Bác @HUONGHCKT :
Trim của VBA có sự khác biệt so với của worksheet, do vậy khúc này:
1/ Nên dùng application.Trim để loại bỏ khoảng trắng ở giữa các ký tự nếu có nhiều khoảng trắng liền kề
2/ Phần substitute theo em nên thay bằng replace thuần VBA sẽ hay hơn
3/ Không cần thay thế thành dấu phẩy mà để nguyên split luôn
Bác xem lại code, nếu dữ liệu ô B23, B24 không dư khoảng trắng thì kết quả chưa đúng!
Cảm ơn bạn. Tôi không học cơ bản nên nhiều khi cứ làm theo kiểu học lóm thôi.
Hôm trước có đọc của 1 anh nào đó(rất có uy tín trên diễn đàn này) nó về sự khác nhau giữa cách dùng Có Application và Application.WorksFunciton, có cả đoạn nói về hàm Trim của VBA và hàm Trim của Excel nữa mà không nhớ nổi,
Cảm ơn bạn đã cho tôi thêm kiến thức về VBA, về cách sử dụng hàm Replace của VBA thay hàm Substitute của Excel. Tôi hay đãng trí Hôm nay nhớ thì đấy, mai lại làm theo cách cũ cũng nên.
Với dữ liệu đại diện chỉ có chừng đó dạng thì không thể nói là không có quy luật để trích chuỗi, và theo đó dễ dàng trích được theo nhiều cách khác nhau. Chỉ e rằng sau đó lại tòi ra 1 vài kiểu nữa thì lại mất công sửa code.
Chào anh chị GPE! Em có một bảng dữ liệu như này: Em muốn tính tổng các cột từ Sum1 đến Sum5 theo cột Mã số, kết quả như thế này: Nếu dữ liệu ít có thể dùng lệnh Subtotal của Excel cũng ra, nhưng vì file của em dữ liệu quá lớn (hơn 95.000 dòng), nên khi em dùng lệnh subtotal có sẵn của...
Chào anh chị GPE! Em có một bảng dữ liệu như này: Em muốn tính tổng các cột từ Sum1 đến Sum5 theo cột Mã số, kết quả như thế này: Nếu dữ liệu ít có thể dùng lệnh Subtotal của Excel cũng ra, nhưng vì file của em dữ liệu quá lớn (hơn 95.000 dòng), nên khi em dùng lệnh subtotal có sẵn của...
www.giaiphapexcel.com
