Cách xóa số chẳn trong 1 cột (1 người xem)

[thanhtungttvl]

mình có 1 dãy số và 1 cái bảng như hình, bây giờ mình muốn dùng VBA để xóa các số chẳn thì làm sao ạ, khi mình click vào ô xóa số chẳn là lập tức mấy số chẳn bên Excel sẽ bị xóa và đồng thời các số lẽ còn lại sẽ dòn lên thành 1 hàng

thank các bác.

 

[Zerothink]

mình có 1 dãy số và 1 cái bảng như hình, bây giờ mình muốn dùng VBA để xóa các số chẳn thì làm sao ạ, khi mình click vào ô xóa số chẳn là lập tức mấy số chẳn bên Excel sẽ bị xóa và đồng thời các số lẽ còn lại sẽ dòn lên thành 1 hàng
View attachment 126727
thank các bác.

Hãy post file bạn đang làm,mội người sửa luôn cho, để hình thế này thì ai giúp???

 

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

Dùng hàm Mod để lấy dòng có số lẻ, sau đó lọc số lẻ ra mà xóa.

 

[thanhtungttvl]

file đây bạn, tại mình nghĩ chĩ có mấy số các bạn ghi số nào cũng dc, ko nhất thiết là số giống mình, miễn sao khi nhấp vào số chẳn ko còn là dc

 

[thanhtungttvl]

mình định dùng hàm If

IF số đó MOD 2 = 0 THEN
activesheet.cells = ""

không biết có đúng không

 

[thanhtungttvl]

đây là bài mình đang làm, các bạn nhấn alt +f11 là thấy, nhờ các bạn sửa dùm, thank

 

[Quang_Hải]

mình định dùng hàm If

IF số đó MOD 2 = 0 THEN
activesheet.cells = ""

không biết có đúng không

Thử thế này
Tại D2 nhập =MOD($A2,2)=0 hoặc =MOD($A2,2)=1
Rồi chạy code này

Sub abc()
[A1:A100].AdvancedFilter 2, [D1:D2], [C2]
End Sub