Lỗi xóa dòng chứa cell trống VBA (1 người xem)

[tuoigiyeuem]

Mình có ghi lại macro và ra đoạn code :
Range("A3:C30000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

Nhưng khi chạy thì có lúc được, có lúc lại báo lỗi : Runtime error '1004' Cannot use that command on overlapping selections.

Mong mọi người chỉ giúp mình cách khắc phục.

 

[hungpecc1]

Mình có ghi lại macro và ra đoạn code :
Range("A3:C30000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

Nhưng khi chạy thì có lúc được, có lúc lại báo lỗi : Runtime error '1004' Cannot use that command on overlapping selections.

Mong mọi người chỉ giúp mình cách khắc phục.

thử như vậy xem :

sub a()
On error resume next
Range("A3:C30000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
end sub

 

[tuoigiyeuem]

Không được bạn ah. Mình sửa theo code của bạn thì không báo lỗi nhưng cũng không xóa luôn

 

[ndu96081631]

Không được bạn ah. Mình sửa theo code của bạn thì không báo lỗi nhưng cũng không xóa luôn

Đưa file lên đây cho gọn (test không không thế ai biết sao mà test)

 

[tuoigiyeuem]

Dung lượng file đính kèm của em bị max rồi. Bác xóa hộ em mấy file đính kèm ở bài viết trước với.

 

[ndu96081631]

Dung lượng file đính kèm của em bị max rồi. Bác xóa hộ em mấy file đính kèm ở bài viết trước với.

Thì bạn tự vào bài viết của mình mà xóa đi

 

[tuoigiyeuem]

hixhix. Bác chỉ em cách xóa với. Em xem rồi mà chả biết xóa ở chỗ nào. hjx

 

[ndu96081631]

hixhix. Bác chỉ em cách xóa với. Em xem rồi mà chả biết xóa ở chỗ nào. hjx

Để đơn giản hóa vấn đề: Bạn upload file lên www.mediafire.com đi cho nhanh gọn

 

[tuoigiyeuem]

http://www.mediafire.com/download/82axc9mq0777e0z/so_lieu.rar
Bác xem hộ em với.
Lúc thì chạy được, lúc lại báo lỗi.

 

[ndu96081631]

http://www.mediafire.com/download/82axc9mq0777e0z/so_lieu.rar
Bác xem hộ em với.
Lúc thì chạy được, lúc lại báo lỗi.

Với file của bạn, tôi chạy code chẳng thấy lỗi gì cả
Tuy nhiên, tôi cũng sửa lại code của bạn thành:

Sub Test()
Range("A3:C30000").SpecialCells(4).EntireRow.Delete
End Sub

 

[tuoigiyeuem]

http://www.mediafire.com/download/ps654vxi4ac8xfe/so_lieu.rar
Thì em đã bảo lúc nó chạy được lúc lại báo lỗi mà.
Em thêm 1 file dc6.txt . Bây giờ gặp file này thì lại không chạy được ( có lúc gặp file này vẫn chạy được)

* Em nghĩ ở Module1 mình để cho lấy dòng đến hết Thửa thì không lấy nữa. Nhưng em không biết cách làm.

 

[tuoigiyeuem]

Bác nào giúp em với !!!!