Xin giúp code VBA đếm số thứ tự khi lọc dữ liệu

[kimtanmap]

Em đang dùng công thức này để đếm số thứ tự khi lọc dữ liệu

=IF(LEN(B2)=0,"",SUBTOTAL(3,$B$2:B2))

=IF(LEN(B3)=0,"",SUBTOTAL(3,$B$2:B3))

Em xin được giúp đỡ viết code VBA cho việc đếm số thứ tự khi lọc dữ liệu.
Với công thức này em đã thử nghiệm thành công nhưng với dữ liệu lớn thì nó chạy rất lâu với máy cấu hình yếu ạ.
Em có gửi file mẫu ở dưới xin cảm ơn.

 

[hvnhpro]

Em đang dùng công thức này để đếm số thứ tự khi lọc dữ liệu


Em xin được giúp đỡ viết code VBA cho việc đếm số thứ tự khi lọc dữ liệu.
Với công thức này em đã thử nghiệm thành công nhưng với dữ liệu lớn thì nó chạy rất lâu với máy cấu hình yếu ạ.
Em có gửi file mẫu ở dưới xin cảm ơn.

bỏ hàm if đi sẽ đỡ bị đơ máy.
Chưa rõ dụng ý hàm if ở đây để làm gì.
Nếu cột B có ô blank tức là không có tên thì không đánh thứ tự thì hàm subtotal trên làm được rồi.
trừ phi bạn cần lọc có cả blank

 

[VetMini]

Một ngày làm việc với một vài files thì có lâu chút cũng chả sao.

Một ngày làm chục files, mỗi file "với dữ liệu lớn [sic]" thì kiếm cái máy khác cho rồi. Chả lẽ công ty quản lý dữ liệu cả đống vậy mà hà tiện, khư khư ôm cái "máy cấu hình yếu [sic]".

 

[kimtanmap]

bỏ hàm if đi sẽ đỡ bị đơ máy.
Chưa rõ dụng ý hàm if ở đây để làm gì.
Nếu cột B có ô blank tức là không có tên thì không đánh thứ tự thì hàm subtotal trên làm được rồi.
trừ phi bạn cần lọc có cả blank

Theo em nghĩ if vào để nó tính hàm LEN, chứ subtotal không thì nó chỉ đếm 1, 1, 1,...

Bài đã được tự động gộp: 9/8/22

Một ngày làm việc với một vài files thì có lâu chút cũng chả sao.

Một ngày làm chục files, mỗi file "với dữ liệu lớn [sic]" thì kiếm cái máy khác cho rồi. Chả lẽ công ty quản lý dữ liệu cả đống vậy mà hà tiện, khư khư ôm cái "máy cấu hình yếu [sic]".

Nhiều lý do lắm anh, do máy tính cũ bị hư mới đưa cái máy "cùi bắp" vào chạy đỡ nó có 2GB ram buồn lắm ạ.

 

[Phuocam]

Theo em nghĩ if vào để nó tính hàm LEN, chứ subtotal không thì nó chỉ đếm 1, 1, 1,...

Bỏ hàm LEN, nhẹ một chút:

=IF(B2="","",SUBTOTAL(3,$B$2:B2))

.

 

[kimtanmap]

Bỏ hàm LEN, nhẹ một chút:

=IF(B2="","",SUBTOTAL(3,$B$2:B2))

.

Dạ em cảm ơn! Hay quá ạ.

 

[kimtanmap]

Có cách nào để không gọi sub nhưng code vẫn chạy được không mọi người?
Em tìm thấy code STT khi filter nhưng phải làm thêm thao tác gọi sub.

Sub STT()
Set rRng = Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
Dim cntr As Integer: cntr = 1

For Each cell In rRng
If cell.EntireRow.Hidden = False Then
Cells(cell.Row, 1).Value = cntr
cntr = cntr + 1
End If
Next

End Sub

 

[Maika8008]

Có cách nào để không gọi sub nhưng code vẫn chạy được không mọi người?
Em tìm thấy code STT khi filter nhưng phải làm thêm thao tác gọi sub.

Xem cách trong file: công thức ở D1 và code trong sheet1