Các câu hỏi về lọc ra danh sách duy nhất (loại bỏ dữ liệu trùng) (3 người xem)

[hpgd]

Vô cùng cám ơn bạn
Macro của bản chạy rất tốt nhưng nó chỉ chạy khi vùng chọn không chứa Hàm. Mà phàn lịch dạy của các giáo viên toàn chứa hàm " cai lan truoc up chỉ là mẫu tôi sẽ up cụ thể lịch giang dạy tôi đang sắp ngay ở dưoi đây". và tỗi cân bạn giúp một phần nữa là khi sắp trùng lịch thì tự động đổi mầu tiết trùng đó" Nội dung tôi ghi ỏ sheet T5 ". Xin giúp đỡ

 

[hpgd]

Thân bác SA_QD
Bac có thể chuyên Macro thanh Ham tự định nghĩa giúp em không chứ cứ Tuần nào cũng phải dùng tay để thông kê cho gân hai chục giao viên. Macro cua
Bác chỉ chạy khi vùng chọn không chứa Hàm điều này làm em cu phai coopy di coopy lại rôi mới dùng duoc. Bac Thuong thi thuong cho chot, en cam on nhiều

Hu Hu! có ai Quen Bác SA_QD không nhờ Bác ấy giúp em nốt với!

̣

 

[SA_DQ]

Bác chuyên Macro thanh Ham tự định nghĩa giúp em chứ. Bac Thuong thi thuong cho chot, en cam on nhiều
̣

Viết hàm cho bạn đã lâu, nhưng cáp của FPT bị ông Nhà đèn cúp mất tiêu; hôm nay mới gởi được:

Option Explicit:           Option Base 1

Function TKTietHoc(LookUpRange As Range)
 Dim Clls As Range:                             ReDim KQua(2, 6)
 Dim SoLop As Byte, VTr As Byte, STt As Byte, vT2 As Byte
 Dim Lop As String, SLop As String
 
 KQua(1, 1) = "Lop":                            KQua(2, 1) = "So Tiet"
 SLop = "GPE"
 For Each Clls In LookUpRange
   If Clls.Value <> "" Then
      VTr = InStr(Clls.Value, "(")
      Lop = IIf(VTr > 0, Left(Clls.Value, VTr - 1), Clls.Value)
      If InStr(SLop, Lop) < 3 Then _
         SLop = SLop & Left(Lop & " ", 4)
      vT2 = InStr(SLop, Lop)
      STt = Switch(vT2 = 4, 2, vT2 = 8, 3, vT2 = 12, 4, vT2 = 16, 5, vT2 = 20, 6)
      
      If STt > 1 Then
         KQua(1, STt) = Lop
         KQua(2, STt) = 1 + KQua(2, STt)
      End If
   End If
 Next Clls
 TKTietHoc = KQua
End Function

Hướng dẫn sử dụng hàm mảng tự tạo:

(*) Dùng chuột chọt vùng J340:L343;
(*) Nhấn chuột lên thanh công thức & nhập cú pháp: =TKTietHoc(B330:G335)
(*) Kết thúc cũng bằng tổ hợp 3 phím giành cho hàm mảng.

 

[lucky2008]

Xóa các dòng giống nhau Exel2007

Tôi có một cột chứa danh sách mail (hàng chục nghìn mail, mỗi dòng là một địa chỉ mail), có quá nhiều mail giống nhau, bây giờ tôi muốn xóa các dòng có chứa những mail giống nhau đó đi

Làm ơn chỉ giùm tôi với !
Thanks !

 

[ndu96081631]

Tôi có một cột chứa danh sách mail (hàng chục nghìn mail, mỗi dòng là một địa chỉ mail), có quá nhiều mail giống nhau, bây giờ tôi muốn xóa các dòng có chứa những mail giống nhau đó đi

Làm ơn chỉ giùm tôi với !
Thanks !

- Quét chọn cột dử liệu
- Vào tab Data, chọn mục Remove Duplicates

 

[tamhoncuada10313]

Lọc dữ liệu sang sheet khác đồng thời phân loại dữ liệu luôn

