Cần giúp đỡ về xóa dòng không chứa dữ liệu.. (3 người xem)

[ductoan5454]

Câu hỏi mình để trong file Help
Vì lí do cviec không tiện file gốc lên
Mong ae giúp đỡ

 

[vanthinh3101]

Câu hỏi mình để trong file Help
Vì lí do cviec không tiện file gốc lên
Mong ae giúp đỡ

Các bước thực hiện
- Quét chọn B1:B12
- Ấn F5/Special/Blanks/OK
- Đặt chuột vào 1 trong các ô trống đã được chọn, click chuột phải.
- Chọn Delete/Entire Row/OK

 

[befaint]

http://www.giaiphapexcel.com/diendan/threads/cần-giúp-đỡ-về-xóa-dòng-không-chứa-dữ-liệu.130383/

 

[ductoan5454]

Các bước thực hiện
- Quét chọn B1:B12
- Ấn F5/Special/Blanks/OK
- Đặt chuột vào 1 trong các ô trống đã được chọn, click chuột phải.
- Chọn Delete/Entire Row/OK

Cái đấy t biết nhưng File của mình hơn 5k dòng k làm thế đc. lâu lắm

 

[vanthinh3101]

Cái đấy t biết nhưng File của mình hơn 5k dòng k làm thế đc. lâu lắm

Bạn nên xóa bớt 1 bài đi trước khi bài bị khóa nhé!
Có cảnh báo ở bài #3 rồi đấy.
Trường hợp có 5000 dòng thì có khác gì ít dòng kia đâu.
Thôi dùng code vậy

Sub Xoadongtrong()
Range("B1:B65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[phulien1902]

Câu hỏi mình để trong file Help
Vì lí do cviec không tiện file gốc lên
Mong ae giúp đỡ

Bạn thử:

Sub Thu()
    Columns(2).SpecialCells(4).EntireRow.Delete
End Sub

 

[ductoan5454]

Bạn nên xóa bớt 1 bài đi trước khi bài bị khóa nhé!
Có cảnh báo ở bài #3 rồi đấy.
Trường hợp có 5000 dòng thì có khác gì ít dòng kia đâu.
Thôi dùng code vậy

Sub Xoadongtrong()
Range("B1:B65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

OK. M biết rồi.
M làm được rồi. Tks bạn nha

 

[ductoan5454]

Bạn thử:

Sub Thu()
    Columns(2).SpecialCells(4).EntireRow.Delete
End Sub

tks bạn. mình làm được rồi