So sánh các chuỗi ký tự (2 người xem)

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)
Tôi tuân thủ nội quy khi đăng bài
Có
hongphuong1997

hongphuong1997

Thành viên tiêu biểu
Tham gia
12/11/17
Bài viết
773
Được thích
322
Giới tính
Nữ
Em có bài toán như file đính kèm:
Em kính nhờ các bác và các anh chị viết cho em code hoặc Func với ạ.
Em xin cảm ơn ạ!
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Dòng 5: Kết quả phải là "2_4" trong khi bạn mong muốn nó là "2"?
Nếu là 2, thi dù bạn không nói rõ, nhưng hình như từ dòng 3 trở đi sẽ so sánh với 1 và 2?
Mình giả định quy luật là: 1 dòng bất kỳ sẽ so sánh với tất cả các dòng bên trên nó, nếu thỏa điều kiện từ 4 thành phần trở lên thỏa thì lấy dòng đó.
Kết quả dòng 5 sẽ là "2_4", vì dòng 2 và 4, mỗi dòng có ít nhất 4 thành phần khớp.

PHP: 
Option Explicit
Sub timchuoi()
Dim lr&, i&, j&, c&, rng, sp, res()
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 2 To UBound(rng)
    For j = 1 To i - 1
        c = 0
        For Each sp In Split(rng(i, 2), ",")
            If InStr(1, rng(j, 2) & ",", sp & ",") Then c = c + 1
            If c = 4 Then
                res(i, 1) = IIf(res(i, 1) = "", "", res(i, 1) & "_") & rng(j, 1)
                Exit For
            End If
        Next
    Next
Next
Range("C2:C10000").ClearContents
Range("C2").Resize(UBound(res), 1).Value = res
End Sub
 

File đính kèm

Upvote 0
bebo021999 đã viết:
Dòng 5: Kết quả phải là "2_4" trong khi bạn mong muốn nó là "2"?
Nếu là 2, thi dù bạn không nói rõ, nhưng hình như từ dòng 3 trở đi sẽ so sánh với 1 và 2?
Mình giả định quy luật là: 1 dòng bất kỳ sẽ so sánh với tất cả các dòng bên trên nó, nếu thỏa điều kiện từ 4 thành phần trở lên thỏa thì lấy dòng đó.
Kết quả dòng 5 sẽ là "2_4", vì dòng 2 và 4, mỗi dòng có ít nhất 4 thành phần khớp.

PHP: 
Option Explicit
Sub timchuoi()
Dim lr&, i&, j&, c&, rng, sp, res()
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 2 To UBound(rng)
    For j = 1 To i - 1
        c = 0
        For Each sp In Split(rng(i, 2), ",")
            If InStr(1, rng(j, 2) & ",", sp & ",") Then c = c + 1
            If c = 4 Then
                res(i, 1) = IIf(res(i, 1) = "", "", res(i, 1) & "_") & rng(j, 1)
                Exit For
            End If
        Next
    Next
Next
Range("C2:C10000").ClearContents
Range("C2").Resize(UBound(res), 1).Value = res
End Sub
Nhấp chuột vào đây để mở rộng...
Cháu cảm ơn bác ạ (Có khả năng cháu bị nhầm)
Để cháu kiểm tra nhé bác.
Bài đã được tự động gộp:

bebo021999 đã viết:
Dòng 5: Kết quả phải là "2_4" trong khi bạn mong muốn nó là "2"?
Nếu là 2, thi dù bạn không nói rõ, nhưng hình như từ dòng 3 trở đi sẽ so sánh với 1 và 2?
Mình giả định quy luật là: 1 dòng bất kỳ sẽ so sánh với tất cả các dòng bên trên nó, nếu thỏa điều kiện từ 4 thành phần trở lên thỏa thì lấy dòng đó.
Kết quả dòng 5 sẽ là "2_4", vì dòng 2 và 4, mỗi dòng có ít nhất 4 thành phần khớp.

PHP: 
Option Explicit
Sub timchuoi()
Dim lr&, i&, j&, c&, rng, sp, res()
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 2 To UBound(rng)
    For j = 1 To i - 1
        c = 0
        For Each sp In Split(rng(i, 2), ",")
            If InStr(1, rng(j, 2) & ",", sp & ",") Then c = c + 1
            If c = 4 Then
                res(i, 1) = IIf(res(i, 1) = "", "", res(i, 1) & "_") & rng(j, 1)
                Exit For
            End If
        Next
    Next
