Xin code lọc trùng và copy ra một ô mới ạ! (1 người xem)

daiphong2601 · 21/10/23

Nhờ các bác giúp đỡ với ạ!
Bài toán là em có một bảng tính, em muốn lọc trùng dữ liệu của 2 ô ở 2 cột khác nhau và xuất ra 1 cột mới (không phân biệt chữ in thường và in hoa ạ)
Ví dụ:
- Ô A1: TH, DA, C10, B28, 40
- Ô B1: TH, C10, C12, DA, 40
Thì sẽ lọc trùng và xuất ra ô C1: TH, DA, C10, 40
tương tự cho các ô tiếp theo của 2 cột. Cảm ơn các bác ạ

HUONGHCKT · 21/10/23

daiphong2601 đã viết:
Nhờ các bác giúp đỡ với ạ!
Bài toán là e có một bảng tính, e muốn lọc trùng dữ liệu của 2 ô ở 2 cột khác nhau và xuất ra 1 cột mới (không phân biệt chữ in thường và in hoa ạ)
Ví dụ:
- Ô A1: TH, DA, C10, B28, 40
- Ô B1: TH, C10, C12, DA, 40
Thì sẽ lọc trùng và xuất ra ô C1: TH, DA, 40
tương tự cho các ô tiếp theo của 2 cột. Tks các bác ạ

Trùng là thế nào? Là các phần tử xuất hiện ở cả A1 và B1 đúng không? Theo như kết quả minh họa Thì C10 có cả ở A1 và B1 có được gọi là trùng không?

daiphong2601 · 21/10/23

HUONGHCKT đã viết:
Trùng là thế nào? Là các phần tử xuất hiện ở cả A1 và B1 đúng không? Theo như kết quả minh họa Thì C10 có cả ở A1 và B1 có được gọi là trùng không?

dạ đúng là các phần tử trùng ở cả A1 và B1 bác ạ, e đã sửa lại rồi ạ

HUONGHCKT · 21/10/23

daiphong2601 đã viết:
dạ đúng là các phần tử trùng ở cả A1 và B1 bác ạ, e đã sửa lại rồi ạ

Tôi khuyên bạn là nên viết đầy đủ, đúng ngữ pháp tiếng mẹ đẻ (ví dụ: e, ace ,tks, ...), không chêm hay có các từ nước ngoài (ví dụ: OK, thanks all, pro...),hoặc sử dụng các từ từ phim chưởng, phim tàu (ví dụ: Tiền bối, cao nhân, cao thủ...), mà hãy viết đầy đủ 1 câu Tiếng Việt ( e=em, ace= anh chị em, tks = cảm ơn, Thanks all =cảm ơn mọi người, cảm ơn các anh chị,...;tiền bối= các bác, các chú, các chị,....) như thế thì hy vọng sẽ nhận được sự trợ giúp nhiều hơn.

Hoàng Tuấn 868 · 21/10/23

HUONGHCKT đã viết:
Tôi khuyên bạn là nên viết đầy đủ, đúng ngữ pháp tiếng mẹ đẻ (ví dụ: e, ace ,tks, ...), không chêm hay có các từ nước ngoài (ví dụ: OK, thanks all, pro...),hoặc sử dụng các từ từ phim chưởng, phim tàu (ví dụ: Tiền bối, cao nhân, cao thủ...), mà hãy viết đầy đủ 1 câu Tiếng Việt ( e=em, ace= anh chị em, tks = cảm ơn, Thanks all =cảm ơn mọi người, cảm ơn các anh chị,...;tiền bối= các bác, các chú, các chị,....) như thế thì hy vọng sẽ nhận được sự trợ giúp nhiều hơn.

Em cũng đọc bài #1 ngay khi vừa đăng lên nhưng thấy câu chữ không ổn như anh vừa đề cập nên bỏ qua luôn.

daiphong2601 · 21/10/23

Hoàng Tuấn 868 đã viết:
Em cũng đọc bài #1 ngay khi vừa đăng lên nhưng thấy câu chữ không ổn như anh vừa đề cập nên bỏ qua luôn.

Cũng chỉ là em viết tắt chữ "e" thay cho chữ em, bác HuongHCKT nhắc em rút kinh nghiệm sửa bài, chứ cũng không đến mức thất lễ, chưa hiểu bác bảo câu chữ không ổn là ở đâu?

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

