Xin code VBA trả về tên tài khoản theo điều kiện

[Thanh Binh111]

Xin chào mọi người！

Nhờ mọi người hỗ trợ mình bài toán này ạ:

Dữ liệu gốc: Mình có 1 cột dữ liệu nội dung hơi lộn xộn như bên dưới, nhưng có điểm chung là trong mỗi ô sẽ chứa 1 tên tài khoản, tên tài khoản định dạng thông thường là chữ cái hoặc số hoặc chữ cái và số viết liên tiếp không có dấu cách trống.

Dữ liệu trả về: trả về tên tài khoản ứng với mỗi ô, với các điều kiện như sau:

• Nếu ô dữ liệu có chữ “mua sam” hoặc “MUA SAM”: thì trả về chuỗi ký tự liên tiếp không có dấu cách ngay sau chữ “mua sam” hoặc “MUA SAM”.
• Nếu ô dữ liệu không có chữ “mua sam” hoặc “MUA SAM”: thì trả về chuỗi ký tự liên tiếp không có dấu cách đầu tiên tính từ trái qua phải.

Như file đính kèm, nhờ mọi người cho mình xin đoạn code VBA xử lý vấn đề này ạ.

Xin cảm ơn mọi người nhiều ạ!

DỮ LIỆU GỐC	DỮ LIỆU TRẢ VỀ
mua sam HUONGZIN95	HUONGZIN95
mua sam HUYNA2016	HUYNA2016
mua sam JINJINCOM	JINJINCOM
MUA SAM VINH830818	VINH830818
mua sam LAMLUONG9C	LAMLUONG9C
NANGLE203	NANGLE203
mua sam PHATTAI142	PHATTAI142
mua sam CX5138 315062 315062	CX5138
mua sam TEOEM02	TEOEM02
MUA SAM 0965715996	0965715996
VANDUNG77U	VANDUNG77U

 

[BuiQuangThuan]

Xin chào mọi người！

Nhờ mọi người hỗ trợ mình bài toán này ạ:

Dữ liệu gốc: Mình có 1 cột dữ liệu nội dung hơi lộn xộn như bên dưới, nhưng có điểm chung là trong mỗi ô sẽ chứa 1 tên tài khoản, tên tài khoản định dạng thông thường là chữ cái hoặc số hoặc chữ cái và số viết liên tiếp không có dấu cách trống.

Dữ liệu trả về: trả về tên tài khoản ứng với mỗi ô, với các điều kiện như sau:

• Nếu ô dữ liệu có chữ “mua sam” hoặc “MUA SAM”: thì trả về chuỗi ký tự liên tiếp không có dấu cách ngay sau chữ “mua sam” hoặc “MUA SAM”.
• Nếu ô dữ liệu không có chữ “mua sam” hoặc “MUA SAM”: thì trả về chuỗi ký tự liên tiếp không có dấu cách đầu tiên tính từ trái qua phải.

Như file đính kèm, nhờ mọi người cho mình xin đoạn code VBA xử lý vấn đề này ạ.

Xin cảm ơn mọi người nhiều ạ!

DỮ LIỆU GỐC	DỮ LIỆU TRẢ VỀ
mua sam HUONGZIN95	HUONGZIN95
mua sam HUYNA2016	HUYNA2016
mua sam JINJINCOM	JINJINCOM
MUA SAM VINH830818	VINH830818
mua sam LAMLUONG9C	LAMLUONG9C
NANGLE203	NANGLE203
mua sam PHATTAI142	PHATTAI142
mua sam CX5138 315062 315062	CX5138
mua sam TEOEM02	TEOEM02
MUA SAM 0965715996	0965715996
VANDUNG77U	VANDUNG77U

Bạn thử dùng chức năng FlashFill coi

 

[Thanh Binh111]

Bạn thử dùng chức năng FlashFill coi

Vâng, tại quy luật mỗi ô không giống nhau sợ không dùng được FlashFill ạ

 

[Phuocam]

Thử:

=IFERROR(TEXTBEFORE(TEXTAFTER(UPPER(A2),"MUA SAM ")&" "," "),A2)

 

[zzzsxxx01]

Dùng thử file code cùi bắp mình học mót xem có đáp ứng được yêu cầu của bạn không.