Tách chuỗi theo quy luật - sau mỗi dấu chấm (.) (1 người xem)

soledad_90 · 23/12/22

Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

bebo021999 · 23/12/22

Sửa lại tiêu đề đi nhé
"Tách chuỗi có quy luật"

hungpecc1 · 23/12/22

soledad_90 đã viết:
View attachment 284985
Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

1. Dùng hàm TextSplit
=TEXTSPLIT(B3,".")
2. Nếu không có hàm textsplit thì nâng cấp phiên bản excel 365

soledad_90 · 23/12/22

hungpecc1 đã viết:
1. Dùng hàm TextSplit
=TEXTSPLIT(B3,".")
2. Nếu không có hàm textsplit thì nâng cấp phiên bản excel 365

Cảm ơn anh giúp đỡ . như anh nói thì e phải theo PA 2 là nâng cấp office rồi ạ.
Em dùng office 2019 không có hàm này ạ.

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

bebo021999 đã viết:
Sửa lại tiêu đề đi nhé
"Tách chuỗi có quy luật

Em đã sửa lại rồi anh.
Nhờ anh giúp cho đoạn code với ạ .
Em cảm ơn.

BuiQuangThuan · 23/12/22

soledad_90 đã viết:
View attachment 284985
Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

Dùng textcolumn phải hơn không code chi cho rắc muối ra

Hoàng Tuấn 868 · 23/12/22

soledad_90 đã viết:
Em đã sửa lại rồi anh.

Thử tham khảo, không biết có đúng ý không.

namvu230397 · 23/12/22

Này bác dùng text to column cho nhanh, code làm gì cho phức tạp

HUONGHCKT · 23/12/22

soledad_90 đã viết:
View attachment 284985
Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

Nếu chỉ lấy 4 cột và dữ liệu như trong bài thì hãy thử code này xem sao.

Ronaldinho7 · 23/12/22

Bạn kiểm tra lại kết quả nhé

PHP:

Sub tach_chuoi()
    Dim lr&, i&, Arr(), Res(1 To 10000, 1 To 4), k&, a&
    With Sheets("Sheet1")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        Arr = .Range("B3:B" & lr).Value
        For i = 1 To UBound(Arr)
            k = k + 1
            Res(k, 1) = Split(Arr(i, 1), ".")(0)
            Res(k, 2) = Split(Arr(i, 1), ".")(1)
            Res(k, 3) = Split(Arr(i, 1), ".")(2)
            a = Len(Res(k, 1)) + Len(Res(k, 2)) + Len(Res(k, 3))
            Res(k, 4) = Mid(Arr(i, 1), a + 4, 10)
        Next i
        .Range("I3").Resize(k, 4).Value = Res
    End With
End Sub

hocexcel_1991 · 23/12/22

soledad_90 đã viết:
View attachment 284985
Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

Thử dùng công thức này:

Diff:

D3=LEFT(B3,7)
E3=MID(B3,LEN(D3)+2,8)
F3=MID(B3,SUM(LEN(D3:E3))+3,3)
G3=MID(B3,SUM(LEN(D3:F3))+4,10)+0

befaint · 23/12/22

Excel 2021 là được rồi.

Hoàng Tuấn 868 · 23/12/22

HUONGHCKT đã viết:
Nếu chỉ lấy 4 cột và dữ liệu như trong bài thì hãy thử code này xem sao.

Ronaldinho7 đã viết:

Bạn kiểm tra lại kết quả nhé

PHP:

Sub tach_chuoi()
    Dim lr&, i&, Arr(), Res(1 To 10000, 1 To 4), k&, a&
    With Sheets("Sheet1")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        Arr = .Range("B3:B" & lr).Value
        For i = 1 To UBound(Arr)
            k = k + 1
            Res(k, 1) = Split(Arr(i, 1), ".")(0)
            Res(k, 2) = Split(Arr(i, 1), ".")(1)
            Res(k, 3) = Split(Arr(i, 1), ".")(2)
            a = Len(Res(k, 1)) + Len(Res(k, 2)) + Len(Res(k, 3))
            Res(k, 4) = Mid(Arr(i, 1), a + 4, 10)
        Next i
        .Range("I3").Resize(k, 4).Value = Res
    End With
End Sub

Vác dao mổ trâu đi giết gà mất rồi.

HUONGHCKT · 23/12/22

Hoàng Tuấn 868 đã viết:
Vác dao mổ trâu đi giết gà mất rồi.

Bạn này cũng biết code VBA mà, nên có thể đây chỉ là 1 công đoạn nào đó trong dự án dài, rộng hơn của bạn ấy. Do vậy chủ thớt mới đăng trong mục lập trình để tìm phuong án xử lý 1 cột để lấy dữ liệu xử lý các vấn đề khác. Đó là tôi đoán mò thế thôi.

damkaka · 23/12/22

soledad_90 đã viết:
View attachment 284985
Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

nếu theo quy luật như này b vào Data > Text to columns > Next > trong mục Delimiters chọn Other (.) > Finish là xong rồi

soledad_90 · 23/12/22

damkaka đã viết:
nếu theo quy luật như này b vào Data > Text to columns > Next > trong mục Delimiters chọn Other (.) > Finish là xong rồi

Cảm ơn bạn đã giúp đỡ : mình có làm theo thì có điểm này : vì phần size lẻ : quy chuẩn đang có dấu chấm (.) trùng với phần phân tách các chuỗi luôn là dấu chấm
Nên khi dùng Text to columns ra kết quả khác thì đúng còn các chuỗi có đuôi số size lẻ thì chưa đúng.

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

