Trong code Sort thông báo dòng cuối là 177, nhưng khi chạy code Sort thì chạy vượt qua dòng 177

[AnhThu-1976]

Em nhờ Thầy cô và các anh chị tìm chổ sai như sau:
Trong code Sort thông báo dòng cuối là 177, nhưng khi chạy code Sort thì chạy vượt qua dòng 177
Vui lòng chạy thử code trong file đính kèm, em cảm ơn!

 

[befaint]

Thế này nguy hiểm quá.
Lấy ngay biến i là giá trị vừa tìm được làm biến chạy (counter) của vòng lặp For Next thì hỏng bét rồi còn đâu.

Thử như hình xem ra cái gì.



--------
Khai báo thêm một biến dongCuoi
Dim dongCuoi as Long
dongCuoi = Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row

Trong For Next thì đổi lại:
For i = 9 To dongCuoi

 

[ptm0412]

Sau khi ra khỏi vòng lặp thì i vượt quá dòng cuối. Thử như sau

    For i = 9 To i
        If Cells(i, 27) = "" Then
            Range("AA" & i).Interior.ColorIndex = 3
        End If
    Next i
    Msgbox i

 

[AnhThu-1976]

Sau khi ra khỏi vòng lặp thì i vượt quá dòng cuối. Thử như sau

    For i = 9 To i
        If Cells(i, 27) = "" Then
            Range("AA" & i).Interior.ColorIndex = 3
        End If
    Next i
    Msgbox i

Vậy thì vòng lặp dưới em cho i-1

For i = 9 To i - 1
        If Cells(i, 27) = "" Then
            MsgBox Range("AA" & i).Address & " trôìng"
            Exit Sub
        End If
    Next i

 

[ptm0412]

Vậy thì vòng lặp dưới em cho i-1

Nên làm theo bài 2