Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA có chức năng xóa các ô trống.

Tình huống:

Delete Blank Cells in Excel VBA

  1. Đầu tiên, chúng ta khai báo hai biến kiểu Integer. Một quầy có tên và một có tên là i. Chúng ta khởi tạo bộ đếm biến với giá trị 0.

Dim counter As Integer, i As Integer

counter = 0

  1. Tiếp theo, chúng ta kiểm tra từng ô xem nó có trống hay không (<> nghĩa là không bằng). Chúng tôi đang sử dụng một vòng lặp cho điều này. Nếu không trống, chúng ta ghi giá trị vào cột B. Bộ đếm lưu theo dõi số lượng ô đã được sao chép sang cột B. Mỗi lần chúng ta sao chép một giá trị vào cột B, chúng ta tăng bộ đếm lên 1. Đoạn chương trình này như sau:

For i = 1 To 10

If Cells(i, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(i, 1).Value

counter = counter + 1

End If

Next i

Kết quả cho đến nay:

Write non Empty Cells to next Column

  1. Cuối cùng, chúng tôi để trống Range (“A1: A10”), sao chép các giá trị của cột B sang cột A và để trống Range (“B1: B10”).

Range("A1:A10").Value = ""

Range("A1:A10").Value = Range("B1:B10").Value

Range("B1:B10") = ""

Kết quả:

Delete Blank Cells Result