HUONGHCKT đã viết:
Tôi khuyên bạn là nên viết đầy đủ, đúng ngữ pháp tiếng mẹ đẻ (ví dụ: e, ace ,tks, ...), không chêm hay có các từ nước ngoài (ví dụ: OK, thanks all, pro...),hoặc sử dụng các từ từ phim chưởng, phim tàu (ví dụ: Tiền bối, cao nhân, cao thủ...), mà hãy viết đầy đủ 1 câu Tiếng Việt ( e=em, ace= anh chị em, tks = cảm ơn, Thanks all =cảm ơn mọi người, cảm ơn các anh chị,...;tiền bối= các bác, các chú, các chị,....) như thế thì hy vọng sẽ nhận được sự trợ giúp nhiều hơn.

Người có tài năng nhưng mà cũng lập dị vừa phải thôi bác ạ, mấy cái tiểu tiết nào của người khác có thể bỏ qua được thì bỏ qua cho người ta!

HUONGHCKT · 21/10/23

daiphong2601 đã viết:
Nhờ các bác giúp đỡ với ạ!
Bài toán là em có một bảng tính, em muốn lọc trùng dữ liệu của 2 ô ở 2 cột khác nhau và xuất ra 1 cột mới (không phân biệt chữ in thường và in hoa ạ)
Ví dụ:
- Ô A1: TH, DA, C10, B28, 40
- Ô B1: TH, C10, C12, DA, 40
Thì sẽ lọc trùng và xuất ra ô C1: TH, DA, C10, 40
tương tự cho các ô tiếp theo của 2 cột. Cảm ơn các bác ạ

daiphong2601 đã viết:
Cũng chỉ là em viết tắt chữ "e" thay cho chữ em, bác HuongHCKT nhắc em rút kinh nghiệm sửa bài, chứ cũng không đến mức thất lễ, chưa hiểu bác bảo câu chữ không ổn là ở đâu?

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

Người có tài năng nhưng mà cũng lập dị vừa phải thôi bác ạ, mấy cái tiểu tiết nào của người khác có thể bỏ qua được thì bỏ qua cho người ta!

Tôi tự nhận thấy mình chẳng có tài năng gì, và rất rất nhiều người nơi tôi đã và đang sống, công tác, nhận xét về tôi cũng là người bình thường thôi, chứ chả có gì là "tài năng", "khác người ", chả có gì là "lập dị" như bạn nhận xét.
Cảm nhận ban đầu của tôi là bạn là người cầu thị, và cũng đã nghĩ "thôi thì họ không có file giả định, thì mình lập hộ cũng được, 1 dòng thôi chứ có nhiều nhặn gì đâu" và đã cắm cúi làm bài, và đã có được đáp án.
Nhưng đọc đến bài này thì mới thấy mình cần xem lại cái cảm nhận ban đầu, có lẽ mình đã sai rồi. và tất nhiên là đáp án làm ra cũng chỉ để cho riêng mình tham khảo mà thôi.

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

Cảm ơn anh @ Hoàng Tuấn 868 đã đồng cảm.

SA_DQ · 21/10/23

PHP:

Sub ThamKhao_Split()
    Dim Txt As String
    Dim X As Variant:               Dim J As Long
       
    X = Split([E2].Value, ",")
    For J = 0 To UBound(X)
        If InStr(UCase$([E1].Value), UCase$(X(J))) Then
           Txt = X(J) & ";" & Txt
        End If
    Next J
    [E4].Value = Txt
End Sub

VetMini · 21/10/23

HUONGHCKT đã viết:
...
Nhưng đọc đến bài này thì mới thấy mình cần xem lại cái cảm nhận ban đầu, có lẽ mình đã sai rồi. và tất nhiên là đáp án làm ra cũng chỉ để cho riêng mình tham khảo mà thôi.

Cảm ơn anh @ Hoàng Tuấn 868 đã đồng cảm.

Theo ý nghĩa của câu thành ngữ "không mợ chợ cũng đông" thì rõ ràng người ta không cần phải theo ý ai cả vẫn được giúp như thường. Hiện tại, ở diễn đàn này có ít nhất là 3 người sẵn sàng "chỉ nhìn bài rồi giải, các chuyện khác gác ngoài tai". (gần đây còn có người thứ 4 nữa)

Khi nói chuyện về "văn hóa diễn đàn công nghệ" thì bạn cũng nên chuẩn bị bị mắng.

daiphong2601 · 21/10/23

HUONGHCKT đã viết:
Tôi tự nhận thấy mình chẳng có tài năng gì, và rất rất nhiều người nơi tôi đã và đang sống, công tác, nhận xét về tôi cũng là người bình thường thôi, chứ chả có gì là "tài năng", "khác người ", chả có gì là "lập dị" như bạn nhận xét.
Cảm nhận ban đầu của tôi là bạn là người cầu thị, và cũng đã nghĩ "thôi thì họ không có file giả định, thì mình lập hộ cũng được, 1 dòng thôi chứ có nhiều nhặn gì đâu" và đã cắm cúi làm bài, và đã có được đáp án.
Nhưng đọc đến bài này thì mới thấy mình cần xem lại cái cảm nhận ban đầu, có lẽ mình đã sai rồi. và tất nhiên là đáp án làm ra cũng chỉ để cho riêng mình tham khảo mà thôi.

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

