giúp em hàm bóc tách dữ liệu ạ (1 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 ạ !

phulien1902 · 20/6/18

lala_qn đã viết:
cảm ơn anh!

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

ở 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 ạ !

Bạn phải kêu nhà sản xuất chứ? Tôi có biết gì đâu mà chỉnh với sửa?

excel_lv1.5 · 20/6/18

lala_qn đã viết:
cảm ơn anh!

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

ở 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 ạ !

Bạn chỉnh code lại như vầy:

PHP:

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

lala_qn · 21/6/18

excel_lv1.5 đã viết:

Bạn chỉnh code lại như vầy:

PHP:

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

dạ em chạy thử thì thấy còn lỗi như sau ạ
- ở sheet1 còn lỗi như sau
vd dữ liệu: anhvietvn@gmail.com thì kết quả là anhvietvn
vd dữ liệu: letuan_com@yahoo.com ra kết quả là letuan_com
2 dạng này em ko cần ra kết quả, nhờ anh chỉnh code loại bỏ 2 dạng này với ạ

- ở sheet2 còn lỗi như sau
vd dữ liệu: anh Tuấn <anhtuan@gmail.com> ra kết quả là n , cái này nếu đúng sẽ ko có kết quả
vd dữ liệu: "Phương -www.lephuong.com" <lephuong@gmail.com> ra kết quả là -www.lephuong.com, em cần kết quả đúng là lephuong.com
vd dữ liệu: Phú -phamphu.com <phamphu@gmail.com> ra kết quả là -phamphu.com , em cần kết quả đúng là phamphu.com

em cảm ơn anh nhiều ạ !

excel_lv1.5 · 21/6/18

lala_qn đã viết:
dạ em chạy thử thì thấy còn lỗi như sau ạ
- ở sheet1 còn lỗi như sau
vd dữ liệu: anhvietvn@gmail.com thì kết quả là anhvietvn
vd dữ liệu: letuan_com@yahoo.com ra kết quả là letuan_com
2 dạng này em ko cần ra kết quả, nhờ anh chỉnh code loại bỏ 2 dạng này với ạ

- ở sheet2 còn lỗi như sau
vd dữ liệu: anh Tuấn <anhtuan@gmail.com> ra kết quả là n , cái này nếu đúng sẽ ko có kết quả
vd dữ liệu: "Phương -www.lephuong.com" <lephuong@gmail.com> ra kết quả là -www.lephuong.com, em cần kết quả đúng là lephuong.com
vd dữ liệu: Phú -phamphu.com <phamphu@gmail.com> ra kết quả là -phamphu.com , em cần kết quả đúng là phamphu.com

em cảm ơn anh nhiều ạ !

Tôi chỉnh cho bạn thêm lần này nữa thôi nhe, bạn sửa code lại như vầy:

PHP:

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

lala_qn · 21/6/18

excel_lv1.5 đã viết:

Tôi chỉnh cho bạn thêm lần này nữa thôi nhe, bạn sửa code lại như vầy:

PHP:

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

dạ ok hết rùi, em cảm ơn anh nhiều ạ !

PHUCANNAIL · 23/3/19

Em có file này nhờ anh/ chị giúp em công thức lọc ra tỉnh, quận huyện và phường/ thị xã với~
Em cám ơn!

snow25 · 23/3/19

PHUCANNAIL đã viết:
Em có file này nhờ anh/ chị giúp em công thức lọc ra tỉnh, quận huyện và phường/ thị xã với~
Em cám ơn!

Bạn xem nhé.

Mã:

Sub locten()
     Dim arr, arr1, lr As Long, i As Long, a As Long, T, j As Integer, b As Integer, k As Byte
     lr = Range("B" & Rows.Count).End(xlUp).Row
     arr = Range("B2:B" & lr).Value
     ReDim arr1(1 To UBound(arr, 1), 1 To 4)
     For i = 1 To UBound(arr, 1)
         T = Split("," & arr(i, 1), ",")
         b = UBound(T)
         a = a + 1
         k = 0
         For j = b To 1 Step -1
             k = k + 1
             If k > 4 Then arr1(a, 4) = arr1(a, 4) & "," & T(j)
             arr1(a, k) = T(j)
         Next j
    Next i
    Range("C2:F" & lr).ClearContents
    Range("C2:F" & lr).Value = arr1
End Sub

CHAOQUAY · 23/3/19

PHUCANNAIL đã viết:
Em có file này nhờ anh/ chị giúp em công thức lọc ra tỉnh, quận huyện và phường/ thị xã với~
Em cám ơn!

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

Mã:

Function Tach(Nguon, STT)
Dim Mang
Mang = Split(StrReverse(Nguon), ",")
If STT <= UBound(Mang) + 1 Then
    Tach = StrReverse(Mang(STT - 1))
End If
End Function

snow25 · 23/3/19

CHAOQUAY đã viết:
Dùng thử hàm tự tạo

Mã:

Function Tach(Nguon, STT) Dim Mang Mang = Split(StrReverse(Nguon), ",") If STT <= UBound(Mang) + 1 Then Tach = StrReverse(Mang(STT - 1)) End If End Function

Dùng 2 cái này
StrReverse
sao không dùng.Ubound(mang)-stt

CHAOQUAY · 23/3/19

snow25 đã viết:
Dùng 2 cái này
StrReverse
sao không dùng.Ubound(mang)-stt

Quen tay ý mà

giúp em hàm bóc tách dữ liệu ạ (1 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

GPE - My love

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

File đính kèm

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

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

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

Thành viên mới

File đính kèm

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

File đính kèm

Thành viên gắn bó

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

Thành viên gắn bó

Thời gian đếm ngược.