Các câu hỏi về lọc dữ liệu

[tdung88]

trả lời giúp em với các anh chị ơi

* Có cột A ở Sheet 1 chứa những phần tử: A, B, B, C, A, A, C, C, C. Trình bày cách lọc cột đó, đưa ra những phần tử không bị lặp: A, B, C sang cột B.


* Có cột A ở Sheet1 chứa những phần tử: A, B, C, D, E, F. Cột B ở Sheet1 chứa các phần tử: A, B, C. Trình bày cách lọc, đưa ra những phần tử không có trong cột B, đưa ra cột C.

 

[bebo021999]

* Có cột A ở Sheet 1 chứa những phần tử: A, B, B, C, A, A, C, C, C. Trình bày cách lọc cột đó, đưa ra những phần tử không bị lặp: A, B, C sang cột B.
* Có cột A ở Sheet1 chứa những phần tử: A, B, C, D, E, F. Cột B ở Sheet1 chứa các phần tử: A, B, C. Trình bày cách lọc, đưa ra những phần tử không có trong cột B, đưa ra cột C.

Bạn muốn dùng công thức hay không dùng?
Nếu không dùng công thức thì dùng chức năng Remove Duplicates trong menu Data là nhanh nhất.

 

[tdung88]

a hướng dẫn em cả 2 cách đi được k ạ? không chỉ giúp em công thức với ạ. e đang cần gấp a ạk, a cho e sđt e hỏi trực tiếp a đc k ạ. Số của em 0934516550 - Em tên Dung

 

[sunny178]

* Có cột A ở Sheet 1 chứa những phần tử: A, B, B, C, A, A, C, C, C. Trình bày cách lọc cột đó, đưa ra những phần tử không bị lặp: A, B, C sang cột B.


* Có cột A ở Sheet1 chứa những phần tử: A, B, C, D, E, F. Cột B ở Sheet1 chứa các phần tử: A, B, C. Trình bày cách lọc, đưa ra những phần tử không có trong cột B, đưa ra cột C.

Các pro giải dùm 2 cầu này với..

 

[Ba Tê]

Các pro giải dùm 2 cầu này với..

Muốn làm cái gì thì cũng phải đưa file lên kèm thêm yêu cầu, nhập kết quả mong muốn bằng thủ công để mọi người dễ hiểu.

 

[sunny178]

Muốn làm cái gì thì cũng phải đưa file lên kèm thêm yêu cầu, nhập kết quả mong muốn bằng thủ công để mọi người dễ hiểu.

• Có cột A ở Sheet 1 chứa những phần tử: A, B, B, C, A, A, C, C, C. Trình bày cách lọc cột đó, đưa ra những phần tử không bị lặp: A, B, C sang cột B.
• Có cột A ở Sheet1 chứa những phần tử: A, B, C, D, E, F. Cột B ở Sheet1 chứa các phần tử: A, B, C. Trình bày cách lọc, đưa ra những phần tử không có trong cột B, đưa ra cột C.

 

[sunny178]

up up...........................

 

[sunny178]

làm dùm đi các pro ơi!!!!

 

[hophoang]

up up...........................

Cái này(up up ...........................)là sao bạn.Bạn muốn mọi người giúp bạn.Bạn nên =>nếu như văn nói thì uốn lưỡi ba lần trước khi nói còn văn viết thì viết ra nháp trước khi đưa lên diễn đàn

 

[trung908]

Anh chị ơi, câu thứ 2 làm bằng Filter được không ạ? Câu 1 em làm được còn câu 2 thì chịu . Mong AC giúp cho

 

[hoamattroicoi]

• Có cột A ở Sheet 1 chứa những phần tử: A, B, B, C, A, A, C, C, C. Trình bày cách lọc cột đó, đưa ra những phần tử không bị lặp: A, B, C sang cột B.View attachment 74264
• Có cột A ở Sheet1 chứa những phần tử: A, B, C, D, E, F. Cột B ở Sheet1 chứa các phần tử: A, B, C. Trình bày cách lọc, đưa ra những phần tử không có trong cột B, đưa ra cột C.View attachment 74265

Mời bạn xem kết quả trong file này :

 

[dinhtrong0501]

Chào mọi! cho mình hỏi có cách nào rút trích dự liệu ở các cột không gần kề nhau hay không?
Bạn nào biết chỉ mình với.
Thanks!

 

[Locdulieu]

Các Anh Chị ơi, em có bảng 3 cột có dòng có tô màu, có dòng không, em muốn lọc lại những dòng có tô màuthì
viết code hay làm thế nào Anh Chị diễn đàn giúp em với....Xin cảm ơn Anh Chị

 

[Ba Tê]

Các Anh Chị ơi, em có bảng 3 cột có dòng có tô màu, có dòng không, em muốn lọc lại những dòng có tô màuthì
viết code hay làm thế nào Anh Chị diễn đàn giúp em với....Xin cảm ơn Anh Chị