Cảm ơn anh @ Hoàng Tuấn 868 đã đồng cảm.

Tôi thực lòng cầu thị lên diễn đàn nhờ sự giúp đỡ, bác đọc hiểu được thì giúp, không giúp thì đi qua. Cứ phải nói nhiều làm gì nhỉ.

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

VetMini đã viết:
Theo ý nghĩa của câu thành ngữ "không mợ chợ cũng đông" thì rõ ràng người ta không cần phải theo ý ai cả vẫn được giúp như thường. Hiện tại, ở diễn đàn này có ít nhất là 3 người sẵn sàng "chỉ nhìn bài rồi giải, các chuyện khác gác ngoài tai". (gần đây còn có người thứ 4 nữa)

Khi nói chuyện về "văn hóa diễn đàn công nghệ" thì bạn cũng nên chuẩn bị bị mắng.

Tôi lên hỏi vấn đề có chủ vị, cảm ơn rõ ràng, chỉ viết tắt chữ em = "e", cảm ơn = "tks" thì vấn đề nó to đến đâu mà 2 ông lên bình luận bảo câu chữ không ổn nên không giúp bỏ qua. Thử hỏi diễn dàn sinh ra vì mục đích gì?

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

SA_DQ đã viết:

PHP:

Sub ThamKhao_Split()
    Dim Txt As String
    Dim X As Variant:               Dim J As Long
      
    X = Split([E2].Value, ",")
    For J = 0 To UBound(X)
        If InStr(UCase$([E1].Value), UCase$(X(J))) Then
           Txt = X(J) & ";" & Txt
        End If
    Next J
    [E4].Value = Txt
End Sub

Cảm ơn bác nhiều nhé

HieuCD · 21/10/23

SA_DQ đã viết:

PHP:

Sub ThamKhao_Split()
    Dim Txt As String
    Dim X As Variant:               Dim J As Long
      
    X = Split([E2].Value, ",")
    For J = 0 To UBound(X)
        If InStr(UCase$([E1].Value), UCase$(X(J))) Then
           Txt = X(J) & ";" & Txt
        End If
    Next J
    [E4].Value = Txt
End Sub

Với dữ liệu "40" và thêm vũ khí hạng nặng "B40" thì code sẽ nhận diện trùng

VetMini · 21/10/23

daiphong2601 đã viết:
...
Tôi lên hỏi vấn đề có chủ vị, cảm ơn rõ ràng, chỉ viết tắt chữ em = "e", cảm ơn = "tks" thì vấn đề nó to đến đâu mà 2 ông lên bình luận bảo câu chữ không ổn nên không giúp bỏ qua.
...

Bạn kia chỉ khuyên chứ có chửi bạn đâu.
Bạn ấy mở đầu "Tôi khuyên bạn là..." và kết thúc là "...thì hy vọng sẽ nhận được sự trợ giúp nhiều hơn".

Bạn mới chính là người làm to chuyện lên. Bạn nghĩ rằng có người trả lời là đứng về phe mình cho nên cố làm dữ? Chính bạn là người phê phán người ta "lập dị" ở trên mà.

daiphong2601 đã viết:
Thử hỏi diễn dàn sinh ra vì mục đích gì?
...

Lạ nhỉ. Câu này hỏi người thành lập diễn đàn chứ sao lại hỏi tôi?

Chú thích: tôi là người chuyên tài chính cho nên tôi chỉ có thể gợi ý rằng
Có những câu lạc bộ mở ra bằng cổ phần của loại thành viên chủ chốt. Mục đích của câu lạc bộ là đem lợi nhuận về cho những cổ phần này. Những thành viên khác đóng lệ phí hằng năm, không hưởng lợi nhuận gì cả.
Có những câu lạc bộ đăng ký không lợi nhuận. Mục đích của câu lạc bộ loại này là tạo công ăn việc làm với lương cao cho ban quản trị. Lợi nhuận thu về sẽ phải chia đều lại dới hình thức "khuyến mãi" hoặc giảm giá lệ phí thường niên (trả bớt tiền lại) của thành viên.
Đương nhiên, trong thời gian lỗ lã thì cổ phần mất giá. Để có đủ lệ phí hoạt động, chủ hoặc phải thêm cổ phần, hoặc định cho mỗi cổ phần cần đóng thêm.

