Code Tách dữ liệu dựa vào dấu ";" và copy theo dòng

[ngoctuyen1995]

Thân chào cả nhà GPEX,

Hiện tại em muốn dùng VBA để tách 01 chuỗi dựa vào dấu ";" và copy xuống dòng ngay dòng tách đó tìm mãi mà vẫn không làm được, mong cả nhà giúp em ạ.

Ví dụ Data em có:
1.Yen;2.Bao;3.Tuyen

thì sẽ tách thành 3 dòng:
Dòng 1: 1.Yen
Dòng 2: 2.Bao
Dòng 3: 3.Tuyen
tương tự tiếp tục tách các dòng còn lại ạ.
Em có đính kèm file và kết quả em làm bằng tay.
Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ.

 

[Maika8008]

Thân chào cả nhà GPEX,

Hiện tại em muốn dùng VBA để tách 01 chuỗi dựa vào dấu ";" và copy xuống dòng ngay dòng tách đó tìm mãi mà vẫn không làm được, mong cả nhà giúp em ạ.

Ví dụ Data em có:
1.Yen;2.Bao;3.Tuyen

thì sẽ tách thành 3 dòng:
Dòng 1: 1.Yen
Dòng 2: 2.Bao
Dòng 3: 3.Tuyen
tương tự tiếp tục tách các dòng còn lại ạ.
Em có đính kèm file và kết quả em làm bằng tay.
Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ.

Việc này dùng chức năng Text to Column của Excel được đấy.

 

[ngoctuyen1995]

Việc này dùng chức năng Text to Column của Excel được đấy.

Text Column nó chỉ tách theo dạng cột chứ không ra thành dòng như em mong muốn ạ.

 

[dongducnhiem]

Text Column nó chỉ tách theo dạng cột chứ không ra thành dòng như em mong muốn ạ.

Thì copy rồi dùng spate special -transpdse dán thôi!

 

[ngoctuyen1995]

Thì copy rồi dùng spate special -transpdse dán thôi!

làm việc với dữ liệu nhiều em thấy cách này không khả quan ạ.

 

[quanluu]

Thân chào cả nhà GPEX,

Hiện tại em muốn dùng VBA để tách 01 chuỗi dựa vào dấu ";" và copy xuống dòng ngay dòng tách đó tìm mãi mà vẫn không làm được, mong cả nhà giúp em ạ.

Ví dụ Data em có:
1.Yen;2.Bao;3.Tuyen

thì sẽ tách thành 3 dòng:
Dòng 1: 1.Yen
Dòng 2: 2.Bao
Dòng 3: 3.Tuyen
tương tự tiếp tục tách các dòng còn lại ạ.
Em có đính kèm file và kết quả em làm bằng tay.
Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ.

m code qua ntn, giả sử dữ liệu ở cột A và muốn điền kết quả vào cột B

for i = 1 to dongcuoidl
ar = split(cells(i,1),";")
for j = 0 to ubound(ar)
k = k + 1
cells(k,2) = ar(j)
next
next

 

[ngoctuyen1995]

m code qua ntn, giả sử dữ liệu ở cột A và muốn điền kết quả vào cột B

for i = 1 to dongcuoidl
ar = split(cells(i,1),";")
for j = 0 to ubound(ar)
k = k + 1
cells(k,2) = ar(j)
next
next

ở Sheet kết quả em sao, thì mong muốn em như vậy đó ạ

 

[johnnylinhanh]

ở Sheet kết quả em sao, thì mong muốn em như vậy đó ạ

Bạn xem file bên dưới thử nhé

 

[ngoctuyen1995]

Bạn xem file bên dưới thử nhé

Em cảm ơn anh đã giúp đỡ ạ,
nhờ code của anh mà em làm được rồi, Chúc anh sức khỏe và thành công ạ.

 

[ngoctuyen1995]

Bạn xem file bên dưới thử nhé

cho em hỏi thêm 1 câu nữa ạ, em muốn tô vàng cho kết quả giống sheet kết quả của em thì em sửa code chỗ nào vậy ạ? em cảm ơn anh ạ

 

[johnnylinhanh]

cho em hỏi thêm 1 câu nữa ạ, em muốn tô vàng cho kết quả giống sheet kết quả của em thì em sửa code chỗ nào vậy ạ? em cảm ơn anh ạ

Bạn xem file nhé
Chú ý: sau dấu ";" có những trường hợp có khoảng trắng => kết quả đã loại khoảng trắng đó ra rồi nhé

 

[ngoctuyen1995]

Bạn xem file nhé
Chú ý: sau dấu ";" có những trường hợp có khoảng trắng => kết quả đã loại khoảng trắng đó ra rồi nhé

Em cảm ơn anh ạ..!

 

[hocexcel_1991]

Công thức tham khảo. Excel2019

=IFERROR(SUBSTITUTE(INDEX(FILTERXML("<m><n>"&SUBSTITUTE(TEXTJOIN(";",1,SUBSTITUTE(Data!$A$2:$A$100,";","|")&";"&Data!$A$2:$A$100),";","</n><n>")&"</n></m>","//n"),ROWS($1:1)),"|",";"),"")

 

[hungvinh1402]

Mình có dữ câu hỏi như bên dưới mong mọi người hỗ trợ. Dữ liệu thực tế lớn hơn nhiều, có điểm trung là ngăn cách nhau bởi dấu phẩy.
xin cảm ơn

 

[Hoàng Tuấn 868]

Mình có dữ câu hỏi như bên dưới mong mọi người hỗ trợ. Dữ liệu thực tế lớn hơn nhiều, có điểm trung là ngăn cách nhau bởi dấu phẩy.
xin cảm ơn View attachment 275397

Bạn xem thử nhé. . .
.

 

[HUONGHCKT]

Mình có dữ câu hỏi như bên dưới mong mọi người hỗ trợ. Dữ liệu thực tế lớn hơn nhiều, có điểm trung là ngăn cách nhau bởi dấu phẩy.
xin cảm ơn View attachment 275397

Thử hàm UDF này xem sao.
Cú pháp : =Tach($ ô cần tách$, Row(a1))
copy xuống dưới đến khi lỗi #value

 

[bebo021999]

code:

Option Explicit
Function tachchuoi(cell As Range, r As Long)
tachchuoi = Split(cell.Value, ",")(r - 1)
End Function

Tại D3:

=IFERROR(tachchuoi($B$3,ROWS($1:1)),"")

Copy xuống[/php]

 

[hungvinh1402]

Xin cảm ơn mọi người đã hỗ trợ ạ. Em làm được rồi.