Xóa hàng ngang bắt đầu là số "0" trong VBA (1 người xem)

[duynhatgpe]

Chào tất cả mọi người
Hôm nay mình có bài VBA xóa hết dòng nếu bắt đầu từ số “0” ,mình chỉ mới viết đượcchỉ có dòng đầu thôi à ,còn cho cả thì chưa được. Xin mọi người giúp cho mìnhhiểu chổ này ,ở đây các dòng ngang phải xóa là C1:F1,C2:F2,C4:F4,C6:F6,C8:F8,C10:F10.
Thành thật biết ơn rất nhiều !

 

[hungpecc1]

Chào tất cả mọi người
Hôm nay mình có bài VBA xóa hết dòng nếu bắt đầu từ số “0” ,mình chỉ mới viết đượcchỉ có dòng đầu thôi à ,còn cho cả thì chưa được. Xin mọi người giúp cho mìnhhiểu chổ này ,ở đây các dòng ngang phải xóa là C1:F1,C2:F2,C4:F4,C6:F6,C8:F8,C10:F10.
Thành thật biết ơn rất nhiều !

phải làm rõ vấn đề :
bạn muốn xóa hẳn hàng đó đi (row.entity.delete), hay chỉ muốn xóa dữ liệu hàng đó ( clear Contents)

 

[hungpecc1]

Chào tất cả mọi người
Hôm nay mình có bài VBA xóa hết dòng nếu bắt đầu từ số “0” ,mình chỉ mới viết đượcchỉ có dòng đầu thôi à ,còn cho cả thì chưa được. Xin mọi người giúp cho mìnhhiểu chổ này ,ở đây các dòng ngang phải xóa là C1:F1,C2:F2,C4:F4,C6:F6,C8:F8,C10:F10.
Thành thật biết ơn rất nhiều !

thử như vậy xem :

Sub xoa()
Dim tmpArr, i
On Error Resume Next
Application.ScreenUpdating = False
    tmpArr = Range("B1").CurrentRegion
    For i = 1 To UBound(tmpArr, 1)
        If CStr(tmpArr(i, 2)) = "0" Then Range("B1", Range("C1").End(xlToRight)).Offset(i - 1).ClearContents
    Next
 Application.ScreenUpdating = True
 End Sub

 

[duynhatgpe]

phải làm rõ vấn đề :
bạn muốn xóa hẳn hàng đó đi (row.entity.delete), hay chỉ muốn xóa dữ liệu hàng đó ( clear Contents)

Vâng xin cảm ơn rấtnhiều ,hãy viết cả hai code để tiên học cho dể …..

 

[TheThienChu]

Vâng xin cảm ơn rấtnhiều ,hãy viết cả hai code để tiên học cho dể …..

Cái tô đậm có lẽ nghe không được xuôi

 

[be_09]

Vâng xin cảm ơn rấtnhiều ,hãy viết cả hai code để tiên học cho dể …..

Thì thử thêm code này nữa xem sao:

Sub Xoa()
Dim Dong As Integer
Dim Khong As Long
Dong = Range("C" & Rows.Count).End(xlUp).Row     
       Range("C2:C" & Dong).Select
For Khong = Dong To 1 Step -1    
    If Cells(Khong, 3) = 0 Then        
       Rows(Khong).Delete    
    End If
Next
End Sub

 

[duynhatgpe]

Xin cảm ơn mọi người nhiều thật nhiều,trong lời nói có chị khó hiểu hãy thông cảm mình nhé

 

[phulien1902]

Chào tất cả mọi người
Hôm nay mình có bài VBA xóa hết dòng nếu bắt đầu từ số “0” ,mình chỉ mới viết đượcchỉ có dòng đầu thôi à ,còn cho cả thì chưa được. Xin mọi người giúp cho mìnhhiểu chổ này ,ở đây các dòng ngang phải xóa là C1:F1,C2:F2,C4:F4,C6:F6,C8:F8,C10:F10.
Thành thật biết ơn rất nhiều !

Bạn tham khảo Code dưới, dễ học này:

Sub abc()
    Dim i As Long, LR As Long
    LR = Range("c" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If Range("c" & i) = "0" Then
            Range("c" & i).Resize(, 5).ClearContents
        End If
    Next i
End Sub