SA_DQ · 22/10/23

daiphong2601 đã viết:
. . . . . .
Cảm ơn bác nhiều nhé

Hãy cảm ơn diễn đàn; Còn tôi chả đáng để bạn cảm ơn đâu, mà đang hại bạn đó thôi!

HUONGHCKT · 22/10/23

daiphong2601 đã viết:
Tôi thực lòng cầu thị lên diễn đàn nhờ sự giúp đỡ, bác đọc hiểu được thì giúp, không giúp thì đi qua. Cứ phải nói nhiều làm gì nhỉ.

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

Tôi thấy bạn có ý cầu thị nhưng cái cách mà bạn cầu thị thì bạn nên xem lại.
Tôi đã khuyên bạn" hãy nên....." thì bạn đáp trả thế nào? Bạn cho rằng người khuyên bạn là người ra sao chắc tôi không cần nhắc lại? Thế là sao, hay bạn tự cho mình có quyền áp đặt ý chủ quan của mình lên người khác và muốn nói gì họ cũng phải nghe và làm cho bạn?

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

VetMini đã viết:
Bạn kia chỉ khuyên chứ có chửi bạn đâu.
Bạn ấy mở đầu "Tôi khuyên bạn là..." và kết thúc là "...thì hy vọng sẽ nhận được sự trợ giúp nhiều hơn".

Bạn mới chính là người làm to chuyện lên. Bạn nghĩ rằng có người trả lời là đứng về phe mình cho nên cố làm dữ? Chính bạn là người phê phán người ta "lập dị" ở trên mà.

Không biết là chủ thớt đã đọc và hiểu như anh hiểu không.
Tôi thấy mình bị mắng cũng phải thôi. "Chợ vẫn đông" và "gạch đá" cũng rất nhiều

Tuan.DNa · 22/10/23

VetMini đã viết:
Theo ý nghĩa của câu thành ngữ "không mợ chợ cũng đông" thì rõ ràng người ta không cần phải theo ý ai cả vẫn được giúp như thường. Hiện tại, ở diễn đàn này có ít nhất là 3 người sẵn sàng "chỉ nhìn bài rồi giải, các chuyện khác gác ngoài tai". (gần đây còn có người thứ 4 nữa)

Khi nói chuyện về "văn hóa diễn đàn công nghệ" thì bạn cũng nên chuẩn bị bị mắng.

Trong 4 người đó, có tôi không Chú @VetMini.
Nói thiệt, nhiều lúc cũng phải thông cảm cho tụi nhỏ. Giờ nhắn tin hơi bị nhiều, nên phải viết tắt cho kịp tiến trình, tiến độ của thời cuộc.
Với lại, thời đại Tây vs Ta lẫn lọn, lâu lâu chem một vài câu tiếng Anh thì thấy bình thường (trước giờ không thấy ai chem tiếng TQ hay Thái vô zạ ta!)
Tôi thì không phản ánh gì chủ thớt, vì tôi cũng như chủ thớt thôi. Giờ mà viết đầy đủ, không thiếu đầu, hụt đuôi, thiếu giữa như là một cực hình vậy. Vãi lâu...
Nhưng thôi, cở mình là cơ dưới, nên vào đây Chủ thớt phải theo thời cuộc.
Nhưng tôi cũng khuyên chủ thớt 1 câu: "Ta là ta, ai cũng có cái tôi hết. Ok!"

Maika8008 · 22/10/23

Tôi thấy viết đầy đủ như thế này chẳng tốn mấy thời gian hơn so với viết tắt (tôi dùng cách vuốt trên bàn phím Gboard điện thoại).

Và chẳng cơ dưới cơ trên gì cả mà là nhập gia tùy tục, không thể đem sự xô bồ của mạng xã hội vào 1 diễn đàn nghiêm túc được.

SA_DQ · 22/10/23

Tuan.DNa đã viết:
. . . . .
Nhưng tôi cũng khuyên chủ thớt 1 câu: "Ta là ta, ai cũng có cái tôi hết. Ok!"

Còn mình thì khuyên bạn 1 câu:
Cái 'ta' của mình phải nằm trong cái 'ta' của nội qui (Về mặt pháp lý) & . . . . . . .

Tuan.DNa · 22/10/23

Qui định là qui định. Luật là luật. Không (ko) có vùng cấm!.
Cứ vậy mà làm. Khỏi bàn cải!
Teencode với (vs) kiểu chử cải tiến PGS Bùi Hiền thì cho qua bên đi cho lành.
Chủ thớt cứ chậm mà chắc. Như tôi đây nè: viết xong phải đọc đi đọc lại, gửi lên rồi nhiều khi phải sửa (edit) lại đó.
Dây kinh nghiệm dài lắm, chủ thớt cứ rút nhé, kkk

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