Em có 2 sheet dữ liệu: Giờ em muốn tạo một marco để mỗi khi mình chạy marco thì dữ liệu ở sheet 2 sẽ sắp xếp theo định dạng dữ liệu ở sheet1.Mong các bác giúp giùm. Tks a lot!

 

[ChanhTQ@]

Macro của bạn đây, xin mời

Option Explicit
Sub GPE_Macro()
 Dim StrC As String, eRs As Long, Dem As Byte
 Dim Clls As Range
 
 eRs = [A65500].End(xlUp).Row
 Columns("A:E").Insert Shift:=xlToRight
 Range("G1:I" & eRs).Sort Key1:=[H2], Order1:=xlDescending, Header:=xlGuess
 [A1].Resize(, 2).Value = [f1].Resize(, 2).Value:        [c1].Value = [I1].Value
 [A1].Resize(, 3).Font.Bold = True
 For Each Clls In [H2].Resize(eRs - 1)
   If StrC <> Clls.Value Then
      StrC = Clls.Value:                                 Dem = 1
      With [b65500].End(xlUp).Offset(1)
         .Value = Clls.Value:                            .Font.Bold = True
         
         .Offset(1, 1) = Clls.Offset(, 1).Value
         .Offset(1).Value = Clls.Offset(, -1).Value:     .Offset(1, -1) = Dem
      End With
   Else
      Dem = Dem + 1
      With [b65500].End(xlUp).Offset(1)
         .Offset(, 1) = Clls.Offset(, 1).Value
         .Value = Clls.Offset(, -1).Value:               .Offset(, -1) = Dem
      End With
   End If
 Next Clls
End Sub

Đôi điều chú í: Chạy macro tại S2;
Lúc đó macro sẽ thêm vài cột để chép dữ liệu sang đó

Chúc vui!

 

[tamhoncuada10313]

Bác ơi! em muốn chuyển dữ liệu sang sheet mới thì làm thế nào?

 

[ChanhTQ@]

Thì đây, tại Sheet1 đã được gán vô biến Sh

Option Explicit
Sub GPE_Macro()
 Dim StrC As String, eRs As Long, Dem As Byte
 Dim Clls As Range, Sh As Worksheet '<='
 
 Sheet2.Select:                                    eRs = [A65500].End(xlUp).Row
 Range("b1:d" & eRs).Sort Key1:=[c2], Order1:=xlDescending, Header:=xlGuess
 Set Sh = Sheet1
 
 Sh.[A1].Resize(, 2).Value = [A1].Resize(, 2).Value:     Sh.[c1].Value = [D1].Value
 Sh.[A1].Resize(, 3).Font.Bold = True
 For Each Clls In [c2].Resize(eRs - 1)
   If StrC <> Clls.Value Then
      StrC = Clls.Value:                                 Dem = 1
      With Sh.[b65500].End(xlUp).Offset(1)
         .Value = Clls.Value:                            .Font.Bold = True
         
         .Offset(1, 1) = Clls.Offset(, 1).Value
         .Offset(1).Value = Clls.Offset(, -1).Value:     .Offset(1, -1) = Dem
      End With
   Else
      Dem = Dem + 1
      With Sh.[b65500].End(xlUp).Offset(1)
         .Offset(, 1) = Clls.Offset(, 1).Value
         .Value = Clls.Offset(, -1).Value:               .Offset(, -1) = Dem
      End With
   End If
 Next Clls
End Sub

 

[tamhoncuada10313]

bác ChanhTQ ơi!bác có thể giải thích giùm em đoạn lệnh từ for trở đi không?E ngâm mãi mà chưa hiểu đc.

 

[no9vat2]

Rất hay, cảm ơn bạn. Bạn xem nếu so sánh dữ liệu 1 cột của 2 sheet khác nhau, và giá trị trả lại là 1 sheet khác thì làm như thế nào. Giúp mình với nha

 

[stao]

Bạn xem file này có phải ý của bạn muốn làm không nhé rồi tính tiếp

Nếu trùng mà không cùng nằm 1 dòng thì có cách nào lấy ra được không?

 

[9dragon]

Hỏi về lọc ra danh sách duy nhất