namvu230397 đã viết:
Này bác dùng text to column cho nhanh, code làm gì cho phức tạp

cảm ơn bạn nhé

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

Hoàng Tuấn 868 đã viết:
Thử tham khảo, không biết có đúng ý không.

em cảm ơn hàm excel của anh , cho kết quả đúng rồi ạ

hocexcel_1991 đã viết:
Thử dùng công thức này:

Diff:

D3=LEFT(B3,7) E3=MID(B3,LEN(D3)+2,8) F3=MID(B3,SUM(LEN(D3:E3))+3,3) G3=MID(B3,SUM(LEN(D3:F3))+4,10)+0

em cảm ơn hàm excel của anh , tại ô F3=MID(B3,SUM(LEN(D3:E3))+3,3) hàm em thấy lỗi #Value

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

HUONGHCKT đã viết:
Nếu chỉ lấy 4 cột và dữ liệu như trong bài thì hãy thử code này xem sao.

Cảm ơn anh giúp đỡ . code của anh cho kết quả phần size lẻ lại là dấu phẩy ạ .phần em tô vàng ạ.

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

Ronaldinho7 đã viết:

Bạn kiểm tra lại kết quả nhé

PHP:

Sub tach_chuoi()
    Dim lr&, i&, Arr(), Res(1 To 10000, 1 To 4), k&, a&
    With Sheets("Sheet1")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        Arr = .Range("B3:B" & lr).Value
        For i = 1 To UBound(Arr)
            k = k + 1
            Res(k, 1) = Split(Arr(i, 1), ".")(0)
            Res(k, 2) = Split(Arr(i, 1), ".")(1)
            Res(k, 3) = Split(Arr(i, 1), ".")(2)
            a = Len(Res(k, 1)) + Len(Res(k, 2)) + Len(Res(k, 3))
            Res(k, 4) = Mid(Arr(i, 1), a + 4, 10)
        Next i
        .Range("I3").Resize(k, 4).Value = Res
    End With
End Sub

Cảm ơn bạn giúp đỡ code cho kết quả đúng rồi nhé .

HUONGHCKT · 23/12/22

,,,,,,

soledad_90 đã viết:
Cảm ơn anh giúp đỡ . code của anh cho kết quả phần size lẻ lại là dấu phẩy ạ .phần em tô vàng ạ. View attachment 284998

Bạn xem lại hình ảnh ngay từ bài 1 chưa nhỉ?Ngay cả file đính kèm cũng là dấu "," mà. Sửa lại thì thay dấu "," thành dấu "." là được.

soledad_90 · 23/12/22

HUONGHCKT đã viết:
,,,,,,

Bạn xem lại hình ảnh ngay từ bài 1 chưa nhỉ?Ngay cả file đính kèm cũng là dấu "," mà. Sửa lại thì thay dấu "," thành dấu "." là được.

Dạ anh . chỗ này em làm ổn ạ .
Em cảm ơn anh giúp đỡ trên các bài em đã đăng ạ .

nguyenanhdung8111982 · 23/12/22

soledad_90 đã viết:
View attachment 284985
Mong sự trợ giúp từ diễn đàn cho việc tách chuỗi này ạ.
Với cột B là chuỗi gốc cần để tách ra 4 cột riêng biệt D-E-F-G .
Các cột cần tách được nối với nhau bằng giấu chấm (.)
Em cảm ơn diễn đàn ạ.

Bạn xem thử được không nhé!!

soledad_90 · 23/12/22

nguyenanhdung8111982 đã viết:
Bạn xem thử được không nhé!!

Cảm ơn bạn đã giúp đỡ với công thức .

Mã:

=IF(M5="",TRIM(MID(SUBSTITUTE(TRIM($B5),".",REPT(" ",LEN($B5))),1+(COLUMNS($B:E)-1)*LEN($B5),LEN($B5))),TRIM(MID(SUBSTITUTE(TRIM($B5),".",REPT(" ",LEN($B5))),1+(COLUMNS($B:E)-1)*LEN($B5),LEN($B5)))&"."&M5)

có thêm cột phụ của size lẻ :

NghiaKieu · 23/12/22

soledad_90 đã viết:
Cảm ơn bạn đã giúp đỡ : mình có làm theo thì có điểm này : vì phần size lẻ : quy chuẩn đang có dấu chấm (.) trùng với phần phân tách các chuỗi luôn là dấu chấm
Nên khi dùng Text to columns ra kết quả khác thì đúng còn các chuỗi có đuôi số size lẻ thì chưa đúng.

View attachment 284997

Thì lại thêm bước nối 2 cột cuối lại nữa bác :V

Tách chuỗi theo quy luật - sau mỗi dấu chấm (.) (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

File đính kèm

Thành viên gạo cội

Thành viên gắn bó

Thành viên thường trực

❆❆❆❆❆❆❆❆❆❆❆❆

Đăng ký hôm qua

File đính kèm

Thành viên hoạt động

Zalo 0986997214

File đính kèm

Zl: 0707315985

Bắt đầu học Excel

|||||||||||||

Đăng ký hôm qua

Zalo 0986997214

Thành viên mới

File đính kèm

Thành viên thường trực

Zalo 0986997214

Thành viên thường trực

Thành viên hoạt động

File đính kèm

Thành viên thường trực

Thành viên hoạt động

Đếm ngược thời gian