Thôi, nhườn lại cho mọi người giúp Chủ thớt. Tránh làm loãng chủ đề của họ.
Tôi thì không có khả năng. Ngồi lót dép hóng!

cantl · 22/10/23

daiphong2601 đã viết:
Nhờ các bác giúp đỡ với ạ!
Bài toán là em có một bảng tính, em muốn lọc trùng dữ liệu của 2 ô ở 2 cột khác nhau và xuất ra 1 cột mới (không phân biệt chữ in thường và in hoa ạ)
Ví dụ:
- Ô A1: TH, DA, C10, B28, 40
- Ô B1: TH, C10, C12, DA, 40
Thì sẽ lọc trùng và xuất ra ô C1: TH, DA, C10, 40
tương tự cho các ô tiếp theo của 2 cột. Cảm ơn các bác ạ

Hehe, tớ có thể hiểu tâm tư của bạn, và ai cũng có lần đầu, lần 3, lần 5, lần 7, ...
Nên tớ giúp tí, nhưng chưa thể bẫy lỗi hết các khả năng, nên nên và nên hiểu những lời khuyên chân thành để không mất đi sự giúp đỡ của những người có khả năng tốt hơn.

Mã:

Option Explicit

Function trung2o(cell1 As Range, cell2 As Range)
Dim arr1, arr2
Dim i&, j&
arr1 = Split(cell1.Value, ",")
arr2 = Split(cell2.Value, ",")
For i = LBound(arr1) To UBound(arr1)
For j = LBound(arr2) To UBound(arr2)
    If arr1(i) = arr2(j) Then
    trung2o = trung2o & "," & arr1(i)
    End If
Next
Next
trung2o = Mid(trung2o, 2, Len(trung2o))
End Function

Tuan.DNa · 22/10/23

cantl đã viết:
Hehe, tớ có thể hiểu tâm tư của bạn, và ai cũng có lần đầu, lần 3, lần 5, lần 7, ...
Nên tớ giúp tí, nhưng chưa thể bẫy lỗi hết các khả năng, nên nên và nên hiểu những lời khuyên chân thành để không mất đi sự giúp đỡ của những người có khả năng tốt hơn.

Mã:

Option Explicit Function trung2o(cell1 As Range, cell2 As Range) Dim arr1, arr2 Dim i&, j& arr1 = Split(cell1.Value, ",") arr2 = Split(cell2.Value, ",") For i = LBound(arr1) To UBound(arr1) For j = LBound(arr2) To UBound(arr2) If arr1(i) = arr2(j) Then trung2o = trung2o & "," & arr1(i) End If Next Next trung2o = Mid(trung2o, 2, Len(trung2o)) End Function

@cantl nên giải thích sử dụng trong code Function hàm: Split, LBound, UBound, Len và Mid. Để chủ thớt biết mà tùy biến và áp dụng theo thực tế, thì hay hơn nha bạn.
- Split:
- LBound, UBound:
- Mid:
- Len:
Còn mấy cái if và next đó thì chắc chủ thớt áp dụng được.
(Suy nghỉ cá nhân là vậy)

VetMini · 22/10/23

cantl đã viết:
Hehe, tớ có thể hiểu tâm tư của bạn, và ai cũng có lần đầu, lần 3, lần 5, lần 7, ...
Nên tớ giúp tí, nhưng chưa thể bẫy lỗi hết các khả năng, nên nên và nên hiểu những lời khuyên chân thành để không mất đi sự giúp đỡ của những người có khả năng tốt hơn.
...

Giải thuật này còn thô quá.
1. Cần so sánh chiều dài 2 mảng. Vòng lặp duyệt mảng nhỏ hơn (vì nó nhanh hết hơn)
2. Nếu chuỗi ngắn thì so sánh bằng InStr hiệu quả hơn tra mảng. Nếu dài thì dùng hàm Match hiệu quả hơn.

cantl · 22/10/23

Tuan.DNa đã viết:
nên giải thích sử dụng trong code

Không nên giải thích, dùng, rồi gặp lỗi gì sẽ hỏi thêm.

VetMini đã viết:
Giải thuật này còn thô quá.
1. Cần so sánh chiều dài 2 mảng. Vòng lặp duyệt mảng nhỏ hơn (vì nó nhanh hết hơn)
2. Nếu chuỗi ngắn thì so sánh bằng InStr hiệu quả hơn tra mảng. Nếu dài thì dùng hàm Match hiệu quả hơn.

