Hỏi về chương trình VBA giữ lại những dòng có số thứ tự định sẵn và xóa những dòng còn lại

[lucifer1985]

Gửi ace mình có một file ecxcel dữ liệu có mẫu sẵn có những dòng có số thứ tự định sẵn để giữ lại ví dụ (1, 3, 6, 8, 9 ,14 ...) anh em cho chỉ cho mình chương trình VBA xóa tự động những dòng dữ liệu khác chỉ giữ lại những dòng dữ liệu này mình ko rành lắm về VBA. Mình xin cảm ơn .

 

[snow25]

Gửi ace mình có một file ecxcel dữ liệu có mẫu sẵn có những dòng có số thứ tự định sẵn để giữ lại ví dụ (1, 3, 6, 8, 9 ,14 ...) anh em cho chỉ cho mình chương trình VBA xóa tự động những dòng dữ liệu khác chỉ giữ lại những dòng dữ liệu này mình ko rành lắm về VBA. Mình xin cảm ơn .

Gửi cái file mẫu lên xem nào.

 

[lucifer1985]

ok bác. Đây bác ơi giả sử em định sẵn giữ lại các dòng (15,16,20,25,30,31) các dòng còn lại xóa hết bác giúp em cái

 

[johnnylinhanh]

Có 2 cách xóa, bác xem mong muốn kết quả như hình 1 hay hình 2

 

[lucifer1985]

Có 2 cách xóa, bác xem mong muốn kết quả như hình 1 hay hình 2
View attachment 276086View attachment 276087

Cách 2 bác ơi. Trên là list của em là giữ lại taamd 15-20 mục mình tùy chỉnh đc ko bác

 

[johnnylinhanh]

Bác xem file đính kèm nhé

 

[lucifer1985]

Bác xem file đính kèm nhé

hic xem đoạn code khó dùng quá bác ơi bác giúp em thêm quả nhập những dòng cần giữ lại xong ấn 1 nut ra kết quả đc ko bác

 

[SA_DQ]

Chủ bài đăng tham khảo thử, hợp thì xin mời mại zô:

Sub DeleteRows()
 Dim StrC As String, sDR As String:         Const FC As String = ";"
 Dim Rws As Long, J As Long:                Dim dRng As Range
 
 Rws = [B2].CurrentRegion.Rows.Count
 StrC = InputBox("Hay Nhâp Các Dòng Cân Thiêt: ", "5;7;. . . ;", "13;17;")
 For J = 1 To Rws
    sDR = CStr(J) & FC
    If InStr(StrC, sDR) Then
    Else
        If dRng Is Nothing Then
            Set dRng = Rows(J & ":" & J)
        Else
            Set dRng = Union(dRng, Rows(J & ":" & J))
        End If
    End If
 Next J
 MsgBox dRng.Address
 'dRng.Delete       '
End Sub

 

[lucifer1985]

Bác xem file đính kèm nhé

Chủ bài đăng tham khảo thử, hợp thì xin mời mại zô:

Sub DeleteRows()
 Dim StrC As String, sDR As String:         Const FC As String = ";"
 Dim Rws As Long, J As Long:                Dim dRng As Range
 
 Rws = [B2].CurrentRegion.Rows.Count
 StrC = InputBox("Hay Nhâp Các Dòng Cân Thiêt: ", "5;7;. . . ;", "13;17;")
 For J = 1 To Rws
    sDR = CStr(J) & FC
    If InStr(StrC, sDR) Then
    Else
        If dRng Is Nothing Then
            Set dRng = Rows(J & ":" & J)
        Else
            Set dRng = Union(dRng, Rows(J & ":" & J))
        End If
    End If
 Next J
 MsgBox dRng.Address
 'dRng.Delete       '
End Sub

cảm ơn bạn nhé mình mới tìm hiểu VBA còn gà lắm

 

[lucifer1985]

Chủ bài đăng tham khảo thử, hợp thì xin mời mại zô:

Sub DeleteRows()
 Dim StrC As String, sDR As String:         Const FC As String = ";"
 Dim Rws As Long, J As Long:                Dim dRng As Range
 
 Rws = [B2].CurrentRegion.Rows.Count
 StrC = InputBox("Hay Nhâp Các Dòng Cân Thiêt: ", "5;7;. . . ;", "13;17;")
 For J = 1 To Rws
    sDR = CStr(J) & FC
    If InStr(StrC, sDR) Then
    Else
        If dRng Is Nothing Then
            Set dRng = Rows(J & ":" & J)
        Else
            Set dRng = Union(dRng, Rows(J & ":" & J))
        End If
    End If
 Next J
 MsgBox dRng.Address
 'dRng.Delete       '
End Sub

hic em vẫn ko xài đc bác ạ thank các bác em đành xài tính năng record vậy

 

[johnnylinhanh]

Ở Sheet1, bạn gõ danh sách các dòng cần giữ tại ô L2 như hình rồi ấn nút chạy và xem sheet Kết quả là được mà ta? Chưa hiểu bạn gặp khó chỗ nào ấy
Còn không bạn ấn nút CHẠY 2 bên dưới nhận thông tin từ Inputbox xem cách nào tiện hơn thì làm thôi.

 

[SA_DQ]

hic em vẫn ko xài đc bác ạ thank các bác em đành xài tính năng record vậy

Tính năng record ấy bạn thực hiện được chưa vậy, & có thể chia sẻ cho cộng đồng được chăng?

 

[VetMini]

Chủ bài đăng tham khảo thử, hợp thì xin mời mại zô:

... StrC = InputBox("Hay Nhâp Các Dòng Cân Thiêt: ", "5;7;. . . ;", "13;17;")
 For J = 1 To Rws
    sDR = CStr(J) & FC
    If InStr(StrC, sDR) Then
 ...

Code không đúng. Dùng instr thì phải delimit cả hai đầu: sDR = FC & CStr(J) & FC

StrC = ";5;7;13;17;"
J = 3: sDR = "3;": InStr(";5;7;13;17;", "3;" ) = 6

If dRng Is Nothing Then
Set dRng = Rows(J & ":" & J)
Else
Set dRng = Union(dRng, Rows(J & ":" & J))
End If

Rows(J) là đủ rồi. Dùng chỉ số nhanh và gọn hơn dùng string (tên/địa chỉ của range trong collection Rows)