Next
Range("C2:C10000").ClearContents
Range("C2").Resize(UBound(res), 1).Value = res
End Sub
Nhấp chuột vào đây để mở rộng...
Bác oi, cháu kiểm tra rùi bác oi.
Code của bác chuẩn quá rùi.
Do cháu nhìn bằng mắt nên cháu bị sai đó bác.
 
Upvote 0
Bác @bebo021999 cháu kiểm tra kỹ lại rùi, code của bác vẫn bị nhầm bác oi.
Cháu đã thay đổi dữ liệu thì thấy nó sai sai bác oi.
bebo021999 đã viết:
Dòng 5: Kết quả phải là "2_4" trong khi bạn mong muốn nó là "2"?
Nếu là 2, thi dù bạn không nói rõ, nhưng hình như từ dòng 3 trở đi sẽ so sánh với 1 và 2?
Mình giả định quy luật là: 1 dòng bất kỳ sẽ so sánh với tất cả các dòng bên trên nó, nếu thỏa điều kiện từ 4 thành phần trở lên thỏa thì lấy dòng đó.
Kết quả dòng 5 sẽ là "2_4", vì dòng 2 và 4, mỗi dòng có ít nhất 4 thành phần khớp.

PHP: 
Option Explicit
Sub timchuoi()
Dim lr&, i&, j&, c&, rng, sp, res()
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 2 To UBound(rng)
    For j = 1 To i - 1
        c = 0
        For Each sp In Split(rng(i, 2), ",")
            If InStr(1, rng(j, 2) & ",", sp & ",") Then c = c + 1
            If c = 4 Then
                res(i, 1) = IIf(res(i, 1) = "", "", res(i, 1) & "_") & rng(j, 1)
                Exit For
            End If
        Next
    Next
Next
Range("C2:C10000").ClearContents
Range("C2").Resize(UBound(res), 1).Value = res
End Sub
Nhấp chuột vào đây để mở rộng...
Bác oi, bác sửa lại code cho cháu với ạ.
Những điều kiện trước là cháu chưa suy nghĩ kỹ mừ chỉ suy xét theo một chiều. (Tức là chỉ xét từ trên xuống dưới)
Bác chỉnh sửa giúp cháu là xét theo kiểu vòng tròn với bác.
Cháu cảm ơn bác ạ!
 

File đính kèm

Upvote 0
hongphuong1997 đã viết:
Bác @bebo021999
Bác chỉnh sửa giúp cháu là xét theo kiểu vòng tròn với bác.
Cháu cảm ơn bác ạ!
Nhấp chuột vào đây để mở rộng...
OK. Ít ra thì điều kiện phải rõ ràng thế chứ, dùng "ngoại suy" thì đau đầu lắm
Theo code này thì, đứng tại 1 dòng sẽ xét các dòng còn lại, ngoại trừ chính nó (Xét vòng tròn):
PHP: 
Option Explicit
Sub timchuoi()
Dim lr&, i&, j&, c&, rng, sp, res()
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 1 To UBound(rng)
    For j = 1 To UBound(rng)
        c = 0
        If i <> j Then
            For Each sp In Split(rng(i, 2), ",")
                If InStr(1, rng(j, 2) & ",", sp & ",") Then c = c + 1
                If c >= 4 Then
                    res(i, 1) = IIf(res(i, 1) = "", "", res(i, 1) & "_") & rng(j, 1)
                    Exit For
                End If
            Next
        End If
    Next
Next
Range("C2:C10000").ClearContents
Range("C2").Resize(UBound(res), 1).Value = res
End Sub
 

File đính kèm

Upvote 0
bebo021999 đã viết:
OK. Ít ra thì điều kiện phải rõ ràng thế chứ, dùng "ngoại suy" thì đau đầu lắm
Theo code này thì, đứng tại 1 dòng sẽ xét các dòng còn lại, ngoại trừ chính nó (Xét vòng tròn):
PHP: 
Option Explicit
Sub timchuoi()
Dim lr&, i&, j&, c&, rng, sp, res()
lr = Cells(Rows.Count, "B").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 1 To UBound(rng)
    For j = 1 To UBound(rng)
        c = 0
        If i <> j Then
            For Each sp In Split(rng(i, 2), ",")
                If InStr(1, rng(j, 2) & ",", sp & ",") Then c = c + 1
                If c >= 4 Then
                    res(i, 1) = IIf(res(i, 1) = "", "", res(i, 1) & "_") & rng(j, 1)
                    Exit For
                End If
            Next
        End If
    Next