Giải thuật này đáp ứng theo cách hiểu cực kỳ phổ thông mà bác (trường phái dò lô tô).
1. Em tưởng 2 mảng (3 và 10 giá trị) thì vòng lặp nó đều là 3x10=30. Nếu duyệt mảng 3 trước thì nhanh hơn hả bác?
2. Để em nghĩ đã.

PS: Bài này mà chuỗi dài chắc phải đổi cách tra khác, ví dụ chuỗi 1 nó thế này thì toi:
TH, ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ...TH, ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ..., ...TH,, ..., ..., ..., ..., ..., ..., ..., ..., ..., ...

VetMini · 22/10/23

cantl đã viết:
Không nên giải thích, dùng, rồi gặp lỗi gì sẽ hỏi thêm.

Giải thuật này đáp ứng theo cách hiểu cực kỳ phổ thông mà bác (trường phái dò lô tô).
1. Em tưởng 2 mảng (3 và 10 giá trị) thì vòng lặp nó đều là 3x10=30. Nếu duyệt mảng 3 trước thì nhanh hơn hả bác?
...

Nếu duyệt bằng 2 vòng lặp thì độ sử dụng năng lượng như nhau:
n*m/2
n nhỏ hơn hay m nhỏ hơn kết quả vẫn vậy.

Suy tính chỉ cho trường hợp duyệt một mảng, mỗi phần từ đem dò với cái thứ hai. (bằng chuỗi hay hàm match)

SA_DQ · 22/10/23

cantl đã viết:

Mã:

Option Explicit
Function trung2o(cell1 As Range, cell2 As Range)
Dim arr1, arr2
Dim i&, j&
arr1 = Split(cell1.Value, ",")
arr2 = Split(cell2.Value, ",")
For i = LBound(arr1) To UBound(arr1)
For j = LBound(arr2) To UBound(arr2)
    If arr1(i) = arr2(j) Then
    trung2o = trung2o & "," & arr1(i)
    End If
Next
Next
trung2o = Mid(trung2o, 2, Len(trung2o))
End Function

Chủ bài đăng yêu cầu là : "(không phân biệt chữ in thường và in hoa ạ)"

cantl · 22/10/23

Phiên bản cải tiến. --=0

Mã:

Function trung2oV2(cell1 As Range, cell2 As Range)
Dim arr1
Dim i&
arr1 = Split(Replace(cell1.Value, " ", "") & ",", ",")
For i = LBound(arr1) To UBound(arr1)
    If InStr(1, cell2.Value, arr1(i), vbTextCompare) Then
        trung2oV2 = trung2oV2 & ", " & arr1(i)
    End If
Next
trung2oV2 = Mid(trung2oV2, 3, Len(trung2oV2) - 4)
End Function

VetMini · 23/10/23

Tuan.DNa đã viết:
Trong 4 người đó, có tôi không Chú @VetMini.
...

Bạn chưa xứng. Và cũng đừng mơ nữa, còn lâu lắm mới đạt.
Nếu nói theo ngôn ngữ của bạn thì những người này thuộc bậc "Sếp" hay "Sếp của Sếp" của bạn.

Phuocam · 23/10/23

cantl đã viết:

Phiên bản cải tiến. --=0

Mã:

Function trung2oV2(cell1 As Range, cell2 As Range)
Dim arr1
Dim i&
arr1 = Split(Replace(cell1.Value, " ", "") & ",", ",")
For i = LBound(arr1) To UBound(arr1)
    If InStr(1, cell2.Value, arr1(i), vbTextCompare) Then
        trung2oV2 = trung2oV2 & ", " & arr1(i)
    End If
Next
trung2oV2 = Mid(trung2oV2, 3, Len(trung2oV2) - 4)
End Function

Đọc lại bài #11 của bác @HieuCD .

.

cantl · 23/10/23

Phuocam đã viết:
Đọc lại bài #11 của bác @HieuCD .

.

Hehe, em đọc rồi mà đến lúc viết code 1 lại quên mất, sửa lại chút thôi nhưng để chiều lòng tác giả và diễn đàn thì những code trên đáp ứng được đề bài và mong muốn của các bên bác ạ.

VetMini · 23/10/23

cantl đã viết:
Hehe, em đọc rồi mà đến lúc viết code 1 lại quên mất, sửa lại chút thôi nhưng để chiều lòng tác giả và diễn đàn thì những code trên đáp ứng được đề bài và mong muốn của các bên bác ạ.

