Tách số tiền trong chuỗi (1 người xem)

[kimusd]

Chào mọi người

Mình có 1 cột là chuỗi văn bản như thế này, nhờ mọi người chỉ mình cách tách lấy số tiền trong dãy ra giúp mình.

Mình cảm ơn mọi người.

 

[vanthinh3101]

Chào mọi người

Mình có 1 cột là chuỗi văn bản như thế này, nhờ mọi người chỉ mình cách tách lấy số tiền trong dãy ra giúp mình.

Mình cảm ơn mọi người.

Bạn thử dùng:

B2=MID(A2;FIND("số tiền ";A2)+8;FIND(")";A2)-FIND("số tiền ";A2)-12)

Nếu lỗi thì chuyển dấu ";" sang dấu "," nhé!

 

[Ba Tê]

Bạn thử dùng:

B2=MID(A2;FIND("số tiền ";A2)+8;FIND(")";A2)-FIND("số tiền ";A2)-12)

Nếu lỗi thì chuyển dấu ";" sang dấu "," nhé!

Kết quả này là 1 chuỗi chứ chưa phải số.

 

[excel_lv1.5]

Có thể viết như sau C2=LOOKUP(10^15,--MID(SUBSTITUTE(A2,".",","),SEARCH("số tiền",A2)+7,ROW($1:$15)))

 

[CarotNho]

Hoặc công thức Enter bình thường:

=AGGREGATE(14,6,--MID(SUBSTITUTE(A2,".",""),SEARCH("số tiền",A2)+7,ROW($A$1:$A$15)),1)

 

[phulien1902]

Chào mọi người

Mình có 1 cột là chuỗi văn bản như thế này, nhờ mọi người chỉ mình cách tách lấy số tiền trong dãy ra giúp mình.

Mình cảm ơn mọi người.

Hoặc RegExp nửa mùa đây:

Sub abc()
    Dim LR As Long, i As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        Range("B" & i) = Split(Range("A" & i), " ")(7)
        Range("B" & i) = GetNum(Range("B" & i))
    Next i
End Sub
Function GetNum(Cll As Range) As Long
    Dim VR As Object
    Set VR = CreateObject("VBScript.RegExp")
    With VR
        .Global = True
        .Pattern = "\D"
        GetNum = .Replace(Cll.Value, "")
    End With
End Function

 

[CarotNho]

RegExp

cho em ké xíu nha anh hihi

Function GetMoney(ByVal sText As String) As Double
    sText = Replace(sText, ".", "")
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = " ([0-9].+?)\(VND\)"
        GetMoney = Val(.Execute(sText)(0).submatches(0))
    End With
End Function

Công thức trên bảng tính: =GetMoney(A2)

 

[lehuong1409]

Chào mọi người

Mình có 1 cột là chuỗi văn bản như thế này, nhờ mọi người chỉ mình cách tách lấy số tiền trong dãy ra giúp mình.

Mình cảm ơn mọi người.

Góp vui thêm cùng mọi người ạ

=MID(A2;FIND("số tiền ";A2)+8;FIND("(";A2)-FIND("số tiền ";A2)-8)*1

Còn nếu số đơn hàng của bạn luôn có 8 ký tự bạn có thể sử dụng thế này luôn

=MID(A2;34;FIND("(";A2)-34)*1

 

[phulien1902]

cho em ké xíu nha anh hihi

Function GetMoney(ByVal sText As String) As Double
    sText = Replace(sText, ".", "")
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = " ([0-9].+?)\(VND\)"
        GetMoney = Val(.Execute(sText)(0).submatches(0))
    End With
End Function

Công thức trên bảng tính: =GetMoney(A2)

Ngưỡng mộ em quá!

 

[lehuong1409]

Ngưỡng mộ em quá!

ngày chị em vùng lên đó anh

 

[excel_lv1.5]

cho em ké xíu nha anh hihi

Function GetMoney(ByVal sText As String) As Double
    sText = Replace(sText, ".", "")
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = " ([0-9].+?)\(VND\)"
        GetMoney = Val(.Execute(sText)(0).submatches(0))
    End With
End Function

Công thức trên bảng tính: =GetMoney(A2)

Nếu không lầm thì chỗ +? có thể thay bằng * được không bạn ?

 

[quocgiacan]

ngày chị em vùng lên đó anh

Chúc 'Chị, em' như @lehuong1409 và các 'Chị, em' của GPE 'không phân biệt như hình' hay 'sau hình' có ngày 20 tháng 10 thiệt là vui.

 

[befaint]

vùng lên

Vùng lên định làm gì?

Trong này không có hình bông hoa nên tặng con khủng long vậy. Khỏe như khủng long nhá!

 

[lehuong1409]

Chúc 'Chị, em' như @lehuong1409 và các 'Chị, em' của GPE 'không phân biệt như hình' hay 'sau hình' có ngày 20 tháng 10 thiệt là vui.

thay mặt "Chị em" cảm ơn anh Q ạ

 

[lehuong1409]

Vùng lên định làm gì?

Trong này không có hình bông hoa nên tặng con khủng long vậy. Khỏe như khủng long nhá!

vùng lên thôi chứ chưa định làm gì anh ạ, thấy thiên hạ bảo vùng e cũng vùng vậy thôi. nhưng con khủng long này hơi dã man anh ạ . Cảm ơn anh nhé
P/s: e đang nghĩ e to ngang voi và con khỏe như khủng long nữa cũng đáng nể đấy ạ

 

[thuongsykxps]

Chào mọi người

Mình có 1 cột là chuỗi văn bản như thế này, nhờ mọi người chỉ mình cách tách lấy số tiền trong dãy ra giúp mình.

Mình cảm ơn mọi người.

Góp thêm công thức:
=VALUE(SUBSTITUTE(MID(A3,FIND("số tiền",A3)+8,FIND("(",A3)-FIND("số tiền",A3)-8),".",","))