Xóa hàng cụ thể trong Excel không tiếp tục

Tôi cần một số trợ giúp để xóa các dòng cụ thể, ví dụ, các dòng 31, 62, 124 và tiếp tục cho đến 3000+ trong Excel, đó là một sự thay đổi của 31. Ai có thể giúp tôi không? Tôi đang sử dụng excel 2016.

Trước hết, bạn sẽ cần một cột trợ giúp:

Trong ô đầu tiên của cột trợ giúp, đặt công thức này =MOD(ROW(),31). Điền vào công thức này cho tất cả các hàng.

Trong các hàng 31, 62, 93, v.v ... giá trị của cột trợ giúp sẽ là 0.

Chuyển đến Bộ lọc, một hình tam giác nhỏ sẽ xuất hiện trên đầu các cột. Bấm vào một trong cột trợ giúp.

Chọn 0 và bỏ chọn tất cả các giá trị khác.

Bây giờ tờ cho thấy chỉ có các hàng 31,62,39, v.v. Chọn các hàng, nhấp chuột phải và chọn xóa hàng.

Đi đến bộ lọc một lần nữa và chọn tất cả các giá trị và đó là tất cả.

Lấy macro ngắn này:

Sub Kill31()
    Dim N As Long, i As Long
    N = 9999
    For i = N To 1 Step -1
        If Cells(i, 1).Row Mod 31 = 0 Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next i
End Sub

thay thế cái 9999 với phần dưới cùng của dữ liệu của bạn và chạy nó (trong trường hợp của bạn, 4000 có thể ổn)