Xin giúp cách lọc số trong chuỗi vào cột dữ liệu

[viokute]

Mình tìm qua các chủ đề, mà không thấy cách mong muốn.
Xin giúp đỡ, lọc lấy số trong chuỗi text, rồi chèn giá trị vào cột.
Vd: Cột A: 7850*150*8 - Mong muốn tự chèn giá trị: Cột B=7850, cột C=150, cột D=8.
Các giá trị tách biệt bang dấu "*" hoặc "x"
Có đính kèm file theo.
Xin cám ơn.

 

[phulien1902]

Mình tìm qua các chủ đề, mà không thấy cách mong muốn.
Xin giúp đỡ, lọc lấy số trong chuỗi text, rồi chèn giá trị vào cột.
Vd: Cột A: 7850*150*8 - Mong muốn tự chèn giá trị: Cột B=7850, cột C=150, cột D=8.
Các giá trị tách biệt bang dấu "*" hoặc "x"
Có đính kèm file theo.
Xin cám ơn.

Cách đơn giản nhất là bạn dùng công cụ sẵn có trong Excel là Text to Columns

 

[leonguyenz]

Mình tìm qua các chủ đề, mà không thấy cách mong muốn.
Xin giúp đỡ, lọc lấy số trong chuỗi text, rồi chèn giá trị vào cột.
Vd: Cột A: 7850*150*8 - Mong muốn tự chèn giá trị: Cột B=7850, cột C=150, cột D=8.
Các giá trị tách biệt bang dấu "*" hoặc "x"
Có đính kèm file theo.
Xin cám ơn.

Bạn thử công thức sau tại B1, kéo sang phải.

=--TRIM(MID(SUBSTITUTE(SUBSTITUTE($A1,"*","x"),"x",REPT(" ",LEN($A1))),LEN($A1)*(COLUMN(A$1)-1)+1,LEN($A1)))

 

[viokute]

Bạn thử công thức sau tại B1, kéo sang phải.

=--TRIM(MID(SUBSTITUTE(SUBSTITUTE($A1,"*","x"),"x",REPT(" ",LEN($A1))),LEN($A1)*(COLUMN(A$1)-1)+1,LEN($A1)))

Cám ơn, mình mới gửi lại file đính kèm, bạn có thể tải về nhập hàm vào dùm được không. MÌnh thử theo công thử của bạn, nó trả về giá trị 4

 

[leonguyenz]

Cám ơn, mình mới gửi lại file đính kèm, bạn có thể tải về nhập hàm vào dùm được không. MÌnh thử theo công thử của bạn, nó trả về giá trị 4

Công thức E7

=--TRIM(MID(SUBSTITUTE(SUBSTITUTE($C7,"*","x"),"x",REPT(" ",LEN($C7))),LEN($C7)*(COLUMN(A$1)-1)+1,LEN($C7)))

 

[phulien1902]

Mình tìm qua các chủ đề, mà không thấy cách mong muốn.
Xin giúp đỡ, lọc lấy số trong chuỗi text, rồi chèn giá trị vào cột.
Vd: Cột A: 7850*150*8 - Mong muốn tự chèn giá trị: Cột B=7850, cột C=150, cột D=8.
Các giá trị tách biệt bang dấu "*" hoặc "x"
Có đính kèm file theo.
Xin cám ơn.

1 cách nữa để bạn tham khảo:

Sub Test()
    Dim c As Range, Sp
    For Each c In Range("C7", Range("C" & Rows.Count).End(3))
        If InStr(c, "*") > 0 Then
            Sp = Split(c, "*")
            c.Offset(, 2) = Sp(1)
            c.Offset(, 3) = Sp(0)
            c.Offset(, 4) = Sp(2)
        End If
    Next c
End Sub

 

[viokute]

Công thức E7

=--TRIM(MID(SUBSTITUTE(SUBSTITUTE($C7,"*","x"),"x",REPT(" ",LEN($C7))),LEN($C7)*(COLUMN(A$1)-1)+1,LEN($C7)))

Xin cám ơn nhiều,
Cho mình hỏi: LEN($C7)*(COLUMN(A$1)-1)+1, sao phải -1 rồi lại +1 vậy.
Mình chưa rõ.

 

