Tách số điện thoại ra khỏi 1 chuỗi text lộn xộn (1 người xem)

[vuminhducsg]

ANH CHỊ CHO EM HỎI, EM CÓ 1 CỘT CÓ CHỮA CÁC KÝ TỰ LỘN XỘN, trong mỗi ô đó có số điện thoại liên hệ ví dụ như sau:



VUCONGTHUONG$661nguyenhuutho$0122385910PHUONGTANPHONGQ7$HOCHIMINH$HOCHIMINH$R

NGUYENHUUTHONG$12841quoclo1aphuongtantaoquanbinhtantphcm$HOCHIMINH$HOCHIMINH$R

NGUYENHUYHOANGTHANG$0913888787BanXayDungPVGASso673NguyenHuuTho$XAPHUOCKIENHUYENNHABETPHCM$HOCHIMINH$HOCHIMINH$R

NGUYENMINHIEU$b8-b9nguyenhuutho$HOCHIMINH$HOCHIMINH$R

YEECHRISTOPHERCHFOOK$382NguyenHuuTho0988787856pKhueTrungCamLe$DANANG$DANANG$R



Nay em muốn lấy số điện thoại đó ra riêng 1 ô kế bên, vậy thì phải viết công thức như thế nào ạ
Các ô này đều không có khoảng cách, không có dấu . dấu ,


Xin anh chị vui lòng giúp em với ạ!

Xin cảm ơn mọi người!

 

[hungpecc1]

ANH CHỊ CHO EM HỎI, EM CÓ 1 CỘT CÓ CHỮA CÁC KÝ TỰ LỘN XỘN, trong mỗi ô đó có số điện thoại liên hệ ví dụ như sau:



VUCONGTHUONG$661nguyenhuutho$0122385910PHUONGTANPHONGQ7$HOCHIMINH$HOCHIMINH$R

NGUYENHUUTHONG$12841quoclo1aphuongtantaoquanbinhtantphcm$HOCHIMINH$HOCHIMINH$R

NGUYENHUYHOANGTHANG$0913888787BanXayDungPVGASso673NguyenHuuTho$XAPHUOCKIENHUYENNHABETPHCM$HOCHIMINH$HOCHIMINH$R

NGUYENMINHIEU$b8-b9nguyenhuutho$HOCHIMINH$HOCHIMINH$R

YEECHRISTOPHERCHFOOK$382NguyenHuuTho0988787856pKhueTrungCamLe$DANANG$DANANG$R



Nay em muốn lấy số điện thoại đó ra riêng 1 ô kế bên, vậy thì phải viết công thức như thế nào ạ
Các ô này đều không có khoảng cách, không có dấu . dấu ,


Xin anh chị vui lòng giúp em với ạ!

Xin cảm ơn mọi người!

dùng hàm tự tạo bằng VBA thôi !

 

[hungpecc1]

ANH CHỊ CHO EM HỎI, EM CÓ 1 CỘT CÓ CHỮA CÁC KÝ TỰ LỘN XỘN, trong mỗi ô đó có số điện thoại liên hệ ví dụ như sau:



VUCONGTHUONG$661nguyenhuutho$0122385910PHUONGTANPHONGQ7$HOCHIMINH$HOCHIMINH$R

NGUYENHUUTHONG$12841quoclo1aphuongtantaoquanbinhtantphcm$HOCHIMINH$HOCHIMINH$R

NGUYENHUYHOANGTHANG$0913888787BanXayDungPVGASso673NguyenHuuTho$XAPHUOCKIENHUYENNHABETPHCM$HOCHIMINH$HOCHIMINH$R

NGUYENMINHIEU$b8-b9nguyenhuutho$HOCHIMINH$HOCHIMINH$R

YEECHRISTOPHERCHFOOK$382NguyenHuuTho0988787856pKhueTrungCamLe$DANANG$DANANG$R



Nay em muốn lấy số điện thoại đó ra riêng 1 ô kế bên, vậy thì phải viết công thức như thế nào ạ
Các ô này đều không có khoảng cách, không có dấu . dấu ,


Xin anh chị vui lòng giúp em với ạ!

Xin cảm ơn mọi người!

Tặng bạn hàm này :

Public Function LONXON(S As String) As String
    With CreateObject("VBscript.regexp")
        .Pattern = "0\d{9,10}"
        If .test(S) Then LONXON = .Execute(S)(0)
    End With
End Function

sau khi add hàm này vào công thức cho một ô B1 = LONXON(A1)

 

[n0thing1988]

Hàm tự tạo mà tôi sưu tầm được
Bạn chép vào module

Function Tachsdt(s As String)
With CreateObject("Vbscript.RegExp")
.Global = True
.Pattern = "\d{10,11}"
Tachsdt = .Execute(s).Item(0)
End With
End Function

 

[vuminhducsg]

Em không biết lập trình VBA ạ

Em cám ơn anh

 

[lenongree]

