Giúp mình tách các số ở bên trái ra khỏi chuỗi (1 người xem)

[thoayeu]

Mình đang rất cần tách các số ở đầu ra khỏi các chuỗi. Các chuỗi không cố định, nên rất khó tách số ra khỏi chuỗi. Mình đã dùng công thức= (MID(H8,1,COUNT(1*MID(H8,ROW($1:$9),1))) nh­ưng có chuỗi ra, chuỗi lại không lấy được đúng các số mình cần,
mình có kèm theo bảng cần tách số cho các bạn xem và giúp mình với. Mình đang rất cần nó, rất mong mọi người giúp đỡ ạ! Thank

 

[hoangvuluan]

Hix, với dữ liệu "hỗn loạn" của bạn, thì dùng tạm công thức "trời ơi" sau:
=IF(H4<>"",IF(ISNUMBER(0+IF(ISERROR(FIND(" ", SUBSTITUTE(SUBSTITUTE(H4, ","," "), ".", " "))), H4, LEFT(SUBSTITUTE(SUBSTITUTE(H4, ","," "), ".", " "), FIND(" ", SUBSTITUTE(SUBSTITUTE(H4, ","," "), ".", " "))-1))), IF(ISERROR(FIND(" ", SUBSTITUTE(SUBSTITUTE(H4, ","," "), ".", " "))), H4, LEFT(SUBSTITUTE(SUBSTITUTE(H4, ","," "), ".", " "), FIND(" ", SUBSTITUTE(SUBSTITUTE(H4, ","," "), ".", " "))-1)) & "",""),"")

 

[Ba Tê]

Mình đang rất cần tách các số ở đầu ra khỏi các chuỗi. Các chuỗi không cố định, nên rất khó tách số ra khỏi chuỗi. Mình đã dùng công thức= (MID(H8,1,COUNT(1*MID(H8,ROW($1:$9),1))) nh­ưng có chuỗi ra, chuỗi lại không lấy được đúng các số mình cần,
mình có kèm theo bảng cần tách số cho các bạn xem và giúp mình với. Mình đang rất cần nó, rất mong mọi người giúp đỡ ạ! Thank

Giúp mình tách các số ở bên trái ra khỏi chuỗi! help gấp!!!

Nhắc bạn thành viên mới: Tiêu đề không nên có mấy chữ giống chữ màu đỏ ở trên, phạm quy diễn đàn đấy!
Tranh thủ dùng công thức này cho ô I4 trong sheet của bạn xem.

=IF(ISNUMBER(LEFT(H4)*1);IF(ISERROR(FIND(" ";SUBSTITUTE(SUBSTITUTE(H4;".";" ");",";" ")));H4;LEFT(H4;FIND(" ";SUBSTITUTE(SUBSTITUTE(H4;".";" ");",";" "))-1));"")

 

[thoayeu]

Mình cám ơn nhé! Mình không phải là mới, mình vào diễn đàn lâu rồi nhưng tin học kém quá chẳng biết tư vấn cho người hỏi nên đành đứng ngoài nhìn thôi à?
Mình đã làm được rồi, chân thành cám ơn!

 

[siwtom]

Mình đang rất cần tách các số ở đầu ra khỏi các chuỗi. Các chuỗi không cố định, nên rất khó tách số ra khỏi chuỗi. Mình đã dùng công thức= (MID(H8,1,COUNT(1*MID(H8,ROW($1:$9),1))) nh&shy;ưng có chuỗi ra, chuỗi lại không lấy được đúng các số mình cần,
mình có kèm theo bảng cần tách số cho các bạn xem và giúp mình với. Mình đang rất cần nó, rất mong mọi người giúp đỡ ạ! Thank

Sau chữ số cuối cùng bạn muốn dùng ký tự gì cũng được mà không phải sửa lại công thức, code

Function bla(Arr)
    Dim objRegExp As Object, s As String, r As Long, rArr
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    With objRegExp
        .Global = False
        .pattern = "^\d+"
        If IsArray(Arr) Then
            rArr = Arr
            For r = LBound(rArr) To UBound(rArr)
                If .test(rArr(r, 1)) Then
                    rArr(r, 1) = .Execute(rArr(r, 1)).Item(0)
                Else
                    rArr(r, 1) = vbNullString
                End If
            Next r
            bla = rArr
        Else
            If .test(Arr) Then
                s = .Execute(Arr).Item(0)
            End If
            bla = s
        End If
    End With
    Set objRegExp = Nothing
End Function

1. Công thức cho I4: =bla(H4) rồi kéo xuống
2. Chon H4:H61 - hoặc H4:H65000 rồi gõ công thức =bla(H4:H61) - hoặc =bla(H4:H65000)
Kết thúc bằng Ctrl + Shift + Enter