Điều kiện nào để biết lấy A1, A2, A3 mà bỏ qua A4, A5?Chào các bạn!
Mọi người có thể giúp mình ví dụ mình có chuỗi ký tự ở cột A muốn lọc các ký tự A1,A2,A3 (có trong cột A) nó ra như ở cột C thì làm thế nào ạ
lấy cái đồ thật ra, xóa bớt dữ liệu đi rồi gửi lên, giải thích cho kĩ vào. làm hời hợt thế ai hiểu?Chào các bạn!
Mọi người có thể giúp mình ví dụ mình có chuỗi ký tự ở cột A muốn lọc các ký tự A1,A2,A3 (có trong cột A) nó ra như ở cột C thì làm thế nào ạ
Điều kiện nào để biết lấy A1, A2, A3 mà bỏ qua A4, A5?
Điều kiện là ở cột A nó sẽ tìm thấy A1,A2,A3 và cho ra kết quả như cột C "A1,A2,A3" đó bạn. Ví dụ: Nếu trong dãy đó không có A1 thì kết quả sẽ ra "A2,A3"lấy cái đồ thật ra, xóa bớt dữ liệu đi rồi gửi lên, giải thích cho kĩ vào. làm hời hợt thế ai hiểu?
cứ úp úp mở mở rồi cuối cùng lại pahir vứt file thật lên thôi. rảnh.
thế mới nói ngay từ đầu là xóa gần hết dữ liệu đi, để lại vài chục dòng, có ai bắt up đồ full lên đâu.Điều kiện là ở cột A nó sẽ tìm thấy A1,A2,A3 và cho ra kết quả như cột C "A1,A2,A3" đó bạn. Ví dụ: Nếu trong dãy đó không có A1 thì kết quả sẽ ra "A2,A3"
dovanhoc84 : bẠN THÔNG CẢM DỮ LIỆU MÌNH NHIỀU QUÁ GỬI LÊN RỐI nên mình mới gửi vậy cho dễ hình dung bạn ạ
Người hỏi thì không miêu tả chính xác điều mình muốn. Up cái file lên cũng không giải thích tại sao lại cho kết quả như vậy. Ko ai hiểu bạn muốn làm gì.Up ạ ai giúp mình với
Đúng rồi bạn ạ....Nếu trong dãy đó k có A3 thì nó sẽ hiện "A1,A2" đó bạn....Giống như kiểu điểm danh vậy đóthế mới nói ngay từ đầu là xóa gần hết dữ liệu đi, để lại vài chục dòng, có ai bắt up đồ full lên đâu.
Vậy là tìm chỉ 3 chữ A1 đến A3 đùng k?
gÕ TAY THÌ NÓI LÀM GÌ Ạ.mÌNH MUỐN TỰ động mà bạn.File mình gửi lên vậy rồi màNgười hỏi thì không miêu tả chính xác điều mình muốn. Up cái file lên cũng không giải thích tại sao lại cho kết quả như vậy. Ko ai hiểu bạn muốn làm gì.
Nếu chỉ cần lọc cột A ra kết quả cột C thì gõ tay như vậy là nhanh nhất.
Đến Bài thứ 8 rồi mà vẫn chưa giải thích được.Bây giờ bạn lấy giá trị theo điều kiện nào.Cụ thể ra làm sao mà lấy được A1,A2,A3 thế còn thằng A4,A5 không lấy luôn bỏ nó lại làm gì cho khổ.Đúng rồi bạn ạ....Nếu trong dãy đó k có A3 thì nó sẽ hiện "A1,A2" đó bạn....Giống như kiểu điểm danh vậy đó
Bài đã được tự động gộp:
gÕ TAY THÌ NÓI LÀM GÌ Ạ.mÌNH MUỐN TỰ động mà bạn.File mình gửi lên vậy rồi mà
Góp ý chó bạn:Chào các bạn!
Mọi người có thể giúp mình ví dụ mình có chuỗi ký tự ở cột A muốn lọc các ký tự A1,A2,A3 (có trong cột A) nó ra như ở cột C thì làm thế nào ạ
Đây bạn...Có dữ liệu ở cột A. Viết hàm gì để nó trả lại kết quả ở cột C...Nó điểm danh đc các A1,A2,A3,A4,A5 khác nhau nhưng không tính trùng lặp đó bạn.Góp ý chó bạn:
1/ Đã có 128 thành viên đọc bài và có vài thành viên hỏi lại mà không trả lời có nghĩa là cách diễn giải của bạn chẳng ai hiểu gì cả.
2/ Bạn nên đính kèm File có tiêu đề thực tế giống như File bạn đang theo dõi (tiêu đề là thật, dữ liệu bên dưới có thể giả định).
3/ Bạn nên có 1 sheet với kết quả mong muốn và nên giải thích cụ thể chỉ muốn lấy A1,A2,A3 hay là lấy tất cả A1,A2,A3 (có 7 Cell).View attachment 214172
Phục ông này, hồi đầu kêu chỉ lọc A1 đến A3 cuối cùng lại thành lọc k tính trùng lặp.Đây bạn...Có dữ liệu ở cột A. Viết hàm gì để nó trả lại kết quả ở cột C...Nó điểm danh đc các A1,A2,A3,A4,A5 khác nhau nhưng không tính trùng lặp đó bạn.
Nếu làm việc trên sheet, có thể thay Dictionary bằng RemoveDuplicatesPhục ông này, hồi đầu kêu chỉ lọc A1 đến A3 cuối cùng lại thành lọc k tính trùng lặp.
Nếu điểm danh k tính trùng lặp thì xem file này.
Trình vba kém chưa biết cách sắp xếp lại mảng nên đành chơi vòng. mong các bác chỉ giáo.
Function JoinUniqueText(Delimiter As String, Ignore_Blank As Boolean, Sort As Boolean, ParamArray Arr() As Variant) As String
Dim sArr, Tmp, Item, Res(), ArrList As Object
Set ArrList = CreateObject("System.Collections.ArrayList")
For Each sArr In Arr
Tmp = sArr
If TypeName(Tmp) <> "Variant()" Then
If Ignore_Blank = False Or Len(Trim(CStr(Tmp))) Then
If Not ArrList.contains(CStr(Tmp)) Then
ArrList.Add CStr(Tmp)
End If
End If
Else
For Each Item In Tmp
If Ignore_Blank = False Or Len(Trim(CStr(Item))) Then
If Not ArrList.contains(CStr(Item)) Then
ArrList.Add CStr(Item)
End If
End If
Next Item
End If
Next sArr
If ArrList.Count Then
If Sort = True Then ArrList.Sort
Res = ArrList.ToArray
JoinUniqueText = Join(Res, Delimiter)
End If
End Function
=JoinUniqueText(",",TRUE,TRUE,A1:A20)