Lệnh If then để xóa nội dung (1 người xem)

[Vo Duy Minh]

Chào các bạn

Rất mong được các bạn giúp để viết lệnh vba với nội dung "nếu trong cột A (từ hàng 5 đến 3000) các cell nào chứa chữ "không xóa" thì không xóa, còn khác hơn thì xóa bỏ.

Rất cám ơn sự giúp đỡ của các bạn.

 

[snow25]

Chào các bạn

Rất mong được các bạn giúp để viết lệnh vba với nội dung "nếu trong cột A (từ hàng 5 đến 3000) các cell nào chứa chữ "không xóa" thì không xóa, còn khác hơn thì xóa bỏ.

Rất cám ơn sự giúp đỡ của các bạn.

Cho nó chạy vòng lặp là được mà bạn.file đâu ta.

 

[Phuocam]

"không xóa"

Thử:

Public Sub Lenh_If_Then()
Dim i As Long
For i = 5 To 3000
    If Range("A" & i).Value <> "không xóa" Then Range("A" & i).ClearContents
Next i
End Sub

 

[befaint]

Thử

Có từ "chứa" mà anh gì ơi..

 

[VetMini]

Thử:

Public Sub Lenh_If_Then()
Dim i As Long
For i = 5 To 3000
    If Range("A" & i).Value <> "không xóa" Then Range("A" & i).ClearContents
Next i
End Sub

Bài này làm chỉ số chi. Cứ đọc thẳng.
For Each cll In Sheet("gì đó").Range("A5:A3000")
If cll.Value Like "..." Then cll.ClearContents
Next cll

Có từ "chứa" mà anh gì ơi..

Ai mà biết tầm vực của "chứa" là gì? Nhiều người dùng từ này để chỉ "toàn giá trị"; ( IS, rather than CONTAINS )
Gặp người "mắc mớ" như tôi thì lại hỏi thêm:
nếu B "chứa" từ ấy, và A "chứa" B thì tính như thế nào?

 

[Vo Duy Minh]

Rất cám ơn các bạn đã hỗ trợ.
Tôi chưa rõ hàm hiệu quả thế nào nhưng với các đóng góp của các bạn thì rất tuyệt vời.

 

[VetMini]

Rất cám ơn các bạn đã hỗ trợ.
Tôi chưa rõ hàm hiệu quả thế nào nhưng với các đóng góp của các bạn thì rất tuyệt vời.

"hiệu quả" hay không tuỳ thuộc vào khả năng diễn tả câu hỏi của bạn. Tức là bạn có trách nhiệm diễn tả vấn đề của mình cho ngừoi khác hiểu.
Tôi bảo đảm giải pháp của tôi hiệu quả trong giới hạn hiểu biết vấn đề.