Xin hỏi cách đếm số ô có chứa dữ liêu sau khi đa dùng lọc Filter

2 Responses

1. hands says:

   23/05/2023 at 8:34 am

   bạn dùng= subtotal(109,$a$1:$a$10) THAY CHO SUM
   = subtotal(103,$a$1:$a$10) THAY CHO COUNT thử xem

   Mình upload lên vậy.
   minh muốn count chỉ những dữ lieu trong cột A không bị filter.

   Bạn thử:

   Sub abc()
   Dim a
   a = Range("A1:A100").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count
   MsgBox a
   End Sub

   Cách này nếu có ô chứa công thức trong đoạn A1:A100 thì kết quả chưa đúng anh ah.

   Vậy thì thế này:

   Sub aaa()
   Dim a, b, c
   a = Range("A1:A100").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeFormulas, 23).Count
   b = Range("A1:A100").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).Count
   c = a + b
   MsgBox c
   End Sub

   Reply
2. hands says:

   23/05/2023 at 8:35 am

   Bạn thử:

   Sub abc()
   Dim a
   a = Range("A1:A100").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count
   MsgBox a
   End Sub

   Vậy thì thế này:

   Sub aaa()
   Dim a, b, c
   a = Range("A1:A100").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeFormulas, 23).Count
   b = Range("A1:A100").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).Count
   c = a + b
   MsgBox c
   End Sub

   gõ cái này ngon hơn nhé
   =SUBTOTAL(103,A1:A1000)

   Hàm này chuẩn rồi bác, đúng cái em đang cần tìm.
   Mục đích: Đếm các dòng mà cột đó đang bị filter , bỏ qua không đếm các dòng bị ẩn

   Thanks bác. Từ ngày biết web này đỡ ghê hihi, giúp cho công việc rất nhiều ^_^

   Sẵn cho em hỏi: Làm thế nào để vừa đếm dòng tại cột bị filter , bỏ qua không đếm dòng ẩn, bỏ qua không đếm dữ liệu trùng ko ạ ?
   Ví dụ như hình bên dưới:

   6751

   Công thức
   6752

   Reply