Em có 1 cái danh sách khoảng 300 dòng, cấu trúc như sau:
Họ và tên / loại tài liệu mượn
1- Nguyễn Văn A / Sách 1
2- Trần Văn B / Sách 2
3- Nguyễn Văn C / Sách 3
4. Nguyễn Văn A / Sách 4
5- Trần Văn B / Sách 10
6- Nguyễn Văn C / Sách 11
.............

Nghĩa là 1 người có thể mượn nhiều loại sách
Bây giờ em muốn thống kê xem có bao nhiêu người mượn sách
Các bác giúp em cái nhé

 

[Hai Lúa Miền Tây]

Em có 1 cái danh sách khoảng 300 dòng, cấu trúc như sau:
Họ và tên / loại tài liệu mượn
1- Nguyễn Văn A / Sách 1
2- Trần Văn B / Sách 2
3- Nguyễn Văn C / Sách 3
4. Nguyễn Văn A / Sách 4
5- Trần Văn B / Sách 10
6- Nguyễn Văn C / Sách 11
.............

Nghĩa là 1 người có thể mượn nhiều loại sách
Bây giờ em muốn thống kê xem có bao nhiêu người mượn sách
Các bác giúp em cái nhé

Cho mình hỏi thêm là chuổi trên là trong cùng 1 cột hay là gồm có 3 cột khác nhau
Bạn nên gửi file lên xem nhé.
Nếu chưa gửi được bạn gửi về địa chỉ david@dowell-plus.co.kr mình sẽ up lên giúp bạn.

 

[ptlong04x1]

Em có 1 cái danh sách khoảng 300 dòng, cấu trúc như sau:
Họ và tên / loại tài liệu mượn
1- Nguyễn Văn A / Sách 1
2- Trần Văn B / Sách 2
3- Nguyễn Văn C / Sách 3
4. Nguyễn Văn A / Sách 4
5- Trần Văn B / Sách 10
6- Nguyễn Văn C / Sách 11
.............

Nghĩa là 1 người có thể mượn nhiều loại sách
Bây giờ em muốn thống kê xem có bao nhiêu người mượn sách
Các bác giúp em cái nhé

Ý bạn là đếm xem có bao nhiêu người khác nhau trong danh sách đó phải không??? Nếu vậy thì làm như sau :

Giả sử tên người mượn nằm trong vùng A2:A300, tại ô nào đó dùng công thức :

=SUMPRODUCT(1/COUNTIF(A2:A300,A2:A300))

 

[MinhCong]

Nếu trùng mà không cùng nằm 1 dòng thì có cách nào lấy ra được không?

Bạn đưa ra bài ý tưởng của Bạn đi, Mình không hiểu ý bạn nói bài nào?

 

[thanhphuong]

Em có 1 cái danh sách khoảng 300 dòng, cấu trúc như sau:
Họ và tên / loại tài liệu mượn
1- Nguyễn Văn A / Sách 1
2- Trần Văn B / Sách 2
3- Nguyễn Văn C / Sách 3
4. Nguyễn Văn A / Sách 4
5- Trần Văn B / Sách 10
6- Nguyễn Văn C / Sách 11
.............

Nghĩa là 1 người có thể mượn nhiều loại sách
Bây giờ em muốn thống kê xem có bao nhiêu người mượn sách
Các bác giúp em cái nhé

1/ Nếu chỉ muốn đếm xem có bao nhiêu người thì dùng công thức như bạn ptlong04x1
2/ Nếu muốn cụ thể xem danh sách cvó bao nhiêu người và liệt kê nó ra thì dung Advanced Filter(trong menu Data) với điều kiện Unique = true

 

[stao]

Bạn đưa ra bài ý tưởng của Bạn đi, Mình không hiểu ý bạn nói bài nào?

Mình gửi file kèm, bạn giúp mình nhé

 

[9dragon]

Em cảm ơn các bác đã tận tình chỉ bảo (b)

 

[ptlong04x1]

Trích lọc dữ liệu duy nhất trong 1 bảng nhiều hàng nhiều cột.

Mình nhận được câu hỏi này từ bạn duyennt 6888 :

Tôi có bảng dữ liệu. Cần lọc sao cho chỉ xuất hiện dữ liệu một lần ở cột "kết quả trả về"

Nhờ mọi người xem giúp bạn ấy.