Nhờ tách các SDT 10 số ra khỏi chuỗi

[trienhove]

Nhờ anh chị em tách giùm với ạ.

 

[Phuocam]

Nhờ anh chị em tách giùm với ạ.

View attachment 250727

Excel của bạn có hàm TEXTJOIN không?

 

[trienhove]

Excel của bạn có hàm TEXTJOIN không?

Dạ ko ạ. Mình ko có cái này

 

[vanaccex]

Xem Thử làm này

Function ReGexChuoi(aChuoi As String, regexPattern As String) As String
    Dim regExs As Object, Matches As Object, aKetQua As Variant, i As Long
    Set regExs = CreateObject("vbscript.regexp")
    With regExs
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = regexPattern
    End With
    If regExs.Test(aChuoi) Then
        Set Matches = regExs.Execute(aChuoi)
        ReDim aKetQua(0 To Matches.Count)
        For i = 0 To Matches.Count - 1
            aKetQua(i) = Matches.Item(i)
        Next i
        ReGexChuoi = Join(aKetQua, " ")
    Else
        ReGexChuoi = "Không co k" & ChrW(7871) & "t qu" & ChrW(7843)
    End If
End Function

 

[Nhattanktnn]

Dạ ko ạ. Mình ko có cái này

Hoặc thử UDF này (cũng tương tự bạn Vân)

Option Explicit

Function TachSDT(Text As String) As String
Static Re As Object, Ptn As String
Dim KQ, b As Object
Ptn = "(0{1}\d{9})(?=\D)"
If Re Is Nothing Then Set Re = CreateObject("VBScript.Regexp")
With Re
    .Global = True
    .Pattern = Ptn
    If .test(Text) Then
        Set KQ = .Execute(Text)
        For Each b In KQ
            TachSDT = IIf(TachSDT = "", b, TachSDT & ";" & b)
        Next
    End If
End With
End Function

 

[trienhove]

Hoặc thử UDF này (cũng tương tự bạn Vân)

Option Explicit

Function TachSDT(Text As String) As String
Static Re As Object, Ptn As String
Dim KQ, b As Object
Ptn = "(0{1}\d{9})(?=\D)"
If Re Is Nothing Then Set Re = CreateObject("VBScript.Regexp")
With Re
    .Global = True
    .Pattern = Ptn
    If .test(Text) Then
        Set KQ = .Execute(Text)
        For Each b In KQ
            TachSDT = IIf(TachSDT = "", b, TachSDT & ";" & b)
        Next
    End If
End With
End Function

Cảm ơn bạn. mình làm được rồi

Bài đã được tự động gộp: 7/12/20

Xem Thử làm này

Function ReGexChuoi(aChuoi As String, regexPattern As String) As String
    Dim regExs As Object, Matches As Object, aKetQua As Variant, i As Long
    Set regExs = CreateObject("vbscript.regexp")
    With regExs
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = regexPattern
    End With
    If regExs.Test(aChuoi) Then
        Set Matches = regExs.Execute(aChuoi)
        ReDim aKetQua(0 To Matches.Count)
        For i = 0 To Matches.Count - 1
            aKetQua(i) = Matches.Item(i)
        Next i
        ReGexChuoi = Join(aKetQua, " ")
    Else
        ReGexChuoi = "Không co k" & ChrW(7871) & "t qu" & ChrW(7843)
    End If
End Function

cảm ơn bạn. đã xong ạ

 

[VetMini]

Hoặc thử UDF này (cũng tương tự bạn Vân)
...

2 tên khác nhau, hai câu hỏi khác nhau. Nhưng dữ liệu in hệt:

Nhờ giúp đỡ về xóa kí tự

e muốn xóa các sdt bàn (11số) và các số không phải sdt trong bảng. mong được anh chị em chỉ giúp ạ. e cám ơn nhiều !

giaiphapexcel.com

 

[Nhattanktnn]

2 tên khác nhau, hai câu hỏi khác nhau. Nhưng dữ liệu in hệt:

Nhờ giúp đỡ về xóa kí tự

e muốn xóa các sdt bàn (11số) và các số không phải sdt trong bảng. mong được anh chị em chỉ giúp ạ. e cám ơn nhiều !

giaiphapexcel.com

Em có biết đâu, thấy bạn ấy nhờ mà chưa ai giúp nên vào hỗ trợ thôi

 

