Xin code lọc trùng và copy ra một ô mới ạ!

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)

Xin code lọc trùng và copy ra một ô mới ạ!

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

Ăn cùng góc phố

Thành viên mới

Chuyên gia GPE

Ăn cùng góc phố

/(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