Excel vba xóa hàng dưới cùng

2. Trong cửa sổ Microsoft Visual Basic for Applications, nhấp vào Chèn > Mô-đun. Sau đó sao chép và dán mã VBA sau vào cửa sổ Mã

mã VBA. Xóa tất cả các hàng bên dưới một số hàng trong Excel

Sub DeleteRowsBelow()
    Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub

Ghi chú. Trong mã VBA, số 5 và Sheet1 cho biết tất cả các hàng dưới hàng 5 (bao gồm hàng 5) trong Sheet1 sẽ bị xóa sau khi chạy mã. Bạn có thể thay đổi chúng dựa trên nhu cầu của bạn

3. Nhấn phím F5 để chạy mã. Sau đó, tất cả các hàng bên dưới hàng 5 (bao gồm hàng 5) sẽ bị xóa ngay lập tức như ảnh chụp màn hình bên dưới được hiển thị

---

Xóa tất cả các hàng bên dưới ô đang hoạt động trong Excel bằng mã VBA

Để xóa tất cả các hàng ngay bên dưới hàng ô đang hoạt động trong Excel, bạn có thể thử mã VBA sau

1. Chọn một ô mà bạn sẽ xóa tất cả các hàng bên dưới ô đó, rồi nhấn đồng thời các phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications

2. Trong cửa sổ Microsoft Visual Basic for Applications, nhấp vào Chèn > Mô-đun. Sau đó sao chép và dán mã VBA sau vào cửa sổ Mã

mã VBA. Xóa tất cả các hàng bên dưới hàng ô đang hoạt động trong Excel

Sub DeleteAllBelow()
    Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

3. Nhấn phím F5 để chạy mã. Sau đó, tất cả các hàng bên dưới hàng ô đang hoạt động (bao gồm hàng ô đang hoạt động) sẽ bị xóa ngay lập tức

Để sử dụng trong việc tạo báo cáo hoặc dọn dẹp sổ làm việc của bạn. Bạn có thể có các báo cáo có các phép tính giống nhau trên mọi trang tính ở ba hàng dưới cùng. Bây giờ, bạn cần loại bỏ tất cả các hàng phép tính bổ sung này. Mã này coi khoảng trắng là dữ liệu, vì vậy hãy chắc chắn rằng bạn không chỉ có khoảng trắng trong bất kỳ ô nào của mình.  

Thay vì tham chiếu Đối tượng Hàng, bạn có thể tham chiếu các hàng dựa trên Đối tượng Phạm vi của chúng với EntireRow

Range("a1").EntireRow.Delete

Tương tự để xóa toàn bộ cột, hãy sử dụng các dòng mã này

Columns(1).Delete

Range("a1").EntireColumn.Delete

Xóa Nhiều Hàng hoặc Cột

Sử dụng logic tương tự, bạn cũng có thể xóa nhiều hàng cùng một lúc

Rows("1:3").Delete

hoặc cột

Columns("A:C").Delete

Lưu ý ở đây chúng tôi tham chiếu các số / chữ cái hàng và cột cụ thể được bao quanh bởi dấu ngoặc kép

Tất nhiên, bạn cũng có thể tham chiếu EntireRow của một dãy

Range("a1:a10").EntireRow.Delete

Ghi chú. Các ví dụ bên dưới chỉ minh họa việc xóa hàng, tuy nhiên, như bạn có thể thấy ở trên, cú pháp xóa cột hầu như giống hệt nhau

Xóa hàng trống / hàng trống

Ví dụ này sẽ xóa một hàng nếu toàn bộ hàng trống

________số 8

Nó sử dụng chức năng bảng tính Excel. ĐẾM

Xóa hàng nếu ô trống

Thao tác này sẽ xóa một hàng nếu cột cụ thể trong hàng đó trống (trong trường hợp này là cột B)

Range("b3:b20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Xóa hàng dựa trên giá trị ô

Thao tác này sẽ lặp qua một phạm vi và xóa các hàng nếu một giá trị ô nhất định trong hàng đó thông báo "xóa"

Sub DeleteAllBelow()
    Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

0

Thêm các ví dụ về Xóa Hàng và Cột

Lập trình VBA dễ dàng

Ngừng tìm kiếm mã VBA trực tuyến. Tìm hiểu thêm về AutoMacro - Trình tạo mã VBA cho phép người mới bắt đầu viết mã quy trình từ đầu với kiến ​​thức mã hóa tối thiểu và có nhiều tính năng tiết kiệm thời gian cho tất cả người dùng.

Tìm hiểu thêm.

Xóa hàng trùng lặp

Mã này sẽ xóa tất cả các hàng trùng lặp trong một phạm vi

Range("a1").EntireRow.Delete

0

Lưu ý rằng chúng tôi đặt Cột. =2. Điều này yêu cầu VBA kiểm tra cả hai cột dữ liệu đầu tiên khi xem xét các hàng có bị trùng lặp không. Một bản sao chỉ được tìm thấy khi cả hai cột có giá trị trùng lặp

Tôi nghĩ rằng câu hỏi của bạn không đầy đủ, bạn có ý nghĩa gì với hàng cuối cùng?

Tôi giả sử bạn có một tập dữ liệu trong trang tính của mình và muốn xóa hàng cuối cùng của tập dữ liệu đó để thử đoạn mã sau