Excel vba xóa các hàng có dữ liệu cụ thể

Thông thường trong một bảng tính Excel, chúng ta có hai phương pháp khác nhau để xóa hàng. phím tắt và phương pháp nhấp chuột phải và chèn. Nhưng trong VBA, chúng ta phải sử dụng lệnh “Xóa” và câu lệnh trang tính để xóa bất kỳ hàng nào. Thủ thuật là nếu chúng ta cần xóa một hàng, chúng ta sẽ cung cấp tham chiếu một hàng, nhưng đối với nhiều cột, chúng ta sẽ cung cấp tham chiếu nhiều hàng

Sử dụng phương pháp Xóa hàng trong VBA, chúng ta có thể xóa tất cả các hàng trống và hàng dựa trên giá trị ô. Chúng tôi cũng có thể xóa toàn bộ hàng nếu bất kỳ ô nào trống

Bài viết này sẽ thảo luận về phương pháp “VBA Delete Row. ” Hãy dành 15 đến 20 phút tiếp theo để tìm hiểu về khái niệm này

Mục lục

• Excel VBA Xóa hàng
  • Làm cách nào để xóa hàng?
    • Ví dụ 1
    • Ví dụ #2
    • Ví dụ #3
    • Ví dụ #4
    • Ví dụ #5
    • Ví dụ #6
  • Bài viết được đề xuất

Bạn được tự do sử dụng hình ảnh này trên trang web, mẫu của mình, v.v. , Vui lòng cung cấp cho chúng tôi liên kết ghi công Làm cách nào để cung cấp ghi công?Liên kết bài viết được siêu liên kết
For eg:
Nguồn. VBA Xóa hàng [wallstreetmojo. com]

Làm cách nào để xóa hàng?

Bạn có thể tải xuống Mẫu VBA Delete Row Excel này tại đây – VBA Delete Row Excel Template

Ví dụ 1

Trong VBA, chúng ta cần đề cập đến hàng chúng ta đang xóa

Mã số

Sub DeleteRow_Example1[]
Cells[1, 1]
End Sub

Ô [1, 1] có nghĩa là cột đầu tiên của hàng đầu tiên, i. e. , ô A1. Sau đó, chúng tôi sử dụng phương pháp “Xóa. ”

Mã số

Sub DeleteRow_Example1[]
Cells[1, 1].Delete
End Sub

Bây giờ, thao tác này sẽ xóa ô đầu tiên. Tất cả các giá trị bên phải sẽ chuyển từ một ô sang trái.

Ví dụ #2

Nếu muốn xóa toàn bộ hàng, chúng ta cần sử dụng thuộc tính “EntireRow”, sau đó, chúng ta cần sử dụng phương thức “Delete” để xóa toàn bộ hàng của ô mà chúng ta đã chọn

Mã số

Sub DeleteRow_Example2[]
Cells[1, 1].EntireRow.Delete
End Sub

Ví dụ: chúng tôi đã nhập một vài ký tự trong trang tính Excel.

Nếu chúng tôi chạy mã này, nó sẽ xóa toàn bộ hàng, không xóa một ô nào

Ví dụ #3

Chúng tôi có thể xóa hàng bằng cách sử dụng một số cách. Trong ví dụ trên, chúng tôi đã xóa hàng bằng thuộc tính CELLS. Bây giờ, chúng ta sẽ xem cách xóa bằng cách sử dụng thuộc tính ROWS

Bây giờ, chúng ta cần đề cập đến hàng chúng ta cần xóa là gì. Ví dụ: chúng ta cần xóa hàng thứ 5

Bây giờ, hãy sử dụng thuộc tính “EntireRow”

Sau khi chọn được BĐS chúng ta cần làm gì?

Mã số

Sub DeleteRow_Example3[]
Rows[5].EntireRow.Delete
End Sub

Vì vậy, mã này sẽ xóa hàng thứ 5.

Ví dụ #4

Xóa nhiều hàng bằng cách sử dụng đối tượng phạm vi

Làm cách nào để xóa nhiều hàng?

Chúng ta có thể sử dụng đối tượng VBA RANGE Sử dụng đối tượng VBA RANGEPhạm vi là một thuộc tính trong VBA . Trong ngữ cảnh của trang tính Excel, đối tượng phạm vi VBA bao gồm một ô hoặc nhiều ô trải rộng trên nhiều hàng và cột khác nhau. đọc thêm để xóa nhiều hàng. Ví dụ: giả sử bạn có một số giá trị từ ô A1 đến A6.

Bây giờ, chúng tôi muốn xóa năm hàng đầu tiên, vì vậy chúng tôi có thể tham chiếu các hàng này bằng cách sử dụng đối tượng Phạm vi là “Phạm vi [“A1. A5”]. “

Mã số

Sub DeleteRow_Example4[]
Range ["A1: A5"]
End Sub

Bây giờ, chúng tôi muốn sử dụng thuộc tính Word “EntireRow”.

Mã số

Sub DeleteRow_Example4[]

Range["A1:A5"].EntireRow

End Sub

Ở hàng này, chúng ta cần thực hiện phương pháp xóa, vì vậy hãy sử dụng phương pháp “Xóa”.

Mã số

Sub DeleteRow_Example4[]

Range["A1:A5"].EntireRow.Delete

End Sub

Bây giờ, thao tác này sẽ xóa các hàng đã chọn.

Ví dụ #5

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

Chúng ta cũng có thể sử dụng “EntireRow. Delete” để xóa hàng dựa trên giá trị ô trong VBA Giá trị ô trong VBATrong VBA, có . phương pháp phạm vi và phương pháp ô. đọc thêm . Ví dụ: chúng tôi có các giá trị “Có” và “Không” từ ô A1 đến A10.

Chúng ta cần xóa các hàng có giá trị “Không. ” Ta phải dùng hàm “IF” có vòng lặp để xóa tất cả các hàng có giá trị “No” để thực hiện tác vụ này

Đoạn mã dưới đây sẽ thực hiện công việc cho chúng tôi

Mã số

Sub DeleteRow_Example5[]

Dim k As Integer 

For k = 10 To 1 Step -1
If Cells[k, 1].Value = "No" Then
Cells[k, 1].EntireRow.Delete
End If
Next k

End Sub

Ví dụ #6

Xóa tất cả các hàng ô trống

Có những trường hợp chúng ta cần xóa toàn bộ hàng nếu bất kỳ ô nào trong phạm vi trống. Ví dụ: chúng tôi có bộ dữ liệu bên dưới

Tất cả các ô màu đều trống, vì vậy chúng ta phải xóa toàn bộ hàng. Chúng tôi có thể thực hiện nhiệm vụ này với hai bộ mã. Dưới đây là mã

Mã số

Sub DeleteRow_Example6[]

Range["A1:F10"].SpecialCells[xlCellTypeBlanks].EntireRow.Delete

End Sub

Nó sẽ xác định các ô trống trong phạm vi từ A1 đến F10. Nếu nó tìm thấy bất kỳ ô trống nào, nó sẽ xóa toàn bộ hàng.

Vấn đề với mã này là nó sẽ chỉ xóa hàng của ô trống trong phạm vi từ A1 đến F10. Nhưng nếu bất kỳ ô nào trống trong bất kỳ ô nào khác, nó sẽ không xóa chúng. Vì vậy, hãy ghi nhớ điều này, chúng tôi đã viết thêm một đoạn mã

Mã số

Sub DeleteRow_Example7[]

Dim RangeToDelete As Range
Dim DeletionRange As Range

Set RangeToDelete = Application.InputBox["Please select the range", "Blank Cells Rows Deletion", Type:=8]

Set DeletionRange = RangeToDelete

RangeToDelete.SpecialCells[xlCellTypeBlanks].EntireRow.Delete

End Sub

Khi bạn chạy đoạn mã này, trước tiên, nó sẽ yêu cầu bạn chọn phạm vi với một hộp nhập xuất hiện trước mặt bạn.

Sau khi chọn phạm vi, bạn cần nhấp vào “OK. ” Nó sẽ xóa tất cả các hàng có ô trống Xóa tất cả các hàng có ô trốngCó một số phương pháp để xóa các hàng trống . 1] Xóa các hàng trống theo cách thủ công nếu có ít hàng trống  2]  Sử dụng công thức xóa 3] Sử dụng bộ lọc để tìm và xóa các hàng trống. đọc thêm trong phạm vi đã chọn.

Bài viết được đề xuất

Bài viết này đã hướng dẫn VBA Delete Row. Ở đây, chúng ta đã thảo luận cách xóa hàng bằng mã VBA và các ví dụ thực tế. Dưới đây là một số bài viết Excel hữu ích liên quan đến VBA. –