giúp em hàm bóc tách dữ liệu ạ (6 người xem)

lala_qn · 20/6/18

em chào cả nhà !
em có up file vd kèm theo, em cần bóc tách dữ liệu ở sheet1 và sheet2
nhờ anh chị giúp dùm em hàm ở 2 sheet với ạ, em cảm ơn nhiều ạ !

phihndhsp · 20/6/18

lala_qn đã viết:
em chào cả nhà !
em có up file vd kèm theo, em cần bóc tách dữ liệu ở sheet1 và sheet2
nhờ anh chị giúp dùm em với ạ, em cảm ơn nhiều ạ !

Nếu dữ liệu như thế này thì có thể dùng từ khóa viet để tìm kiếm và từ khóa vn trong chuỗi sau khi tìm thấy chữ viet

ngoctinh87 · 20/6/18

lala_qn đã viết:
em chào cả nhà !
em có up file vd kèm theo, em cần bóc tách dữ liệu ở sheet1 và sheet2
nhờ anh chị giúp dùm em với ạ, em cảm ơn nhiều ạ !

Tạm dùng công thức này vậy, chỉ đúng kết quả trong file, nếu phát sinh thêm thì tính tiếp

Mã:

=TRIM(SUBSTITUTE(MID(SUBSTITUTE(A2,"<",REPT(" ",100)),FIND("viet",A2),50),CHAR(34),""))

lala_qn · 20/6/18

phihndhsp đã viết:
Nếu dữ liệu như thế này thì có thể dùng từ khóa viet để tìm kiếm và từ khóa vn trong chuỗi sau khi tìm thấy chữ viet

em chưa hiểu lắm anh

phulien1902 · 20/6/18

lala_qn đã viết:
em chào cả nhà !
em có up file vd kèm theo, em cần bóc tách dữ liệu ở sheet1 và sheet2
nhờ anh chị giúp dùm em hàm ở 2 sheet với ạ, em cảm ơn nhiều ạ !

Công thức cho Sheet2

lala_qn · 20/6/18

ngoctinh87 đã viết:
Tạm dùng công thức này vậy, chỉ đúng kết quả trong file, nếu phát sinh thêm thì tính tiếp

Mã:

=TRIM(SUBSTITUTE(MID(SUBSTITUTE(A2,"<",REPT(" ",100)),FIND("viet",A2),50),CHAR(34),""))

dạ ở sheet2, đây chỉ là file vd, chứ thực tế sẽ có rất nhiều trang web khác nhau chứ ko phải 1 trang web "viettoan" anh, hiccc

Bài đã được tự động gộp: 20/6/18

phulien1902 đã viết:
Công thức cho Sheet2
View attachment 197787

dạ sheet2 đó chỉ là e vd "viettoan" , trên thực tế có rất nhiều tên trang web khác nhau anh, hic

Bài đã được tự động gộp: 20/6/18

lala_qn đã viết:
dạ ở sheet2, đây chỉ là file vd, chứ thực tế sẽ có rất nhiều trang web khác nhau chứ ko phải 1 trang web "viettoan" anh, hiccc

Bài đã được tự động gộp: 20/6/18

dạ sheet2 đó chỉ là e vd "viettoan" , trên thực tế có rất nhiều tên trang web khác nhau ạ, hic

phulien1902 · 20/6/18

lala_qn đã viết:
dạ ở sheet2, đây chỉ là file vd, chứ thực tế sẽ có rất nhiều trang web khác nhau chứ ko phải 1 trang web "viettoan" anh, hiccc

Bài đã được tự động gộp: 20/6/18

dạ sheet2 đó chỉ là e vd "viettoan" , trên thực tế có rất nhiều tên trang web khác nhau anh, hic

Bài đã được tự động gộp: 20/6/18

Bạn đưa thế nào thì chúng tôi biết đên đâu giúp bạn tới đó.
Nếu bạn có hàng trăm trang Web cần xử lý, hãy gửi lên đây để các thành viên thử sức.

lala_qn · 20/6/18

phulien1902 đã viết:
Bạn đưa thế nào thì chúng tôi biết đên đâu giúp bạn tới đó.
Nếu bạn có hàng trăm trang Web cần xử lý, hãy gửi lên đây để các thành viên thử sức.