Next
Range("C2:C10000").ClearContents
Range("C2").Resize(UBound(res), 1).Value = res
End Sub
Nhấp chuột vào đây để mở rộng...
Cháu cảm ơn bác rất nhiều ạ!
hihi.... bác oi bác cho cháu được voi đòi TRÂU tý tẹo nhé bác???? ....
Bác chuyển thể từ sub() thành Func với ạ.
Cháu cảm ơn bác ạ.
 
Upvote 0

File đính kèm

Upvote 0
Tùy theo dạng dữ liệu thực tế code có thể lượt bớt vài lệnh, nếu xét tất cả các khả năng cần phải viết đầy đủ các lệnh
Ví dụ thêm ô B8= b2,b4,b6,11
 
Upvote 0
So a với b rồi sau đó lại so b với a là lãng phí. Nhưng với cái kiểu thay đổi yêu cầu liên tục như thế này thì hơi đâu mà tối ưu, ra kết quả là được. Cái sự lãng phí trước đó hóa ra lại phù hợp với yêu cầu chuyển thành Function.
HieuCD đã viết:
Tùy theo dạng dữ liệu thực tế code có thể lượt bớt vài lệnh, nếu xét tất cả các khả năng cần phải viết đầy đủ các lệnh
Ví dụ thêm ô B8= b2,b4,b6,11
Nhấp chuột vào đây để mở rộng...
Cũng không trách người hỗ trợ được, còn tùy tâm và tùy khả năng nữa. Nếu người hỏi đã hài lòng với câu trả lời mà sau này phát sinh trường hợp ngoài mong muốn thì chỉ có thể trách mình hỏi không đến nơi đến chốn mà thôi.
--
Cái kiểu vừa mới phán "quá chuẩn rồi" ngay sau đó lại "thấy sai sai" là thấy không đáng tin rồi.
 
Upvote 0
huuthang_bd đã viết:
So a với b rồi sau đó lại so b với a là lãng phí. Nhưng với cái kiểu thay đổi yêu cầu liên tục như thế này thì hơi đâu mà tối ưu, ra kết quả là được. Cái sự lãng phí trước đó hóa ra lại phù hợp với yêu cầu chuyển thành Function.

Cũng không trách người hỗ trợ được, còn tùy tâm và tùy khả năng nữa. Nếu người hỏi đã hài lòng với câu trả lời mà sau này phát sinh trường hợp ngoài mong muốn thì chỉ có thể trách mình hỏi không đến nơi đến chốn mà thôi.
--
Cái kiểu vừa mới phán "quá chuẩn rồi" ngay sau đó lại "thấy sai sai" là thấy không đáng tin rồi.
Nhấp chuột vào đây để mở rộng...
Vâng ạ, vì cháu suy nghĩ chưa đầy đủ ạ.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

G
Tách công thức ra khỏi chuỗi và tính kết quả? (1 người xem)
2
Trả lời
25
Đọc
2K
bebo021999
B
thlpro
Cách lập Công thức tính số ngày nghỉ AL, ưu tiên tính 2024 trước rồi mới tính 2025 (1 người xem)
Trả lời
8
Đọc
131
bebo021999
B
N
Hàm tăng số đếm theo điều kiện (2 người xem)
Trả lời
4
Đọc
36
bebo021999
B
M
Xin giúp đỡ làm công thức điều kiện (1 người xem)
    • Yêu thích
Trả lời
3
Đọc
154
tayGa
T
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
Trả lời
12
Đọc
418
Hoàng Tuấn 868
H
G
Xin Code xóa Module.
Trả lời
9
Đọc
333
Ngày mai trời lại sáng
Ngày mai trời lại sáng
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (2 người xem)
    • Thích
Trả lời
2
Đọc
219
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
5
Đọc
181
DeTong
D
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
17
Đọc
283
tle2003
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
5
Đọc
121
VetMini
V
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
16 17 18
Trả lời
346
Đọc
31K
Vandat1607
V
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
10
Đọc
5K
tle2003
T
C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt
Trả lời
4
Đọc
196
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
28
Đọc
7K
Hoàng Tuấn 868
H
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
3
Đọc
178
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
22
Đọc
605
nguyendang95
N
S
Mở 2 cửa sổ riêng biệt
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
156
lamvu0677
L
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom