Tìm các số gần giống nhau ! (1 người xem)

[123456it]

Em có file Excel kiểu thế này. E muốn dùng hàm nào đó lọc ra các ký tự gần giống nhau để báo trùng như kiểu như 777a+778a báo trùng với 777 và 778 các bác ạ. Cám ơn các bác rất nhiều

 

[CHAOQUAY]

Em có file Excel kiểu thế này. E muốn dùng hàm nào đó lọc ra các ký tự gần giống nhau để báo trùng như kiểu như 777a+778a báo trùng với 777 và 778 các bác ạ. Cám ơn các bác rất nhiều

Gửi file với vài kết quả giả định lên mới tính được

 

[batman1]

- Hãy mô tả dữ liệu đầu vào. Có 777a+778a. Thế có 777a+778b hay 777ab+778cde không? Tất cả 3 dạng đều trùng với 777 và 778?
- Hãy định nghĩa khái niệm "trùng", "gần giống nhau".
- Ở nơi cần kết quả hãy nhập bằng tay kết quả mong đợi.

 

[123456it]

Gửi file với vài kết quả giả định lên mới tính được

Kiểu như này bác ạ

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

- Hãy mô tả dữ liệu đầu vào. Có 777a+778a. Thế có 777a+778b hay 777ab+778cde không? Tất cả 3 dạng đều trùng với 777 và 778?
- Hãy định nghĩa khái niệm "trùng", "gần giống nhau".
- Ở nơi cần kết quả hãy nhập bằng tay kết quả mong đợi.

Báo gần giống nhau bác ạ.. Chắc e dùng từ sai ạ

 

[CHAOQUAY]

Kiểu như này bác ạ

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

Báo gần giống nhau bác ạ.. Chắc e dùng từ sai ạ

Thử code dưới đây

Sub abc()
Dim Nguon
Dim Kq
Dim i, j, k, x
Nguon = Sheet1.Range("D9:F26")
k = UBound(Nguon)
ReDim Kq(1 To k, 1 To 1)
For i = 1 To k
    If Nguon(i, 3) <> "" Then
        x = Len(Nguon(i, 3))
        For j = 1 To k
            If i <> j Then
                If Mid(Nguon(j, 3), 1, x) = CStr(Nguon(i, 3)) Then
                    Kq(i, 1) = Kq(i, 1) & " " & Nguon(j, 3)
                    Nguon(j, 3) = ""
                End If
            End If
        Next j
        If Kq(i, 1) <> "" Then
            Kq(i, 1) = "Giong " & Replace(Trim(Kq(i, 1)), " ", ", ")
        End If
    End If
Next i
Sheet1.Range("G9").Resize(k, 1).ClearContents
Sheet1.Range("G9").Resize(k, 1) = Kq
End Sub

 

[123456it]

Thử code dưới đây

Sub abc()
Dim Nguon
Dim Kq
Dim i, j, k, x
Nguon = Sheet1.Range("D9:F26")
k = UBound(Nguon)
ReDim Kq(1 To k, 1 To 1)
For i = 1 To k
    If Nguon(i, 3) <> "" Then
        x = Len(Nguon(i, 3))
        For j = 1 To k
            If i <> j Then
                If Mid(Nguon(j, 3), 1, x) = CStr(Nguon(i, 3)) Then
                    Kq(i, 1) = Kq(i, 1) & " " & Nguon(j, 3)
                    Nguon(j, 3) = ""
                End If
            End If
        Next j
        If Kq(i, 1) <> "" Then
            Kq(i, 1) = "Giong " & Replace(Trim(Kq(i, 1)), " ", ", ")
        End If
    End If
Next i
Sheet1.Range("G9").Resize(k, 1).ClearContents
Sheet1.Range("G9").Resize(k, 1) = Kq
End Sub

Em chưa hiểu về cái VBA này bác ạ Bác làm ơn hướng dẫn giúp em

 

[CHAOQUAY]

Em chưa hiểu về cái VBA này bác ạ Bác làm ơn hướng dẫn giúp em

Bạn xem thử file đính kèm, nhấn nút màu xanh

 

[123456it]

Bạn xem thử file đính kèm, nhấn nút màu xanh

Bác có sdt ko em gọi bác cái

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

Bác có sdt ko em gọi bác cái

Bạn xem thử file đính kèm, nhấn nút màu xanh

E chạy được rồi nhưng với file tổng nó báo thế này bác ạ

 

[123456it]

Bạn xem thử file đính kèm, nhấn nút màu xanh

Có một số trường hợp ko chạy bác ạ.. Cám ơn bác trước

 

[123456it]

Bạn xem thử file đính kèm, nhấn nút màu xanh

Bác có thể chạy tổng quan kiểu này ko ạ?

 

[CHAOQUAY]

Bác có thể chạy tổng quan kiểu này ko ạ?

Bạn gửi số liệu mẫu nhiều hơn nữa có lẽ tốt hơn.
---
Kết quả mong muốn của bạn là 3 ô tại cột E?

 

[123456it]

Bạn gửi số liệu mẫu nhiều hơn nữa có lẽ tốt hơn.
---
Kết quả mong muốn của bạn là 3 ô tại cột E?

E gửi bác !

 

[CHAOQUAY]

E gửi bác !

Các thửa có dấu "-" là lấy dãy số đầu tiên bên trái trước dấu "-" để so sánh phải không bạn?