Range trong excel (1 người xem)

[minhtriga]

Mọi người cho em hỏi là em đang làm đến đoạn này,giả sử STT 2 nó sai thì xoá đi sau đó di chuyển mấy hàng dưới lên hàng trên và đổi sổ thứ tự thì code cho biến chạy thế nào ạ
Mong mọi người giúp đỡ.Em xin chân thành cám ơn!!!

 

[leonguyenz]

Mọi người cho em hỏi là em đang làm đến đoạn này,giả sử STT 2 nó sai thì xoá đi sau đó di chuyển mấy hàng dưới lên hàng trên và đổi sổ thứ tự thì code cho biến chạy thế nào ạ
Mong mọi người giúp đỡ.Em xin chân thành cám ơn!!!

Nếu dựa vào thông tin cột B, tham khảo code xóa dòng:

Sub Button2_Click()
Dim i As Integer, Rng As Range
Set Rng = Sheet1.Range("A2:A" & Sheet1.Range("A65535").End(3).Row)
For i = Rng.Rows.Count To 1 Step -1
    Sheet1.Cells(i + 1, 1).Formula = "=ROW()-1"
    If IsEmpty(Sheet1.Cells(i + 1, 2)) Then
        Sheet1.Cells(i + 1, 2).EntireRow.Delete
    End If
Next i
End Sub