ANH CHỊ CHO EM HỎI, EM CÓ 1 CỘT CÓ CHỮA CÁC KÝ TỰ LỘN XỘN, trong mỗi ô đó có số điện thoại liên hệ ví dụ như sau:



VUCONGTHUONG$661nguyenhuutho$0122385910PHUONGTANPHONGQ7$HOCHIMINH$HOCHIMINH$R

NGUYENHUUTHONG$12841quoclo1aphuongtantaoquanbinhtantphcm$HOCHIMINH$HOCHIMINH$R

NGUYENHUYHOANGTHANG$0913888787BanXayDungPVGASso673NguyenHuuTho$XAPHUOCKIENHUYENNHABETPHCM$HOCHIMINH$HOCHIMINH$R

NGUYENMINHIEU$b8-b9nguyenhuutho$HOCHIMINH$HOCHIMINH$R

YEECHRISTOPHERCHFOOK$382NguyenHuuTho0988787856pKhueTrungCamLe$DANANG$DANANG$R



Nay em muốn lấy số điện thoại đó ra riêng 1 ô kế bên, vậy thì phải viết công thức như thế nào ạ
Các ô này đều không có khoảng cách, không có dấu . dấu ,


Xin anh chị vui lòng giúp em với ạ!

Xin cảm ơn mọi người!

Giả sử dữ liệu bạn tại cột A, bạn dùng CT này ở B1:

B1="0"&IFERROR(IFERROR(LOOKUP(10^10,--MID(A1,ROW(INDIRECT("1:"&LEN(A1)-9)),10)),LOOKUP(10^10,--MID(A1,ROW(INDIRECT("1:"&LEN(A1)-8)),9))),"")

Rồi fill xuống!!
P/s: số đt là 9 hoặc 10 số nhe bạn!!

 

[vuminhducsg]

Dạ nhưng nếu 1 ô có đến 2 hoặc 3 số điện thoại thì nó chỉ ra 1 số cuối thôi ạ, làm sao để khác phục vậy ạ

 

[vuminhducsg]

Giả sử dữ liệu bạn tại cột A, bạn dùng CT này ở B1:

B1="0"&IFERROR(IFERROR(LOOKUP(10^10,--MID(A1,ROW(INDIRECT("1:"&LEN(A1)-9)),10)),LOOKUP(10^10,--MID(A1,ROW(INDIRECT("1:"&LEN(A1)-8)),9))),"")

Rồi fill xuống!!
P/s: số đt là 9 hoặc 10 số nhe bạn!!

Dạ nhưng nếu 1 ô có đến 2 hoặc 3 số điện thoại thì nó chỉ ra 1 số cuối thôi ạ, làm sao để khác phục vậy ạ. Ví dụ như:

NGUYENHUYHOANGTHANG$0913888787BanXayDungPVGASso673NguyenHuuTho$0913888787XAPHUOCKIENHUYENN HABETPHCM$HOCHIMINH$HOCHIMINH$R​

​

 

[lenongree]

Dạ nhưng nếu 1 ô có đến 2 hoặc 3 số điện thoại thì nó chỉ ra 1 số cuối thôi ạ, làm sao để khác phục vậy ạ. Ví dụ như:

NGUYENHUYHOANGTHANG$0913888787BanXayDungPVGASso673NguyenHuuTho$0913888787XAPHUOCKIENHUYENN HABETPHCM$HOCHIMINH$HOCHIMINH$R​

vậy bạn muốn lấy sao, lấy số cuối, số đầu hay lấy hết

 

[vuminhducsg]

vậy bạn muốn lấy sao, lấy số cuối, số đầu hay lấy hết

dạ em muốn lấy hết ạ, vì nó rất quan trọng

 

[lenongree]

dạ em muốn lấy hết ạ, vì nó rất quan trọng

Vậy bạn sữa CT lại như thế này:

B1="0"&IFERROR(IFERROR(LARGE(IFERROR(--MID($A1,ROW(INDIRECT("1:"&LEN($A1)-9)),10),0),COLUMN(A1)),LARGE(IFERROR(--MID($A1,ROW(INDIRECT("1:"&LEN($A1)-8)),9),0),COLUMN(A1))),"")

Ctrl+Shift+Enter rồi fill sang phải đến khi nào không có số liệu thì dừng, rồi fill xuống!

 

[vuminhducsg]

Vậy bạn sữa CT lại như thế này:

B1="0"&IFERROR(IFERROR(LARGE(IFERROR(--MID($A1,ROW(INDIRECT("1:"&LEN($A1)-9)),10),0),COLUMN(A1)),LARGE(IFERROR(--MID($A1,ROW(INDIRECT("1:"&LEN($A1)-0)),9),0),COLUMN(A1))),"")

Ctrl+Shift+Enter rồi fill sang phải đến khi nào không có số liệu thì dừng, rồi fill xuống!

Em cám ơn Lenongree nhiều lắm, và cám ơn mọi người đã giúp