Các cho mình mình đang bắt đầu nghiên cứu về VBA và vừa nghe bài giảng

Các Thày cho mình xin hỏi, mình đang bắt đầu nghiên cứu về VBA và vừa nghe bài giảng vừa thực hành, thì mình đang tập viết code xóa dòng rồng. VD mình có cột B hàng ngàn dòng, trong đó thỉnh thoảng có dòng rỗng (tức là ko có dữ liệu ) mình muốn xóa các dòng đó khi chọn cả cột B, và VBA sẽ tìm các dòng rỗng đó rồi thấy tại các cell trong cột B đó ko có dữ liệu thì delete đi. Mình viết code ntn đúng ko ? Và nếu sai thi chỉ cho mình, kiểu diễn giải code ở ngay tren đầu code để mình hiểu, tks

Sub delrow()
' dat bien
Dim j As Long
j = Range("B:B")

' xac dinh cot cam tim dong rong va viet code
Range("B:B").Selection
If Range(j = "") Then
EntireRow.Delete

End If

End Sub

3 câu trả lời

192 lượt xem

vỗ tay

NH Thanh - Gmail2 09:01 - Jan 30, 2021

Chào bạn bạn phải thực hiện vòng lặp như sau:

Option Explicit
Sub xoadongtrong()
    Dim i As Long
    Dim dc As Long
    dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    ' vòng lặp từ cuối len đầu
    For i = dc To 1 Step -1
        If Sheet1.Range("A" & i).Value = "" Then
            Sheet1.Rows(i).Delete
        End If
    Next i
End Sub

vỗ tay

NH Thanh - Gmail2 10:01 - Jan 30, 2021

Dạ, cảm ơn Thày, như vậy A ở đấy chính là cột cần tìm giá trị đúng không ak?

và DC chính là địa chỉ để xác định dòng cuối đó ak ?

vỗ tay

NH Thanh - Gmail2 10:01 - Jan 30, 2021

chào bạn mọi thứ đều tìm kiếm chính xác và dc là dòng cuối ạ

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Các cho mình mình đang bắt đầu nghiên cứu về VBA và vừa nghe bài giảng

Câu hỏi liên quan