- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,932
Trong code của tôi, nếu muốn bỏ IF thì phải đổi cấu trúc vòng lập, quét dòng trước cột sauVâng đúng ạ, em test bỏ if đi thì có vùng đúng, có vùng nó chọn sai dòng
PHP:
Sub xLastCell()
Dim sRng As Range, i As Long, j As Long, MaxR As Long, Answer As String
Set sRng = Selection
For i = sRng.Rows.Count To 1 Step -1
For j = 1 To sRng.Columns.Count
If Not IsEmpty(sRng(i, j)) Or Not sRng(i, j).Comment Is Nothing Then MaxR = sRng(i, j).Row
Next
If MaxR Then Exit For
Next
Answer = IIf(MaxR, "Dong cuoi cùng la " & MaxR, "Vùng du liêu toàn dòng trang")
MsgBox Answer, 6, "Thông báo"
End Sub