Trong nhóm "mong muốn" ấy chẳng có tôi. Quan niệm của tôi là mấy người hỏi bài hời hợt thế này thì code voi cũng như code chuột.
Tôi chỉ mách cho bạn vài cách làm việc với mảng và chuỗi thôi. Không ai có thể vỗ ngực bảo mình "biết lập trình" mà không rành mảng và chuỗi cả.

Chỗ mà tôi muốn dẫn bạn tới là chỉ cần khai báo một mảng thôi.

a1 = Split(chuỗi 1,... ' bắt buộc là vì mảng a1 sẽ được referenced nhiều lần
For Each CH In Split(chuỗi 2... ' chỉ cần 1 lần cho nên chả cần chứa, VBA chứa và xóa giùm
If Not IsError(Application.Match(CH, a1, 0)) Then ' có trùng
' làm cái gì đó ở đây
Next CH
' hiệu quả hóa hơn bàng cách so sánh và chọn chuoic nào làm a1
' và nếu chuỗi rất dài thì sort a1, hàm Match hoạt động hiệu quả hơn

daiphong2601 · 23/10/23

Tuan.DNa đã viết:
Trong 4 người đó, có tôi không Chú @VetMini.
Nói thiệt, nhiều lúc cũng phải thông cảm cho tụi nhỏ. Giờ nhắn tin hơi bị nhiều, nên phải viết tắt cho kịp tiến trình, tiến độ của thời cuộc.
Với lại, thời đại Tây vs Ta lẫn lọn, lâu lâu chem một vài câu tiếng Anh thì thấy bình thường (trước giờ không thấy ai chem tiếng TQ hay Thái vô zạ ta!)
Tôi thì không phản ánh gì chủ thớt, vì tôi cũng như chủ thớt thôi. Giờ mà viết đầy đủ, không thiếu đầu, hụt đuôi, thiếu giữa như là một cực hình vậy. Vãi lâu...
Nhưng thôi, cở mình là cơ dưới, nên vào đây Chủ thớt phải theo thời cuộc.
Nhưng tôi cũng khuyên chủ thớt 1 câu: "Ta là ta, ai cũng có cái tôi hết. Ok!"

Nói thật với anh, em với tâm lý là người đi hỏi thì cũng cầu thị lắng nghe, bác kia vào bảo sửa viết tắt, em cũng sửa. Nhưng thấy có 2 người vào bảo đọc qua thấy câu cú không ổn nên bỏ qua không giúp, trong khi em không teencode hay không chủ vị gì (viết tắt chữ "e" và "tks"). Em chỉ muốn là cái mình không biết, mình nhờ mọi người, ai không giúp thì thôi, động viên cũng được, nói mấy cái nó đáng nói một chút. Trong khi e đọc nhiều chủ đề có viết tắt, mấy người đó vẫn vào bình luận bình thường. Mấy người này đa nhân cách quá!

Maika8008 · 23/10/23

daiphong2601 đã viết:
Nói thật với anh, em với tâm lý là người đi hỏi thì cũng cầu thị lắng nghe, bác kia vào bảo sửa viết tắt, em cũng sửa. Nhưng thấy có 2 người vào bảo đọc qua thấy câu cú không ổn nên bỏ qua không giúp, trong khi em không teencode hay không chủ vị gì (viết tắt chữ "e" và "tks"). Em chỉ muốn là cái mình không biết, mình nhờ mọi người, ai không giúp thì thôi, động viên cũng được, nói mấy cái nó đáng nói một chút. Trong khi e đọc nhiều chủ đề có viết tắt, mấy người đó vẫn vào bình luận bình thường. Mấy người này đa nhân cách quá!

Thôi, tập trung vào vấn đề của bạn: các code viết ra đã giải quyết được chưa? Vấn đề kia tất yếu sẽ được giải tỏa nếu bạn thực sự cầu thị.

Tôi thả cái haha vì bạn viết cũng dính 1 chữ e. --=0

cantl · 23/10/23

Em thêm cái bo nút cho trọn vẹn:
- V1.5 mà không viết được dấu ".", VBA chết tiệt.
Cả 2 đều cập nhật B40.

PS: các bác chiêm ngưỡng thôi nhé, bắt sửa là em lại ngứa tay.

daiphong2601 · 23/10/23

Maika8008 đã viết:
Thôi, tập trung vào vấn đề của bạn: các code viết ra đã giải quyết được chưa? Vấn đề kia tất yếu sẽ được giải tỏa nếu bạn thực sự cầu thị.

Tôi thả cái haha vì bạn viết cũng dính 1 chữ e.

Em giải quyết được vấn đề rồi bác ạ

hongphuong1997 · 23/10/23

@

daiphong2601 đã viết:
Em giải quyết được vấn đề rồi bác ạ

Nói thật với bạn nhé, từ bài của bạn nên mình đã làm một bài để kính nhờ các bác và các anh các chị làm giúp ở bài này nè.
Chắc chắn rằng bạn cũng đã đọc roài.

So sánh các chuỗi ký tự

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

www.giaiphapexcel.com

VetMini · 23/10/23

Maika8008 đã viết:
Thôi, tập trung vào vấn đề của bạn: ...

Những người biết tập trung vào vấn đề thì dẫu không cho rằng cần bảo vệ văn hóa Việt đi nữa thì hỏi bài cũng nên rõ ràng.

Lý do không nên viết tắt (trên bề mặt khách quan, không liên quan gì đến sở thích cá nhân):
- Excel là môi trường mà a có thể hiểu là cột A, e có thể hiểu là cột E (chưa kể chính thức từ e có nghĩa là ngại).
- VBA, môi trường code, cũng là nơi sử dụng các từ viết tắt nhiều.

Lý do không nên dùng tiếng Tây (cũng bề mặt khách quan):
- Có đến vài trường phái dùng tiếng Tây. Ví dụ như dân mạng xã hội dùng vs là "với", nhưng dân biết tiếng Anh thì vs là "đối lại". Có những bối cảnh mà sự khác niệt này không quan trọng; nhưng cũng có những bối cảnh mà làm cho câu hỏi được hiểu sai.
- Có nhiều trường hợp mà từ Tây ấy có thể hiểu theo nghĩa châm biếm. Làm sao người đọc hiểu là người dùng tiếng Tây ấy chỉ biết từ Tây bồi (không biết châm biếm), hay rất giỏi (chắc chắn là châm biếm - nếu không châm biếm thì người ta sẽ dùng từ khác)

Đây là diễn đành khoa hoc, khoa học thì nên theo tiêu chuẩn. Người hỏi chịu khó dùng tiếng Việt có tiêu chuẩn không được sao mà cứ khăng khăng dùng ngôn ngữ theo ý thích mình? Ở đây ai là bên cần người bên kia hiểu rõ câu hỏi của mình?

Maika8008 · 23/10/23

VetMini đã viết:
Lý do không nên viết tắt (trên bề mặt khách quan, không liên quan gì đến sở thích cá nhân):

...

Đây là diễn đành khoa hoc, khoa học thì nên theo tiêu chuẩn. Người hỏi chịu khó dùng tiếng Việt có tiêu chuẩn không được sao mà cứ khăng khăng dùng ngôn ngữ theo ý thích mình? Ở đây ai là bên cần người bên kia hiểu rõ câu hỏi của mình?

1. Về việc viết tắt: Chuyện này thì chắc chắn phải khắc phục rồi. Ngày xưa khi đi học, các thầy cô đã rất cẩn thận dặn dò là không được viết tắt trong các văn bản, thư từ... nhằm thể hiện sự tôn trọng của mình với người nhận. Nếu mình thích thì mình viết tắt ắt là sai mười mươi rồi. Còn nếu mình theo thói quen mà viết tắt thì phải sửa thói quen nếu tôn trọng người khác.

2. Diễn đàn GPE đâu giống cái group của Facebook. Các bạn trẻ theo thói quen cứ đem cái cách viết vô tội vạ, hỏi bài không có cứ liệu (xin lỗi 1 số bạn không nằm trong số này) từ mạng XH vào GPE, điều đó theo tôi là không chấp nhận được. Nhập gia tùy tục là nguyên tắc xưa nay mà. Nếu dễ dãi thì chả lẽ GPE ta lại giống y như 1 cái group Facebook sao?

Xin code lọc trùng và copy ra một ô mới ạ! (1 người xem)

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

Thành viên mới

Zalo 0986997214

Thành viên mới

Zalo 0986997214

Đăng ký hôm qua

Thành viên mới

Zalo 0986997214

/(hông là gì!

Đang đi tìm hòn đá

Thành viên mới

Chuyên gia GPE

Đang đi tìm hòn đá

/(hông là gì!

Zalo 0986997214

Thành viên hoạt động

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

/(hông là gì!

Thành viên hoạt động

!!! Giải thoát !!!

Thành viên hoạt động

Đang đi tìm hòn đá

!!! Giải thoát !!!

Đang đi tìm hòn đá

/(hông là gì!

!!! Giải thoát !!!

Đang đi tìm hòn đá

Thành viên mới

!!! Giải thoát !!!

Đang đi tìm hòn đá

Thành viên mới

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

!!! Giải thoát !!!

File đính kèm

Thành viên mới

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

Đang đi tìm hòn đá

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

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