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

  • Thread starter Thread starter lala_qn
  • Ngày gửi Ngày gửi
Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
L

lala_qn

Thành viên tiêu biểu
Tham gia
2/5/09
Bài viết
598
Được thích
17
Nghề nghiệp
chưa ổn định
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 ạ !
 

File đính kèm

Lần chỉnh sửa cuối:
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 ạ !
Nhấp chuột vào đây để mở rộng...
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
 
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 ạ !
Nhấp chuột vào đây để mở rộng...
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),""))
 

File đính kèm

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),""))
Nhấp chuột vào đây để mở rộng...
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:

phulien1902 đã viết:
Công thức cho Sheet2
View attachment 197787
Nhấp chuột vào đây để mở rộng...
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:

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:


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
Nhấp chuột vào đây để mở rộng...
 
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:


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:
Nhấp chuột vào đây để mở rộng...
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.
 
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.
Nhấp chuột vào đây để mở rộng...
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:
 
Lần chỉnh sửa cuối:
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:
Nhấp chuột vào đây để mở rộng...
Tất cả tôi đã làm trong File, bạn xem nhé
 

File đính kèm

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
Nhấp chuột vào đây để mở rộng...
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.
 
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.
Nhấp chuột vào đây để mở rộng...
dạ, nhờ anh chị giúp dùm em bài này với ạ !
 
Thử:
PHP: 
Sheet2!C2=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(MID(LEFT(A2,FIND("<",A2)-1),IFERROR(LOOKUP(10^10,FIND({")","/","-","+","_"},A2))+1,1),100)),"+",""),"/",""),",",""),"""","")
 
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 ạ !
Nhấp chuột vào đây để mở rộng...
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.
 
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.
Nhấp chuột vào đây để mở rộng...
Hoàng tử của lòng em đây rồi !
Khà khà
 
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.
Nhấp chuột vào đây để mở rộng...
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 đã viết:
Phí rượu quá, khà khà.
Nhấp chuột vào đây để mở rộng...
cảm ơn anh!
Bài đã được tự động gộp:

phulien1902 đã viết:
Hoàng tử của lòng em đây rồi !
Khà khà
Nhấp chuột vào đây để mở rộng...
ở 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 ạ !
 
Lần chỉnh sửa cuối:
lala_qn đã viết:
cảm ơn anh!
Bài đã được tự động gộp:


ở 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 ạ !
Nhấp chuột vào đây để mở rộng...
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?
 
lala_qn đã viết:
cảm ơn anh!
Bài đã được tự động gộp:


ở 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 ạ !
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

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
Nhấp chuột vào đây để mở rộng...
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 ạ !
 
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 ạ !
Nhấp chuột vào đây để mở rộng...
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
 
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
Nhấp chuột vào đây để mở rộng...
dạ ok hết rùi, em cảm ơn anh nhiều ạ !
 
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!
 

File đính kèm

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!
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

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!
Nhấp chuột vào đây để mở rộng...
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
 
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
Nhấp chuột vào đây để mở rộng...
Dùng 2 cái này
StrReverse
sao không dùng.Ubound(mang)-stt
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng (1 người xem)
Trả lời
20
Đọc
9K
du trung kien
D
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng (1 người xem)
Trả lời
11
Đọc
198
HieuCD
H
8
Hàm trong excel
Trả lời
3
Đọc
47
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính
Trả lời
16
Đọc
263
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
7
Đọc
635
nguyendang95
N
T
Tìm số hóa đơn trong chuỗi (1 người xem)
Trả lời
8
Đọc
337
tranhungdao12a3
T
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
128
Nga1852k
Nga1852k
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
14
Đọc
1K
tung1423
tung1423
D
xin hỏi về lỗi mô đun ẩn. (1 người xem)
Trả lời
3
Đọc
137
ongke0711
ongke0711
H
Xin anh chị hướng dẫn công thức excel ạ. (1 người xem)
Trả lời
9
Đọc
259
Phan Thế Hiệp
Phan Thế Hiệp
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
4
Đọc
1K
LeThangbk
L
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
381
Đọc
44K
tuanktt3
T
M
Add-in Excel kết nối cơ sở dữ liệu
Trả lời
1
Đọc
94
ptm0412
ptm0412
Đ
tách dữ liệu từ một dòng thành hai dòng
Trả lời
2
Đọc
139
Phuocam
Phuocam
longhuy
Lỗi error 20728: F
Trả lời
0
Đọc
71
longhuy
longhuy
H
Trang tính chỉ hiển thị vùng có dữ liệu
Trả lời
7
Đọc
603
vinhkm6
vinhkm6
mrjun80
Có hàm nào đếm tổng các số nằm trong 1 ô không mọi người
Trả lời
12
Đọc
492
Phan Thế Hiệp
Phan Thế Hiệp
N
Hàm DATEDIF trong Excel 2016 (2 người xem)
Trả lời
16
Đọc
14K
Phan Thế Hiệp
Phan Thế Hiệp
Tiger Nau
Đánh số thứ tự trên tờ vé số (1 người xem)
Trả lời
6
Đọc
172
ptm0412
ptm0412
T
Dò giá trị nằm trong khoảng giá trị
Trả lời
1
Đọc
91
thao nguyen01
T
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

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

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom