TÁCH SỐ TỪ CHUỖI TEXT (1 người xem)

[maudọn9]

T/g Các Anh/Chị Diễn đàn,
Em có 1 chuỗi text (bao hàm số trong chuỗi) như file đính kèm. Em cần tách lấy số từ chuỗi text đó, có Anh chị nào biết công thức tách ra chỉ giúp em với.
Em cám ơn ạ

 

[FatBear]

T/g Các Anh/Chị Diễn đàn,
Em có 1 chuỗi text (bao hàm số trong chuỗi) như file đính kèm. Em cần tách lấy số từ chuỗi text đó, có Anh chị nào biết công thức tách ra chỉ giúp em với.
Em cám ơn ạ

a ) mình nhầm srr bạn

 

[FatBear]

T/g Các Anh/Chị Diễn đàn,
Em có 1 chuỗi text (bao hàm số trong chuỗi) như file đính kèm. Em cần tách lấy số từ chuỗi text đó, có Anh chị nào biết công thức tách ra chỉ giúp em với.
Em cám ơn ạ

Chạy code thử xem sao nhé

 

[Phan Thế Hiệp]

T/g Các Anh/Chị Diễn đàn,
Em có 1 chuỗi text (bao hàm số trong chuỗi) như file đính kèm. Em cần tách lấy số từ chuỗi text đó, có Anh chị nào biết công thức tách ra chỉ giúp em với.
Em cám ơn ạ

Dùng thử hàm JoinText của thầy @ndu96081631:

C2=JoinText(", ",RIGHT(SUBSTITUTE(LEFT(SUBSTITUTE(SUBSTITUTE(A2,"+"," "),"-"," "),ROW($1:$100)/(FREQUENCY(IFERROR(AGGREGATE(15,6,FIND((COLUMN($A:$J)-1)&"s",A2,ROW($1:$100)),ROW($1:$1000)),""),ROW($1:$100))>0) )," ",REPT(" ",20)),20)*1)

Ctrl+Shift+Enter, fill xuống

Thân

 

[phulien1902]

Nếu để có kết quả như langtusau9x, chỉ cần:

Sub abc()
    Dim i&, LR&
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR Step 1
        Range("d" & i) = Split(Trim(Split(Range("A" & i), "-")(3)), " ")(0)
        Range("e" & i) = Replace(Split(Trim(Split(Range("A" & i), "-")(3)), " ")(0), "s", "")
    Next i
End Sub

 

[FatBear]

Nếu để có kết quả như langtusau9x, chỉ cần:

Sub abc()
    Dim i&, LR&
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR Step 1
        Range("d" & i) = Split(Trim(Split(Range("A" & i), "-")(3)), " ")(0)
        Range("e" & i) = Replace(Split(Trim(Split(Range("A" & i), "-")(3)), " ")(0), "s", "")
    Next i
End Sub

) quả đúng như ý bác.code e làm màu quá, mà thực tế nó chưa đủ hết yêu cầu của chủ topic

 

[HieuCD]

Nhìn tất cả kết quả kể cả của chủ topic thấy thiếu thiếu gì đó

 

[nguoi_ham_hoc]

Nhìn tất cả kết quả kể cả của chủ topic thấy thiếu thiếu gì đó

Thiếu sự hồi âm và lời cám ơn của chủ topic. Đúng không anh @HieuCD ?

 

[huuthang_bd]

Thiếu sự hồi âm và lời cám ơn của chủ topic. Đúng không anh @HieuCD ?

Kể của kết quả của chủ topic

Nhìn tất cả kết quả kể cả của chủ topic thấy thiếu thiếu gì đó

Ô B4 và C4 không theo quy luật.

 

[maudọn9]

Dạ, Em đã chạy và lọc ra phần em cần rồi ạ
em cám ơn nhiều nhiều các Anh/Chị diễn đàn đã giúp em ạ.