So sánh 1 ký tự với chuỗi ký tự cách nhau dấu phẩy

[123456it]

Mong các bác giúp đỡ.. e có file Excel như đính kèm. E muốn so sánh các giá trị cột A với cácchuỗi giá trị Cột B để tìm ra giá trị giống nhau và có thông báo. Nhưng các giá trị cột B lại cách nhau bởi các dấu phẩy.Liệu có cách nào ko các bác nhỉ?

 

[hocexcel_1991]

Mong các bác giúp đỡ.. e có file Excel như đính kèm. E muốn so sánh các giá trị cột A với cácchuỗi giá trị Cột B để tìm ra giá trị giống nhau và có thông báo. Nhưng các giá trị cột B lại cách nhau bởi các dấu phẩy.Liệu có cách nào ko các bác nhỉ?

Bạn thử dùng công thức này

=IF(SUM(IFERROR(SEARCH(A2,$B$2:$B$7),0)),"Trùng","Khác")

 

[Maika8008]

Mong các bác giúp đỡ.. e có file Excel như đính kèm. E muốn so sánh các giá trị cột A với cácchuỗi giá trị Cột B để tìm ra giá trị giống nhau và có thông báo. Nhưng các giá trị cột B lại cách nhau bởi các dấu phẩy.Liệu có cách nào ko các bác nhỉ?

Cái dòng đầu tiên thì thế nào? Trùng hay Khác?

 

[123456it]

Bạn thử dùng công thức này

=IF(SUM(IFERROR(SEARCH(A2,$B$2:$B$7),0)),"Trùng","Khác")

Của bác chỉ so sánh ngang dòng đc thôi chứ ko so sánh đc so với cả cột

Bài đã được tự động gộp: 1/10/21

Cái dòng đầu tiên thì thế nào? Trùng hay Khác?
View attachment 267070

Trùng bác ạ. Vi nó trùng với A dòng dưới

 

[Maika8008]

Của bác chỉ so sánh ngang dòng đc thôi chứ ko so sánh đc so với cả cột

Bài đã được tự động gộp: 1/10/21

Trùng bác ạ. Vi nó trùng với A dòng dưới

Do cách diễn đạt của bạn nên không ai hiểu dẫn đến làm sai.

Bạn muốn so với bao nhiêu dòng ở cột B? Hay là tất cả các dòng?

 

[123456it]

Do cách diễn đạt của bạn nên không ai hiểu dẫn đến làm sai.

Bạn muốn so với bao nhiêu dòng ở cột B? Hay là tất cả các dòng?

Tất cả các dòng trong cột B bạn à

 

[Maika8008]

Tất cả các dòng trong cột B bạn à

Code:

Sub XYZ()
    Dim arr, i&, j&
    
    arr = Sheet1.Range("A2:C" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr)
            If InStr(1, arr(j, 2), arr(i, 1)) Then
                arr(i, 3) = "Trùng": Exit For
            End If
        Next
        If j = UBound(arr) + 1 Then arr(i, 3) = "Khác"
    Next
    Sheet1.Range("E2").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

 

[123456it]

Code:

Sub XYZ()
    Dim arr, i&, j&
   
    arr = Sheet1.Range("A2:C" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr)
            If InStr(1, arr(j, 2), arr(i, 1)) Then
                arr(i, 3) = "Trùng": Exit For
            End If
        Next
        If j = UBound(arr) + 1 Then arr(i, 3) = "Khác"
    Next
    Sheet1.Range("E2").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

Ko có câu lệnh để chạy hả Bác? Bác làm thế này chuyên nghiệp quá ! Em cám ơn nhé

 

[vanthinh3101]

Của bác chỉ so sánh ngang dòng đc thôi chứ ko so sánh đc so với cả cột

Đây là công thức mảng, bạn phải kết thúc bằng Ctrl + Shift + Enter.

Nếu chỉ muốn Enter thì bạn dùng công thức sau:

C2=IF(SUMPRODUCT(--ISNUMBER(SEARCH(A2,$B$2:$B$7))),"Trùng","Khác")

Enter, Fill xuống

 

[HieuCD]

Code:

Sub XYZ()
    Dim arr, i&, j&
   
    arr = Sheet1.Range("A2:C" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr)
            If InStr(1, arr(j, 2), arr(i, 1)) Then
                arr(i, 3) = "Trùng": Exit For
            End If
        Next
        If j = UBound(arr) + 1 Then arr(i, 3) = "Khác"
    Next
    Sheet1.Range("E2").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

Tìm "A" trong "B,CA,D" có thể là không trùng

Bài đã được tự động gộp: 1/10/21

Của bác chỉ so sánh ngang dòng đc thôi chứ ko so sánh đc so với cả cột

Bài đã được tự động gộp: 1/10/21

Trùng bác ạ. Vi nó trùng với A dòng dưới

Công thức bài #2 là công thức mảng phải nhấn Ctrl+Shift+Enter

 

[Maika8008]

Tìm "A" trong "B,CA,D" có thể là không trùng

Ờ nhỉ! Mấy cái dữ liệu ví dụ kiểu này khó đoán định lắm.

 

[phuongvq123]

Tất cả các dòng trong cột B bạn à

công thức mảng =IF(SUM(IFERROR(SEARCH(A2;$B$2:$B$7);0))>0;"trùng";"khác")