[VetMini]

Em có biết đâu, thấy bạn ấy nhờ mà chưa ai giúp nên vào hỗ trợ thôi

1. Một người lấy 2 tên, hoặc
2. Hai người cùng làm một việc, hoặc
3. Hai học sinh cùng hợc một lớp

 

[trienhove]

2 tên khác nhau, hai câu hỏi khác nhau. Nhưng dữ liệu in hệt:

Nhờ giúp đỡ về xóa kí tự

e muốn xóa các sdt bàn (11số) và các số không phải sdt trong bảng. mong được anh chị em chỉ giúp ạ. e cám ơn nhiều !

giaiphapexcel.com

1 mình 2 tài khoản, thấy bên kia hỏi rắc rối mà ko biết xóa cái nào nên lập ra cái này.

Bài đã được tự động gộp: 7/12/20

1 mình 2 tài khoản, thấy bên kia hỏi rắc rối mà ko biết xóa cái nào nên lập ra cái này

2 tên khác nhau, hai câu hỏi khác nhau. Nhưng dữ liệu in hệt:

Nhờ giúp đỡ về xóa kí tự

e muốn xóa các sdt bàn (11số) và các số không phải sdt trong bảng. mong được anh chị em chỉ giúp ạ. e cám ơn nhiều !

giaiphapexcel.com

.

2 tên khác nhau, hai câu hỏi khác nhau. Nhưng dữ liệu in hệt:

Nhờ giúp đỡ về xóa kí tự

e muốn xóa các sdt bàn (11số) và các số không phải sdt trong bảng. mong được anh chị em chỉ giúp ạ. e cám ơn nhiều !

giaiphapexcel.com

1 mình 2 tài khoản, thấy bên kia hỏi rắc rối mà ko biết xóa cái nào nên lập ra cái này. hi

 

[Nhattanktnn]

1 mình 2 tài khoản, thấy bên kia hỏi rắc rối mà ko biết xóa cái nào nên lập ra cái này.

Bài đã được tự động gộp: 7/12/20

1 mình 2 tài khoản, thấy bên kia hỏi rắc rối mà ko biết xóa cái nào nên lập ra cái này

.

1 mình 2 tài khoản, thấy bên kia hỏi rắc rối mà ko biết xóa cái nào nên lập ra cái này. hi

Mà không biết trước đây bạn đã hỏi bài này chưa, mình nhớ khá lâu rồi, mình có giúp một bài nhìn gần giống như thế này. Có 2 ý mà mình chỉ giúp được một ý, còn một ý nữa là những số không phải sđt thì xóa bỏ đi mình chưa làm được

 

[bebo021999]

Công thức tại C2:

=IFERROR(MID(SUBSTITUTE($A2&"|"," ",""),AGGREGATE(15,6,ROW(INDIRECT("1:"&LEN($A2)-10))/(ISNUMBER(MID(SUBSTITUTE($A2&"|"," ",""),ROW(INDIRECT("1:"&LEN($A2)-10)),10)+0)),COLUMN(A:A)),10),"")

Copy sang phải và xuống dưới.

 

[hocexcel_1991]

Nhờ anh chị em tách giùm với ạ.

Hàm TEXTJOIN

=TEXTJOIN(";",1,TEXT(IFERROR(1/(1/MID("#"&SUBSTITUTE($A2," ","#")&"#",AGGREGATE(15,6,ROW($1:$500)/(MMULT(--ISNUMBER(--MID("#"&$A2&"#",(COLUMN($A$1:$L$1)-1)+ROW(INDIRECT("1:"&2+LEN($A2))),1)),ROW($1:$12)^0)=10)+1,ROW(INDIRECT("1:"&2+LEN($A2)))),10)),""),REPT("0",10)))

Nếu không có hàm TEXTJOIN thì tách thành nhiều cột rồi nối lại

=IFERROR("0"&AGGREGATE(15,6,MID("#"&SUBSTITUTE($A2," ","#")&"#",AGGREGATE(15,6,ROW($1:$500)/(MMULT(--ISNUMBER(--MID("#"&$A2&"#",(COLUMN($A$1:$L$1)-1)+ROW(INDIRECT("1:"&2+LEN($A2))),1)),ROW($1:$12)^0)=10)+1,ROW(INDIRECT("1:"&2+LEN($A2)))),10)+0,COLUMN(A1)),"")