dạ, tại dữ liệu hơi cá nhân, nên em viết các mẫu các trường hợp sẽ xảy ra để anh chị nhìn dễ ạ, em mới cập nhật lại vd ạ

Bài đã được tự động gộp: 20/6/18

phulien1902 · 20/6/18

lala_qn đã viết:
dạ, tại dữ liệu hơi cá nhân, nên em viết các mẫu các trường hợp sẽ xảy ra để anh chị nhìn dễ ạ, em mới cập nhật lại vd ạ

Bài đã được tự động gộp: 20/6/18

Tất cả tôi đã làm trong File, bạn xem nhé

lala_qn · 20/6/18

phulien1902 đã viết:
Tất cả tôi đã làm trong File, bạn xem nhé

dạ vd trên thực tế có hàng nghìn web thì làm sao lấy mẫu để LOOKUP anh nhỉ hic

phulien1902 · 20/6/18

lala_qn đã viết:
dạ vd trên thực tế có hàng nghìn web thì làm sao lấy mẫu để LOOKUP anh nhỉ hic

Thực ra, tôi biết bạn đang cần 1 đoạn VBA code, tôi cũng đã thử, nhưng xử lý chưa triệt để nên dùng tạm hàm Lookup.
Bạn cố gắng chờ đợi, biết đâu có thành viên nào đó ngang qua giúp bạn thực hiện được điều mong ước.

lala_qn · 20/6/18

phulien1902 đã viết:
Thực ra, tôi biết bạn đang cần 1 đoạn VBA code, tôi cũng đã thử, nhưng xử lý chưa triệt để nên dùng tạm hàm Lookup.
Bạn cố gắng chờ đợi, biết đâu có thành viên nào đó ngang qua giúp bạn thực hiện được điều mong ước.

dạ, nhờ anh chị giúp dùm em bài này với ạ !

dazkangel · 20/6/18

Thử:

PHP:

Sheet2!C2=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(MID(LEFT(A2,FIND("<",A2)-1),IFERROR(LOOKUP(10^10,FIND({")","/","-","+","_"},A2))+1,1),100)),"+",""),"/",""),",",""),"""","")

phulien1902 · 20/6/18

dazkangel đã viết:
Thử:

PHP:

Sheet2!C2=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(MID(LEFT(A2,FIND("<",A2)-1),IFERROR(LOOKUP(10^10,FIND({")","/","-","+","_"},A2))+1,1),100)),"+",""),"/",""),",",""),"""","")

Bạn này đang hóng code VBA cơ mờ.., khà khà.

dazkangel · 20/6/18

phulien1902 đã viết:
Bạn này đang hóng code VBA cơ mờ.., khà khà.

Khà khà và bạn ấy kiếm mình ^^ dĩ nhiên mình chỉ có công thức thôi

excel_lv1.5 · 20/6/18

lala_qn đã viết:
em chào cả nhà !
em có up file vd kèm theo, em cần bóc tách dữ liệu ở sheet1 và sheet2
nhờ anh chị giúp dùm em hàm ở 2 sheet với ạ, em cảm ơn nhiều ạ !

Bạn thử code này xem:

PHP:

Function tach(str As String, Optional n As Long = 1) As String
Dim result()
result = Array(".com", ".vn", ".com.vn", ".net", ".net.vn", ".org", ".org.vn", ".info", ".biz")
With CreateObject("vbscript.regexp")
    .Global = True
    If n = 3 Then
        .Pattern = "(www.)?([a-zA-Z0-9.-]+)([^a-zA-Z0-9.-]{1,2})?<"
    Else
        .Pattern = "(www.)?(.+(" + Join(result, "|") + ")).*(@.+)"
    End If
    If .test(str) Then
        Select Case n
            Case 1
                tach = .Execute(str)(0).submatches(1)
            Case 2
                tach = .Execute(str)(0).submatches(3)
            Case 3
                tach = .Execute(str)(0).submatches(1)
        End Select
    End If
End With
End Function