[phulien1902]

Công thức E7

=--TRIM(MID(SUBSTITUTE(SUBSTITUTE($C7,"*","x"),"x",REPT(" ",LEN($C7))),LEN($C7)*(COLUMN(A$1)-1)+1,LEN($C7)))

Dữ liệu cột E và F có sự đảo ngược thì phải?

 

[viokute]

1 cách nữa để bạn tham khảo:

Sub Test()
    Dim c As Range, Sp
    For Each c In Range("C7", Range("C" & Rows.Count).End(3))
        If InStr(c, "*") > 0 Then
            Sp = Split(c, "*")
            c.Offset(, 2) = Sp(1)
            c.Offset(, 3) = Sp(0)
            c.Offset(, 4) = Sp(2)
        End If
    Next c
End Sub

Code VBA hay quá, mình sẽ tìm hiểu nội dung nó, mình chèn vào chạy Code okie rồi
Cám ơn bạn nha

 

[leonguyenz]

Dữ liệu cột E và F có sự đảo ngược thì phải?

Chưa rõ đảo ngược ở chỗ nào

Xin cám ơn nhiều,
Cho mình hỏi: LEN($C7)*(COLUMN(A$1)-1)+1, sao phải -1 rồi lại +1 vậy.
Mình chưa rõ.

Trừ 1 trong ngoặc có nhân với chiều dài chuỗi, sau đó mới cộng thêm 1.

 

[huonglien1901]

Mình tìm qua các chủ đề, mà không thấy cách mong muốn.
Xin giúp đỡ, lọc lấy số trong chuỗi text, rồi chèn giá trị vào cột.
Vd: Cột A: 7850*150*8 - Mong muốn tự chèn giá trị: Cột B=7850, cột C=150, cột D=8.
Các giá trị tách biệt bang dấu "*" hoặc "x"
Có đính kèm file theo.
Xin cám ơn.

Vậy cũng được nè! Tham khảo thêm

=--(TRIM(MID(SUBSTITUTE($C7,"*",REPT(" ",20)),20*(COLUMN(A1)-1)+1,10)))

 

[hocexcel_1991]

Vậy cũng được nè! Tham khảo thêm

=--(TRIM(MID(SUBSTITUTE($C7,"*",REPT(" ",20)),20*(COLUMN(A1)-1)+1,10)))

Chủ thớt nói trong chuỗi có chữ "x" nữa chị ơi

 

[huonglien1901]

Chủ thớt nói trong chuỗi có chữ "x" nữa chị ơi

Nếu có x thì giống như cách của Anh @leonguyenz làm đó. Bạn có cách khác nào không?

 

[be_09]

Chủ thớt nói trong chuỗi có chữ "x" nữa chị ơi

1/ Thành viên đó giới tính là Nam nhé.
2/ Bài 2 giới thiệu công cụ có sẳn trong Excel là Text to Columns sử dụng đơn giản nhất sao bạn không dùng thử.

 

[huonglien1901]

Chủ thớt nói trong chuỗi có chữ "x" nữa chị ơi

=--(TRIM(MID(SUBSTITUTE(SUBSTITUTE($C7,"*","x"),"x",REPT(" ",20)),20*(COLUMN(A$1)-1)+1,10)))

Bài đã được tự động gộp: 27/9/19

 

[chiendich]

Mình tìm qua các chủ đề, mà không thấy cách mong muốn.
Xin giúp đỡ, lọc lấy số trong chuỗi text, rồi chèn giá trị vào cột.
Vd: Cột A: 7850*150*8 - Mong muốn tự chèn giá trị: Cột B=7850, cột C=150, cột D=8.
Các giá trị tách biệt bang dấu "*" hoặc "x"
Có đính kèm file theo.
Xin cám ơn.

Dùng hàm tự tạo thử xem!

Function tach(chuoi, n)
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "\d+"
  Set a = obj.Execute(chuoi)
  If a.Count > 0 Then tach = a(n - 1) Else tach = ""
End Function

Công thức

=tach(chuoi,n)
n: cột cần tách