View attachment 83116

Dòng tô màu là sao? Màu nền hay màu chữ?
Nếu màu chữ thì xem file này.
Dùng VBA.

 

[kicon]

Dòng tô màu là sao? Màu nền hay màu chữ?
Nếu màu chữ thì xem file này.
Dùng VBA

Xin cảm ơn anh BaTê, anh làm đúng là lọc giá trị có tô màu, nhưng ý em muốn là trong 3 cột, nếu 1 giá trị nào có tô màu thì giữ lại luôn 2 giá trị của 2 cột tương ứng kia luôn- theo cách chọn dòng nào 3 cột đều không có giá trị tô màu , xóa đi...
Xin cảm ơn anh thật nhiều...

 

[viehoai]

Xin cảm ơn anh BaTê, anh làm đúng là lọc giá trị có tô màu, nhưng ý em muốn là trong 3 cột, nếu 1 giá trị nào có tô màu thì giữ lại luôn 2 giá trị của 2 cột tương ứng kia luôn- theo cách chọn dòng nào 3 cột đều không có giá trị tô màu , xóa đi...
Xin cảm ơn anh thật nhiều...

Sửa code của anh BaTê tí là được mà

Private Sub CommandButton1_Click()Dim Rng As Range, Clls As Range, Arr(1 To 300, 1 To 3), k As Long
Set Rng = Sheet2.[E6:G100]
    For Each Clls In Rng
        If Clls.Value <> "" Then
            If Clls.Font.ColorIndex > 0 Then
                k = k + 1
                Arr(k, 1) = Sheet2.Range("E" & Clls.Row)
                Arr(k, 2) = Sheet2.Range("F" & Clls.Row)
                Arr(k, 3) = Sheet2.Range("G" & Clls.Row)
            End If
        End If
    Next
Sheet2.[J6].Resize(k, 3).Value = Arr
Set Rng = Nothing
End Sub

 

[kicon]

Private Sub CommandButton1_Click()
Dim Rng As Range, Clls As Range, Arr(1 To 300, 1 To 1), k As Long
Set Rng = Sheet2.[E6:G100]
For Each Clls In Rng
If Clls.Value <> "" Then
If Clls.Font.ColorIndex > 0 Then
k = k + 1
Arr(k, 1) = Clls.Value
End If
End If
Next
Sheet2.[J6].Resize(k).Value = Arr
Set Rng = Nothing
End Sub
Anh giải thích dùm em dòng lệnh:
Sheet2.[J6].Resize(k).Value = Arr
ý nghĩa thế nào Anh nhé,xin cảm ơn.

 

[viehoai]

Private Sub CommandButton1_Click()
Dim Rng As Range, Clls As Range, Arr(1 To 300, 1 To 1), k As Long
Set Rng = Sheet2.[E6:G100]
For Each Clls In Rng
If Clls.Value <> "" Then
If Clls.Font.ColorIndex > 0 Then
k = k + 1
Arr(k, 1) = Clls.Value
End If
End If
Next
Sheet2.[J6].Resize(k).Value = Arr
Set Rng = Nothing
End Sub
Anh giải thích dùm em dòng lệnh:
Sheet2.[J6].Resize(k).Value = Arr
ý nghĩa thế nào Anh nhé,xin cảm ơn.

Ví dụ k=6
Thì Sheet2.[J6].Resize(k) = Sheet2.[J6:J11]
[J6].Resize(i,j) là thay đổi kích thước vùng (ở đây chỉ 1 cell là J6) thêm i hàng, j cột. Nếu ghi một tham số thì hiểu là thay đổi kích thướcg hàng, 0 cột. Nếu chỉ thay đổi kích thước cột thì ghi [J6].Resize(,j)

 

[kicon]

Private Sub CommandButton1_Click()Dim Rng As Range, Clls As Range, Arr(1 To 300, 1 To 3), k As Long Set Rng = Sheet2.[E6:G100] For Each Clls In Rng If Clls.Value <> "" Then If Clls.Font.ColorIndex > 0 Then k = k + 1 Arr(k, 1) = Sheet2.Range("E" & Clls.Row) Arr(k, 2) = Sheet2.Range("F" & Clls.Row) Arr(k, 3) = Sheet2.Range("G" & Clls.Row) End If End If Next Sheet2.[J6].Resize(k, 3).Value = Arr Set Rng = Nothing End Sub

Anh cho em hỏi sau khi lấy được các giá trị có tô màu thì lệnh"

Set Rng = Nothing là để giải phóng bộ nhớ hay có tác dụng gì vậy Anh?Xin cảm ơn.

 

[Thanh_nam1463]

Tình hình la em muốn nhập liệu như kiểu trong hình. Có ai có giải pháp nhập tự động theo cách tịnh tiến đều ko? Thanks.
http://i620.photobucket.com/albums/tt281/Thanhnam14_photos/Untitled-1.jpg