Sheet1 thì dùng các công thức tach(...,1) và tach(...,2)
Sheet3 thì dùng các công thức tach(...,3)
Hên xui nhe, không được thì thôi nhe bạn.

phulien1902 · 20/6/18

excel_lv1.5 đã viết:

Bạn thử code này xem:

PHP:

Function tach(str As String, Optional n As Long = 1) As String
Dim result()
result = Array(".com", ".vn", ".com.vn", ".net", ".net.vn", ".org", ".org.vn", ".info", ".biz")
With CreateObject("vbscript.regexp")
    .Global = True
    If n = 3 Then
        .Pattern = "(www.)?([a-zA-Z0-9.-]+)([^a-zA-Z0-9.-]{1,2})?<"
    Else
        .Pattern = "(www.)?(.+(" + Join(result, "|") + ")).*(@.+)"
    End If
    If .test(str) Then
        Select Case n
            Case 1
                tach = .Execute(str)(0).submatches(1)
            Case 2
                tach = .Execute(str)(0).submatches(3)
            Case 3
                tach = .Execute(str)(0).submatches(1)
        End Select
    End If
End With
End Function

Sheet1 thì dùng các công thức tach(...,1) và tach(...,2)
Sheet3 thì dùng các công thức tach(...,3)
Hên xui nhe, không được thì thôi nhe bạn.

Hoàng tử của lòng em đây rồi !
Khà khà

lala_qn · 20/6/18

excel_lv1.5 đã viết:

Bạn thử code này xem:

PHP:

Function tach(str As String, Optional n As Long = 1) As String
Dim result()
result = Array(".com", ".vn", ".com.vn", ".net", ".net.vn", ".org", ".org.vn", ".info", ".biz")
With CreateObject("vbscript.regexp")
    .Global = True
    If n = 3 Then
        .Pattern = "(www.)?([a-zA-Z0-9.-]+)([^a-zA-Z0-9.-]{1,2})?<"
    Else
        .Pattern = "(www.)?(.+(" + Join(result, "|") + ")).*(@.+)"
    End If
    If .test(str) Then
        Select Case n
            Case 1
                tach = .Execute(str)(0).submatches(1)
            Case 2
                tach = .Execute(str)(0).submatches(3)
            Case 3
                tach = .Execute(str)(0).submatches(1)
        End Select
    End If
End With
End Function

Sheet1 thì dùng các công thức tach(...,1) và tach(...,2)
Sheet3 thì dùng các công thức tach(...,3)
Hên xui nhe, không được thì thôi nhe bạn.

em Alt F11 > module > nhập code rùi lưu lại ko dc anh
nhờ anh nhập code vào file dùm em với ạ !

phulien1902 · 20/6/18

lala_qn đã viết:
em Alt F11 > module > nhập code rùi lưu lại ko dc anh
nhờ anh nhập code vào file dùm em với ạ !

Phí rượu quá, khà khà.

lala_qn · 20/6/18

phulien1902 đã viết:
Phí rượu quá, khà khà.

cảm ơn anh!

Bài đã được tự động gộp: 20/6/18

phulien1902 đã viết:
Hoàng tử của lòng em đây rồi !
Khà khà

ở sheet1 lọc trong chuỗi địa chỉ mail chỉ lấy đoạn từ đuôi tên miền trang web đến dấu chấm ạ
vd: tuan.phamhoa.vn@gmail.com, thì chỉ lọc lấy kết quả là phamhoa.vn
trong file vd em có mô tả kết quả kĩ anh
anh xem chỉnh lại code giúp e với ạ !

giúp em hàm bóc tách dữ liệu ạ (6 người xem)

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

Thành viên tiêu biểu

File đính kèm

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

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

Thành viên tiêu biểu

GPE - My love

File đính kèm

Thành viên tiêu biểu

GPE - My love

Thành viên tiêu biểu

GPE - My love

File đính kèm

Thành viên tiêu biểu

GPE - My love

Thành viên tiêu biểu

<New Horizons>

GPE - My love

<New Horizons>

Thành viên tích cực

GPE - My love

Thành viên tiêu biểu

GPE - My love

File đính kèm

Thành viên tiêu biểu

Đếm ngược thời gian